'---------------------------------------
'Сценарий для того чтобы отслеживать случаи logon и logoff
'1 разбойник 03.June.2010
''''''''''''''''''''''''''''''''''
'Константы для архивов отверстия
''''''''''''''''''''''''''''''''''
Const OpenFileForReading = 1
Const OpenFileForWriting = 2
Const OpenFileForAppending = 8
затемните a, src, sVers
затемните fs
'--- setup архивы & журнал ---------
'изменению к setup домену костюма… зоне sysvol можно написать к сценариям запуска & logon
const LogFldr= " \ \ SBSSERVER \ SYSVOL \ mydomain \ журналы \ «
lf = «logonevents.csv»
actionX = WScript.Arguments (0) «принимают первым аргументом будет будучи выполнянным действие»
"" sVers=
'установите последовательное, orderable время YYYYMMDD-HHNN даты
datetime=Year (теперь ()) & право («0» & месяц (теперь ()), 2) & правое («0» & день (теперь ()), 2) &» - «& право («0» & час (теперь ()), 2) & правое («0» & минута (теперь ()), 2) '& право («0» & во-вторых (теперь ()), 2)
'или используйте формат даты Xcel преобразует к DateTime значению
'установите последовательное, обратимое время YYYYMMMDD-HHNN даты
datetime=Year (теперь ()) & MonthName (месяц (теперь ()), True) & право («0» & день (теперь ()), 2) &» - «& право («0» & час (теперь ()), 2) & правое («0» & минута (теперь ()), 2) '& право («0» & во-вторых (теперь ()), 2)
'Создайте предметы etc раковины
Установите oShell = CreateObject («WScript.Shell»)
Установите oNet = CreateObject («WScript.Network»)
Установите oFSO = CreateObject («Scripting.FileSystemObject»)
'напишите к журналу
Установите flf = oFSO.GetFile (logfldr & lf)
Установите tslf = flf.OpenAsTextStream (OpenFileForAppending)
tslf.WriteLine (onet.UserName & «,» & Onet.ComputerName & «,» & WeekdayName (будний день (теперь)) & «,» & Datetime & «,» & ActionX)
tslf. Конец
'------ конец ---
установите onet = ничего
установите oShell = ничего
Установите oFSO = ничего
wscript.quit
|