Voici un petit script que j'ai créer avec l'aide de zeb. il permet de créer un fichier texte dans un dossier partagé, ce fichier texte contient le nom d'utilisateur et son adresse IP.
Je suis débutant dans le domaine, je suis donc ouvert à toute remarque. Au niveau de mes commentaires, je ne suis pas sûr qu'ils soient pertinants, donc là encore si vous avez des remarques ou suggestion.
Allez bonne journée.
Code :
nomPC = "."
'Je sais pas trop ce que signifie les propriétés de GetObjet, elles sont obligatoires sauf erreur?'
Set objetSysteme = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& nomPC & "\root\cimv2" )
'Récupération de l'adresse IP dans une collection'
Set CollectionAdresseIP = objetSysteme.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True" )
'Récupération du nom de domaine et du nom d'utilisateur après avoir parcourus la collection'
Set CollectionNomDomaine = objetSysteme.ExecQuery _
