Salut David,
voici un code trouver sur xlbystef.free.fr
Private declare function GetComputername Lib "kernel32" _ Alias "GetComputernameA" (ByVal lpBuffer As String, nSize As long) As long
function ReturnComputername() As String
dim rString As String * 255, sLen As long, tString As String
tString = ""
On Error Resume next
sLen = GetComputername(rString, 255)
sLen = InStr(1, rString, Chr(0))
if sLen > 0 then
tString = Left(rString, sLen - 1)
Else
tString = rString
end if
On Error Goto 0
ReturnComputername = UCase(Trim(tString))
end function
dans la meme rubrique (L'utilisateur et son ordinateur) tu peux aussi trouver l'IP, le nom de l'utilisateur, etc.
A++, sylsyl.
