Script de récupération d'ip et username
Résolu
nasbe
Messages postés
30
Date d'inscription
Statut
Membre
Dernière intervention
-
Jean -
Jean -
Bonjour,
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.
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
Next
For Each objItem in colItems
For Each strAddress in objItem.IPAddress
msg = msg & " est " & strAddress
Next
Next
Wscript.Echo msg
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.
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
Next
For Each objItem in colItems
For Each strAddress in objItem.IPAddress
msg = msg & " est " & strAddress
Next
Next
Wscript.Echo msg
A voir également:
- Script de récupération d'ip et username
- Ethernet n'a pas de configuration ip valide - Guide
- Télévision ip - Guide
- Comment connaître son adresse ip - Guide
- Script vidéo youtube - Guide
- Ip local - Guide
1 réponse
Essaye ce qui suit.
Dim FSObject
Dim File
Dim FilePath
Set FilePath = "fichier.log"
Set FSObject = CreateObject("Scripting.FileSystemObject")
Set File = FSObject.OpenTextFile(FilePath, 8, True)
File.WriteLine msg
File.Close
msg est la meme variable que dans ton script
le 8 en constante est pour l'ecriture en fin de fichier. le vrai est la pour specifier la creation du fichier s'il n'existe pas.
Dim FSObject
Dim File
Dim FilePath
Set FilePath = "fichier.log"
Set FSObject = CreateObject("Scripting.FileSystemObject")
Set File = FSObject.OpenTextFile(FilePath, 8, True)
File.WriteLine msg
File.Close
msg est la meme variable que dans ton script
le 8 en constante est pour l'ecriture en fin de fichier. le vrai est la pour specifier la creation du fichier s'il n'existe pas.
Merci