Sub testB_ok()
Dim tmp$
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer In colComputer
tmp = objComputer.UserName
Next
MsgBox "User Name: " & Split(tmp, "\")(1), vbExclamation, "I know who you are, Baby!"
End Sub
merci, j'avais compris d'oùcar connecté sur un domaine
si tu avais lié ton compte local à un compte krosoft, cela aurait fonctionnéj'ai souvent eu des problèmes en entreprise ou chez des particuliers avec Environ("UserName")
C'est surtout ce que je ne veux pas faire.Yeahou à dit:si tu avais lié ton compte local à un compte krosoft, cela aurait fonctionné