',---------------------------------------
'Skriva för att spåra inloggnings- och urloggningshändelser
'1 rånare 03.June.2010
'''''''''''''''''''''''''''''''''',
'Konstanter för öppning sparar
'''''''''''''''''''''''''''''''''',
Const OpenFileForReading = 1
Const OpenFileForWriting = 2
Const OpenFileForAppending = 8
dunkelt a, src, sVers
dunkel fs
',--- ställa in sparar & loggar ---------
'ändra för att passa område ställer in… sysvolområdet kan vara skriftligt till vid starten, & inloggningen skrivar
const LogFldr= " \ \ SBSSERVER \ SYSVOL \ mydomain \ loggar \ ”,
lf = ”logonevents.csv”,
actionX = WScript.Arguments (0) ”antar att det första argumentet är handlingen som utförs”,
sVers="",
'konfigurera ett jämnt, orderable daterar tid YYYYMMDD-HHNN
datetime=Year (nu ()) & högert (”0” & månaden (nu ()), 2) & högert (”0” & dagen (nu ()), 2) &” - ”& högert (”0” & timmen (nu ()), 2) & högert (”0” & noterar (nu ()), 2) '& högert (”0” & understöder (nu ()), 2)
'eller använd en datera formaterar den Xcel ska omvänden till DateTime värderar
'konfigurera ett jämnt, cabriolet daterar tid YYYYMMMDD-HHNN
datetime=Year (nu ()) & MonthName (månad (nu ())True) & rätten (”0” & dagen (nu (),), 2) &” - ”& högert (”0” & timmen (nu ()), 2) & högert (”0” & noterar (nu ()), 2) '& högert (”0” & understöder (nu ()), 2)
'Skapa Shell etc. anmärker
Fastställd oShell = CreateObject (”WScript.Shell”)
Fastställd oNet = CreateObject (”WScript.Network”)
Fastställd oFSO = CreateObject (”Scripting.FileSystemObject”)
'skriv för att logga
Fastställd flf = oFSO.GetFile (logfldr & lf)
Fastställd tslf = flf.OpenAsTextStream (OpenFileForAppending)
tslf.WriteLine (onet.UserName & ”,” & Onet.ComputerName & ”,” & WeekdayName (vardag (nu)) & ”,” & Datetime & ”,” & ActionX)
tslf. Nära
',------ avsluta ---
fastställd onet = ingenting
fastställd oShell = ingenting
Fastställd oFSO = ingenting
wscript.quit
|