'---------------------------------------
'Pismo logon i logoff wydarzenie
'(1) 03.June.2010 rabuś
''''''''''''''''''''''''''''''''''
'Konstanta dla otwarcie kartoteka
''''''''''''''''''''''''''''''''''
Const OpenFileForReading = (1)
Const OpenFileForWriting = 2
Const OpenFileForAppending = 8
ćmić a, src, sVers
ćmić fs
'--- tworzyć kartoteka & notować ---------
'zmiana kostium domena ustawianie… the sysvol teren móc pisać rozpoczęcie & logon pismo
const LogFldr= " \ \ SBSSERVER \ SYSVOL \ mydomain \ bela \ "
lf = "logonevents.csv"
actionX = WScript.Arguments ((0)) "zakładać the pierwszy argument być the akcja"
sVers= ""
'konfigurować konsekwentny, konsekwentny daktylowy czas YYYYMMDD-HHNN
datetime=Year (teraz ()) & Prawy ("(0)" & Miesiąc (teraz ()), 2) & Prawy ("(0)" & Dzień (teraz ()), 2) &" - "& Prawy ("(0)" & Godzina (teraz ()), 2) & Prawy ("(0)" & Minuta (teraz ()), 2) '& Prawy ("(0)" & Po Drugie (teraz ()), 2)
'lub używać daktylowy format Xcel nawracać Daktylowy wartość
'konfigurować konsekwentny, kabriolet daktylowy czas YYYYMMMDD-HHNN
datetime=Year (teraz ()) & MonthName (Miesiąc (teraz ()), Prawdziwy) & Prawy ("(0)" & Dzień (teraz ()), 2) &" - "& Prawy ("(0)" & Godzina (teraz ()), 2) & Prawy ("(0)" & Minuta (teraz ()), 2) '& Prawy ("(0)" & Po Drugie (teraz ()), 2)
'Tworzyć the Skorupa etc przedmiot
Ustawiać oShell = CreateObject ("WScript.Shell")
Ustawiać oNet = CreateObject ("WScript.Network")
Ustawiać oFSO = CreateObject ("Scripting.FileSystemObject")
'pisać Bela
Ustawiać flf = oFSO.GetFile (logfldr & lf)
Ustawiać tslf = flf.OpenAsTextStream (OpenFileForAppending)
tslf.WriteLine (onet.UserName & "," & Onet.ComputerName & "," & WeekdayName (Dzień powszedni (Teraz)) & "," & Datetime & "," & ActionX)
tslf. Zakończenie
'------ końcówka ---
ustawiać onet = nic
ustawiać oShell = nic
Ustawiać oFSO = Nic
wscript.quit
|