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