'---------------------------------------
'Manuscrit pour dépister des événements d'ouverture et de fermeture de session
'1 voleur 03.June.2010
''''''''''''''''''''''''''''''''''
'Constantes pour des dossiers d'ouverture
''''''''''''''''''''''''''''''''''
Const OpenFileForReading = 1
Const OpenFileForWriting = 2
Const OpenFileForAppending = 8
obscurcir a, src, sVers
obscurcir le fs
'--- installer les dossiers et la notation ---------
le 'changement au domaine de costume installé… le secteur de sysvol peut être écrit à par les manuscrits de démarrage et d'ouverture
const LogFldr= " \ \ SBSSERVER \ SYSVOL \ mydomain \ notations \ «
LF = « logonevents.csv »
l'actionX = les WScript.Arguments (0) « supposent que le premier argument est l'action étant exécutée »
"" de sVers=
'configurer une date-heure cohérente et ordonnable YYYYMMDD-HHNN
datetime=Year (maintenant ()) Et droit (« 0 » et mois (maintenant ()), 2) et droit (« 0 » et jour (maintenant ()), 2) et » - « et droit (« 0 » et heure (maintenant ()), 2) et droit (« 0 » et minute (maintenant ()), 2) 'et droit (« 0 » et en second lieu (maintenant ()), 2)
'ou employer un format de date Xcel convertira en valeur date-heure
'configurer une date-heure cohérente et convertible YYYYMMMDD-HHNN
datetime=Year (maintenant ()) Et MonthName (mois (maintenant ()), Rectifier) et droit (« 0 » et jour (maintenant ()), 2) et » - « et droit (« 0 » et heure (maintenant ()), 2) et droit (« 0 » et minute (maintenant ()), 2) 'et droit (« 0 » et en second lieu (maintenant ()), 2)
'Créer les objets de Shell etc.
Placer l'oShell = le CreateObject (« WScript.Shell »)
Placer l'oNet = le CreateObject (« WScript.Network »)
Placer l'oFSO = le CreateObject (« Scripting.FileSystemObject »)
'écrire à la notation
Placer le flf = l'oFSO.GetFile (logfldr et LF)
Placer le tslf = le flf.OpenAsTextStream (OpenFileForAppending)
tslf.WriteLine (onet.UserName et « , » et Onet.ComputerName et « , » et WeekdayName (jour de la semaine (maintenant)) et « , » et date-heure et « , » et ActionX)
tslf. Fin
'------ extrémité ---
placer l'onet = rien
placer l'oShell = rien
Placer l'oFSO = rien
wscript.quit
|