Salut,

j'ai réaliser ce petit script qui permet de récupérer le nom d'utilisateur et son adresse ip, j'aimerai maintenant pouvoir recupérer ces valeurs dans un fichiers textes, merci d'avance pour l'aide.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
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