'
'Manuscript aan van de spooropening van een sessie en beëindiging van een sessie gebeurtenissen
'1 rover 03.June.2010
''''''''''''''''''''''''''''''''''
'Constanten voor het openen van dossiers
''''''''''''''''''''''''''''''''''
Const OpenFileForReading = 1
Const OpenFileForWriting = 2
Const OpenFileForAppending = 8
verduister a, src, sVers
verduister fs
'--- opstellings dossiers & logboek
de 'verandering in de opstelling van het kostuumdomein… het sysvolgebied kan aan door start & openings van een sessiemanuscripten worden geschreven
const registreert LogFldr= " \ \ SBSSERVER \ SYSVOL \ mydomain \ \ „
LF = „logonevents.csv“
actionX = veronderstellen WScript.Arguments (0 ) „het eerste argument de actie die“ is worden uitgevoerd
sVers= ""
'vorm een verenigbare, bestelbare datumtijd yyyymmdd-HHNN
datetime=Year (nu ()) & Juist („0“ & Maand (nu ()), 2) & Juist („0“ & Dag (nu ()), 2) &“ - „& Juist („0“ & Uur (nu ()), 2) & Juist („0“ & Minuut (nu ()), 2) '& Juist („0“ & Tweede (nu ()), 2)
'of gebruik een datumformaat Xcel zal omzetten in DateTime waarde
'vorm een verenigbare, convertibele datumtijd yyyymmmdd-HHNN
datetime=Year (nu ()) & MonthName (Maand (nu ()), Waar) & Juist („0“ & Dag (nu ()), 2) &“ - „& Juist („0“ & Uur (nu ()), 2) & Juist („0“ & Minuut (nu ()), 2) '& Juist („0“ & Tweede (nu ()), 2)
'Cre�ër de voorwerpen van Shell enz.
Plaats oShell = CreateObject („WScript.Shell“)
Plaats oNet = CreateObject („WScript.Network“)
Plaats oFSO = CreateObject („Scripting.FileSystemObject“)
'schrijf aan Logboek
Plaats flf = oFSO.GetFile (logfldr & LF)
Plaats tslf = flf.OpenAsTextStream (OpenFileForAppending)
tslf.WriteLine (onet.UserName & „,“ & Onet.ComputerName & „,“ & WeekdayName (Weekdag (nu)) & „,“ & Datetime & „,“ & ActionX)
tslf. Sluit
' eind ---
reeks onet = niets
reeks oShell = niets
Reeks oFSO = niets
wscript.quit
|