voilà un petit code que j'ai créer qui me permet de récupérer l'adresse ip et le nom d'utilisateur.
Maintenant j'aurai voulu récupérer ses données dans un fichier texte, merci de pouvoir m'avancer un peut, ca fait pas mal de temps que je seches.
Code :
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2" )
Set colItems = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True" )
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem" )
For Each objComputer in colComputer
msg = msg & "L'adresse ip de l'utilisateur " & objComputer.UserName
