script de récupération d'ip et username Résolu/Fermé

Question

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 & "oot\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

Dave Null · Answer

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.

Script de récupération d'ip et username

1 réponse

Discussions similaires