'---------------------------------------
'Escritura para seguir acontecimientos de la conexión y del término de sesión
'1 ladrón 03.June.2010
''''''''''''''''''''''''''''''''''
'Constantes para los archivos de abertura
''''''''''''''''''''''''''''''''''
Const OpenFileForReading = 1
Const OpenFileForWriting = 2
Const OpenFileForAppending = 8
amortiguar a, src, sVers
amortiguar el fs
'--- fijar los archivos y el registro ---------
el 'cambio al dominio del juego fijado… el área del sysvol se puede escribir por a las escrituras del arranque y de la conexión
const LogFldr= " \ \ SBSSERVER \ SYSVOL \ mydomain \ registros \ “
lf = “logonevents.csv”
el actionX = WScript.Arguments (0) “asumen que la primera discusión es la acción que es realizada”
"" del sVers=
'configurar una fecha y hora constante, ordenable YYYYMMDD-HHNN
datetime=Year (ahora ()) Y derecho (“0” y mes (ahora ()), 2) y derecho (“0” y día (ahora ()), 2) y” - “y derecho (“0” y hora (ahora ()), 2) y derecho (“0” y minuto (ahora ()), 2) 'y derecho (“0” y en segundo lugar (ahora ()), 2)
'o utilizar un formato de fecha Xcel convertirá al valor DateTime
'configurar una fecha y hora constante, convertible YYYYMMMDD-HHNN
datetime=Year (ahora ()) Y MonthName (mes (ahora ()), Verdad) y derecho (“0” y el día (ahora ()), 2) y” - “y derecho (“0” y hora (ahora ()), 2) y derecho (“0” y minuto (ahora ()), 2) 'y derecho (“0” y en segundo lugar (ahora ()), 2)
'Crear los objetos de Shell etc
Fijar el oShell = CreateObject (“WScript.Shell”)
Fijar el oNet = CreateObject (“WScript.Network”)
Fijar el oFSO = CreateObject (“Scripting.FileSystemObject”)
'escribir al registro
Fijar el flf = oFSO.GetFile (logfldr y el lf)
Fijar el tslf = flf.OpenAsTextStream (OpenFileForAppending)
tslf.WriteLine (onet.UserName y “,” y Onet.ComputerName y “,” y WeekdayName (día laborable (ahora)) y “,” y fecha y hora y “,” y ActionX)
tslf. Cierre
'------ extremo ---
fijar el onet = nada
fijar el oShell = nada
Fijar el oFSO = nada
wscript.quit
|