Ecrire dans un fichier texte

Version imprimable

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:

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

11/09/2007, 20h54
SfJ5Rpw8

ben si tu as réalisé toi même ce script ... tu dois avoir toutes les bases pour utiliser la :faq: 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é

;)

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

Code:

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