Dim WSHNetwork
Dim Login, maintenant, ComputerName , Record
Dim fso, ts
Dim logfile
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
'Entrer le chemin du fichier de log
logfile="d:\temp\log.txt"

Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(logfile)=False) Then	      
	Set f = fso.CreateTextFile(logfile, True)
End if

Set f = fso.GetFile(logfile)   

Set ts = f.OpenAsTextStream(ForAppending, TristateUseDefault)
   
Set WSHNetwork = WScript.CreateObject("WScript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
Workgroup=WshShell.RegRead("HKLM\System\CurrentControlSet\Services\VxD\VNETSUP\Workgroup")   
Login=WSHNetwork.UserName
ComputerName=WSHNetwork.ComputerName
maintenant=WeekDayName(Weekday(now),False)&" "&Day(now)&" "&MonthName(Month(now),False)&" "&Year(now)

Record=Ucase(Login)&";"&Computername&";"&Workgroup&";"&maintenant&";"&Time

ts.WriteLine(Record) 
ts.Close