1 Тема от Евген

  • Евген
  • Разработчик
  • Неактивен

Тема: VBS/WMI: ClearEventLog - проблемка очистки Security

Коллеги, приветствую !
Столкнулся с проблемкой...
Затираю следы DCOM'овские своего присутствия на удалённых машинках путём хотя бы очищения NTEventLog'а, журнальчики 'Application' и 'System' чистятся беспроблемно, а вот 'Security' выдаёт результатом нигде не описанную 5 (пятёрку) , код следующий

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate,(Backup)}!\\" & _
 strComputer & "\root\cimv2")
Set colLogFiles = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_NTEventLogFile WHERE LogFileName='Security'")
For Each objLogfile in colLogFiles
 intReturn=objLogFile.ClearEventLog()
Next
Msgbox intReturn

Собственно код отсюда
Результатами могут быть только 0,8 или 21
А у меня 5

Времени не хватает... :-(