1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| strFile = "C:\sessions.txt"
strDate = Now
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshProcessEnv = WshShell.Environment("Process")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
strUserName = WshProcessEnv("USERNAME")
strDomain = WshProcessEnv("USERDOMAIN")
strComputer = WshProcessEnv("COMPUTERNAME")
Set f = fso.OpenTextFile(strFile , 8, True)
f.write(Now & " : " & strUserName & " sur " & strComputer & " depuis " & strDomain & VbCrLf)
f.Close()
Set f = Nothing
Set fso = Nothing
Set WshProcessEnv = Nothing
Set WshShell = Nothing |
A placer dans un VBS !
Ensuite tu lances REGEDIT, tu vas "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run"
--> Nouvelle valeur chaine
Tu met ça dans la valeur
wscript "x:\vers\le\chemin\de\ton\script.vbs"
Même en ayant le droit à pas grand chose, tu auras toujours accès à ta branche (CURRENT_USER) de la base de registre, et tes variables d'environnement.
Reste à ce que le dossier dans lequel tu veux écrire possède les bonnes permissions...
Partager