Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Public Function GetPCName() As String Dim nom As String, ret As Long nom = Space$(255) ret = GetComputerName(nom, Len(nom)) GetPCName = Split(nom, Chr(0))(0) End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question