?***********************************************************************************
? Имя сценария: ClearEventLog.vbs
? Версия: 1.0
? Автор: Jason Fossen
?Последнее обновление: 15.Dec.2003
? Назначение: очищает журналы событий на локальных или удаленных компьютерах.
? Предупреждение: автор не несет ответственности за последствия применения сценария.
?***********************************************************************************
sTarget = WScript.Arguments(0) ?Первый аргумент командной строки для сценария.
sLog = WScript.Arguments(1) Второй аргумент командной строки для сценария.
If ClearEventLog(sTarget, sLog) Then ?Функция возвращает значение «истина» если операция завершена успешно.
WScript.Echo sLog & «журнал очищен» & sTarget
Else
WScript.Echo sLog & «журнал НЕ очищен» & sTarget
End If
Function ClearEventLog(sComputer, sLogName)
On Error Resume Next
Set oWMI = GetObject(«WinMgmts:{(Security)}!//» & sComputer & «/root/cimv2»)
Set cLogFile = oWMI.ExecQuery(«SELECT * FROM Win32_NTEventLogFile WHERE
LogFileName = « & «?« & sLogName & «?«)
For Each oLog In cLogFile
iError = oLog.ClearEventlog()
Next
If iError = 0 And Err.Number = 0 Then ClearEventLog = True Else ClearEventLog = False
End Function
?END OF
SCRIPT*****************************************************************