?***********************************************************************************
? Имя сценария: 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*****************************************************************

Поделитесь материалом с коллегами и друзьями