bonjour christiangeorges Creepy le forum j ai trouve cela sur un autre site le nom de l ordinateur + ip si tu peus faire quelque chose avec ca salutations Nom de l'ordinateur
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
IP de l'ordinateur
Private declare function apiGetComputername Lib 'kernel32' Alias _
'GetComputernameA' (ByVal lpBuffer As String, nSize As long) As long
Sub Display_UserIP()
msgbox fOSMachinename
end Sub
function fOSMachinename() As String
dim lngLen As long
dim lngX As long
dim strCompname As String
lngLen = 16
strCompname = String$(lngLen, 0)
lngX = apiGetComputername(strCompname, lngLen)
if lngX <> 0 then
fOSMachinename = Left$(strCompname, lngLen)
Else
fOSMachinename = ''
end if
end function