Hostname d'un poste

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 551 fois - Téléchargée 67 fois

Contenu du snippet

Récupération du Hostname local d'un poste

Source / Exemple :


' code à placer dans un module
Public Type WSADATA
        wVersion As Integer
        wHighVersion As Integer
        szDescription As String * 257
        szSystemStatus As String * 129
        iMaxSockets As Long
        iMaxUdpDg As Long
        lpVendorInfo As Long
End Type

' API
Public Declare Function gethostname Lib "wsock32.dll" (ByVal name As String, ByVal namelen As Long) As Long

Public Declare Function WSAStartup Lib "wsock32.dll" (ByVal wVersionRequested As Integer, lpWSAData As WSADATA) As Long
Public Declare Function WSACleanup Lib "wsock32.dll" () As Long

Public Function MAKEWORD(ByVal bLow As Byte, ByVal bHigh As Byte) As Integer
        MAKEWORD = Val("&H" & Right("00" & Hex(bHigh), 2) & Right("00" & Hex(bLow), 2))
End Function

' code à placer dans une Form
Private Sub Form_Load()
    Dim slocalhostName As String
    Dim retval As Long
    Dim sockinfo As WSADATA
    
    ' ouvrir une Winsock session
    retval = WSACleanup()
    retval = WSAStartup(MAKEWORD(2, 2), sockinfo)
    If retval <> 0 Then
            MsgBox "Erreur sur chargement Winsock !"
            Exit Sub
    End If
    
    slocalhostName = Space(256)
    retval = gethostname(slocalhostName, 256)
    txtHostName = Left$(slocalhostName, InStr(slocalhostName, vbNullChar) - 1)
End Sub

A voir également

Ajouter un commentaire

Commentaires

Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
58 -
pourquoi ne pas simplement utiliser

MsgBox environ$("computername")
VB6Boss
Messages postés
71
Date d'inscription
mercredi 9 janvier 2002
Statut
Membre
Dernière intervention
15 juin 2002
-
Super comme code !
Au moin ca evite des ocx de partout...
C bien fait mais faut-il réinventer l'eau chaude?
c'est la même chose que
winsock.localhoStname ?
Quel est l'interet de ce soft puisqu'un simple contrôle winsock permet de faire la même chose avec une seule ligne de programme ?!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.