'---------------------------------------
'Index, zum von LOGON- und Logoffereignissen aufzuspüren
'1 Räuber 03.June.2010
''''''''''''''''''''''''''''''''''
'Konstanten für Öffnungsakten
''''''''''''''''''''''''''''''''''
Const OpenFileForReading = 1
Const OpenFileForWriting = 2
Const OpenFileForAppending = 8
a, src, sVers verdunkeln
Rumpfstation verdunkeln
'--- Akten u. Maschinenbordbuch gründen ---------
'Änderung am Klagegebiet, das… dem sysvol Bereich gegründet wird, kann durch zu den Start- u. LOGON-Indexen geschrieben werden
const LogFldr= " \ \ SBSSERVER \ SYSVOL \ mydomain \ Maschinenbordbücher \ „
LF = „logonevents.csv“
actionX = WScript.Arguments (0) „nehmen an, dass das erste Argument die Tätigkeit ist, die durchgeführt wird“
sVers= ""
'ein gleich bleibendes, bestellbares Datum/Uhrzeit YYYYMMDD-HHNN zusammenbauen
datetime=Year (jetzt ()) U. recht („0“ u. Monat (jetzt ()), 2) u. rechtes („0“ u. Tag (jetzt ()), 2) u.“ - „u. recht („0“ u. Stunde (jetzt ()), 2) u. rechtes („0“ u. Minute (jetzt ()), 2) 'u. recht („0“ u. an zweiter Stelle (jetzt ()), 2)
'oder ein Datumformat Xcel verwenden umwandelt in Datum/Uhrzeit-Wert
'ein gleich bleibendes, umwandelbares Datum/Uhrzeit YYYYMMMDD-HHNN zusammenbauen
datetime=Year (jetzt ()) U. MonthName (Monat (jetzt ()), Ausrichten) u. recht („0“ u. Tag (jetzt ()), 2) u.“ - „u. recht („0“ u. Stunde (jetzt ()), 2) u. rechtes („0“ u. Minute (jetzt ()), 2) 'u. recht („0“ u. an zweiter Stelle (jetzt ()), 2)
'Die Gegenstände Shell-usw. verursachen
oShell = CreateObject („WScript.Shell“) einstellen
oNet = CreateObject („WScript.Network“) einstellen
oFSO = CreateObject („Scripting.FileSystemObject“) einstellen
'zum Maschinenbordbuch schreiben
Flf = oFSO.GetFile einstellen (logfldr u. LF)
Tslf = flf.OpenAsTextStream (OpenFileForAppending) einstellen
tslf.WriteLine (onet.UserName u. „,“ u. Onet.ComputerName u. „,“ u. WeekdayName (Wochentag (jetzt)) u. „,“ u. Datum/Uhrzeit u. „,“ u. ActionX)
tslf. Abschluss
'------ Ende ---
onet einstellen = nichts
oShell einstellen = nichts
oFSO einstellen = nichts
wscript.quit
|