Discussion :

[nasbe26]

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

[SfJ5Rpw8]

ben si tu as réalisé toi même ce script ... tu dois avoir toutes les bases pour utiliser la et FileSystemObject
voir : Comment écrire dans un fichier texte ?

sinon un "petit" cours de révision :

à (re-)découvrir : Introduction au langage VBScript, par Serge Tahé

[airportone]

Tu peux d'inspirer de ce qui suit...

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
sub RempliLog1	' Création du fichier journal GIAS
	Dim obj,log
	Set Obj = CreateObject("Scripting.FileSystemObject")
	set Folder1 = obj.getfolder(Dirdest1)
	set file1= folder1.files
	mv= obj.getfilename(f)
	Set Log = obj.OpenTextFile("D:\FTP server\LOG_FTP\transfertFTPGIAS.txt",8, True)
		  'controle de l'éxistence du fichier dans répertoire destination
		if obj.fileexists(DirDest1 &"\"&mv) then
			Log.Writeline("GIAS - Le "&date &" à "&time&" "&mv&" déplacé.")
			Log.Close
		else
			Log.Writeline("Echec de la copie de "&mv&" le "&date &" à "&time)
			Log.close
		end if	
End Sub