'---------------------------------------
'Certificado para seguir eventos do início de uma sessão e do término de uma sessão
'1 salteador 03.June.2010
''''''''''''''''''''''''''''''''''
'Constantes para limas de abertura
''''''''''''''''''''''''''''''''''
Const OpenFileForReading = 1
Const OpenFileForWriting = 2
Const OpenFileForAppending = 8
escurecer a, src, sVers
escurecer o fs
'--- setup limas & registro ---------
'a mudança ao domínio do terno setup… a área do sysvol pode ser escrita pelos certificados da partida & do início de uma sessão
const LogFldr= " \ \ SBSSERVER \ SYSVOL \ mydomain \ registros \ “
lf = “logonevents.csv”
o actionX = WScript.Arguments (0) “supor que o primeiro argumento é a ação que está sendo executada”
"" do sVers=
'configurar uma estadia consistente, orderable YYYYMMDD-HHNN da data
datetime=Year (agora ()) & direito (“0” & mês (agora ()), 2) & direito (“0” & dia (agora ()), 2) &” - “& direito (“0” & hora (agora ()), 2) & direito (“0” & minuto (agora ()), 2) '& direito (“0” & em segundo (agora ()), 2)
'ou usar um formato de data Xcel converterá ao valor DateTime
'configurar uma estadia consistente, convertível YYYYMMMDD-HHNN da data
datetime=Year (agora ()) & MonthName (mês (agora ()), Retificar) & direito (“0” & o dia (agora ()), 2) &” - “& direito (“0” & hora (agora ()), 2) & direito (“0” & minuto (agora ()), 2) '& direito (“0” & em segundo (agora ()), 2)
'Criar os objetos de Shell etc.
Ajustar o oShell = o CreateObject (“WScript.Shell”)
Ajustar o oNet = o CreateObject (“WScript.Network”)
Ajustar o oFSO = o CreateObject (“Scripting.FileSystemObject”)
'escrever ao registro
Ajustar o flf = o oFSO.GetFile (logfldr & o lf)
Ajustar o tslf = o flf.OpenAsTextStream (OpenFileForAppending)
tslf.WriteLine (onet.UserName & “,” & Onet.ComputerName & “,” & WeekdayName (dia útil (agora)) & “,” & Datetime & “,” & ActionX)
tslf. Fim
'------ extremidade ---
ajustar o onet = nada
ajustar o oShell = nada
Ajustar o oFSO = nada
wscript.quit
|