Récupérer l'identifiant du poste emeteur local...

Question

Salut tout le monde,

chuis debutant en VB, et g une demande pour recuperer l'identifiant du poste local. et j connais rien -;). merci d'avance a ceux et celles ki possedent la solus.

Apodemus · Answer

Bonjour.
voici une reponse avec des API:
s'il sagit du nom de la personne loguée il faut faire:

'dans la section General da la Form

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

'et dans le code:

Function UserName() As String
Dim s As String, nb As Long
  nb = 255
  s = String(nb, 0)
  If GetUserName(s, nb) > 0 And nb > 0 Then
    UserName = left$(s, nb - 1) 
  End If
End Function

et s'il s'agit du nom de l'ordi, toujours avec les API:

'dans la section General da la Form

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

'et dans le code

Function PCName() As String
Dim s As String, nb As Long
  nb = 255
  s = String(nb, 0)
  If GetComputerName(s, nb) > 0 And nb > 0 Then
    PCName = left$(s, nb)
  End If
End Function

Récupérer l'identifiant du poste emeteur local...

1 réponse

Discussions similaires