1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
| nomPC = "."
'Permet de ne pas déclarer les variable'
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 _
("Select * from Win32_ComputerSystem")
For Each objetNomDomaine in CollectionNomDomaine
'séparation nom de domaine et nom d'utilisateur'
SeparationNom = Split(objetNomDomaine.UserName,"\")
affichage = affichage & "" & SeparationNom(1) & ", "
NomUtilisateur = " " & SeparationNom(1)
Next
'Parcours de la collection AdresseIP et ajout dans la variable d'affichage de toute adresse Ip trouvée'
For Each objetIP in CollectionAdresseIP
For Each AdresseIP in objetIP.IPAddress
affichage = affichage & AdresseIP & " , "
Next
Next
'Choix du chemin de destination du script'
Destination = "\\PC-DE-NASBE\Users\" &NomUtilisateur & " .txt"
'objet FileSystemObject (FSO) permet de manipuler le système de fichiers de Windows.
'l' utilisation du modèle d'objet FileSystemObject s'effectue en créant une instance de l'objet Scripting.FileSystemObject
Set objetFSO = Createobject("Scripting.FileSystemObject")
'Ouverture du fichier destination en écriture'
Set objetTexte = objetFso.OpenTextFile(Destination, 2, True)
'Ecriture dans le fichier'
objetTexte.WriteLine affichage
'Fermeture de l'objet'
objetTexte.Close |
Partager