const WindowsFolder=0
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fso,f,windir,Username,Serveur
Dim lect,ress
Dim WSHNetwork
Dim Login, maintenant, ComputerName , Record
Dim fso, ts
Dim logfile

'Nettoyage du répertoire Profiles
Set fso = CreateObject("Scripting.FileSystemObject")
set windir=fso.GetSpecialFolder(WindowsFolder)
Set oNet=CreateObject("WScript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
Username=onet.username
	
f=fso.DeleteFolder(windir&"\profiles\*")

f=fso.CreateFolder(windir&"\profiles\"&username)
f=fso.CopyFile(windir&"\user.dat",windir&"\profiles\"&username&"\")

'Mise à l'heure du serveur

Set WshShell = WScript.CreateObject("WScript.Shell")
return=WshShell.Run ("net time \\"&serveur&" /set /y")

'Déclaration des lecteurs et des ressources

lect=Array("R:","S:")
ress=Array("Mes documents","program files")
'Procédure de connexion d'un lecteur sur une ressource
Sub connect(lecteur,ressource)
	Set WshNetwork = WScript.CreateObject("WScript.Network")
	WshNetwork.MapNetworkDrive lecteur, "\\"&Serveur&"\"&ressource
End Sub

For i=0 to (Ubound(lect)-Lbound(lect))
connect lect(i),ress(i)
Next

'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)
   


Workgroup=WshShell.RegRead("HKLM\System\CurrentControlSet\Services\VxD\VNETSUP\Workgroup")   

ComputerName=onet.ComputerName
maintenant=WeekDayName(Weekday(now),False)&" "&Day(now)&" "&MonthName(Month(now),False)&" "&Year(now)

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

ts.WriteLine(Record) 
ts.Close