'Code de récupération du nom du PC
'On utilisera toujours la seconde méthode (par API)
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal _
lpBuffer As String, nSize As Long) As Long
Public Function GetPCNameObject() As String
Dim WSHnet As Object
Set WSHnet = CreateObject("wscript.network")
GetPCNameObject = WSHnet.computername
Set WSHnet = Nothing
End Function
Public Function GetPCNameAPI() As String
Dim Buffer As String
Buffer = String$(32, vbNullChar) '32 = MAX_SIZE +1
Call GetComputerName(Buffer, 32)
GetPCNameAPI = Left$(Buffer, InStr(Buffer, vbNullChar) - 1)
End Function
Le 06/08/2007 par violent_ken : Optimisation du code
Seul les admins et l'auteur du code lui même peuvent modifier ce code.