'---------------------------------------
'Scritto per seguire gli eventi di fine attività e di inizio attività
'1 ladro 03.June.2010
''''''''''''''''''''''''''''''''''
'Costanti per le lime di apertura
''''''''''''''''''''''''''''''''''
Const OpenFileForReading = 1
Const OpenFileForWriting = 2
Const OpenFileForAppending = 8
oscurare la a, lo src, sVers
oscurare il fs
'--- installare le lime & il ceppo ---------
'il cambiamento al dominio del vestito installato… la zona di sysvol può essere scritto dagli scritti di inizio attività & di partenza
const LogFldr= " \ \ SBSSERVER \ SYSVOL \ mydomain \ ceppi \ “
lf = “logonevents.csv„
il actionX = WScript.Arguments (0) “presuppongono che la prima discussione sia l'azione che è effettuata„
"" dello sVers=
'configurare un tempo costante e ordinabile YYYYMMDD-HHNN della data
datetime=Year (ora ()) & di destra (“0„ & mese (ora ()), 2) & di destra (“0„ & giorno (ora ()), 2) &„ - “& di destra (“0„ & ora (ora ()), 2) & di destra (“0„ & minuto (ora ()), 2) '& di destra (“0„ & in secondo luogo (ora ()), 2)
'o usare una disposizione di data Xcel convertirà in valore DateTime
'configurare un tempo costante e convertibile YYYYMMMDD-HHNN della data
datetime=Year (ora ()) & MonthName (mese (ora ()), Allineare) & di destra (“0„ & giorno (ora ()), 2) &„ - “& di destra (“0„ & ora (ora ()), 2) & di destra (“0„ & minuto (ora ()), 2) '& di destra (“0„ & in secondo luogo (ora ()), 2)
'Generare gli oggetti di Shell ecc
Regolare il oShell = CreateObject (“WScript.Shell„)
Regolare il oNet = CreateObject (“WScript.Network„)
Regolare il oFSO = CreateObject (“Scripting.FileSystemObject„)
'scrivere al ceppo
Regolare il flf = oFSO.GetFile (logfldr & lf)
Regolare il tslf = flf.OpenAsTextStream (OpenFileForAppending)
tslf.WriteLine (onet.UserName & “,„ & Onet.ComputerName & “,„ & WeekdayName (giorno della settimana (ora)) & “,„ & Datetime & “,„ & ActionX)
tslf. Fine
'------ estremità ---
regolare il onet = niente
regolare il oShell = niente
Regolare il oFSO = niente
wscript.quit
|