objNTEventLog.ClearEventlog("c:app.evt")

Обратите внимание на единственный аргумент метода ClearEventlog: «c:app.evt». Этот аргумент задает файл, в который при очистке журнала будет сохранено старое содержимое журнала.

Работа с реестром из WMI и провайдер StdRegProv

Одним из самых полезных провайдеров WMI является провайдер работы с реестром. В отличие от множества других провайдеров все его классы определены не в пространстве имен rootCIMv2, а в пространстве имен rootdefault.

В примере, приведенном в листинге 7, можно увидеть все основные приемы, необходимые для работы с реестром через WMI. В их число входит создание и удаление ключей и значений реестра, а также запись данных в значения реестра и отслеживание событий по изменению ключей и значений реестра. Провайдер StdRegProv предоставляет системе WMI набор внешних источников событий для отслеживания изменений в реестре, что существенно повышает эффективность и скорость отслеживания этих событий.

Листинг 7. Работа с реестром через WMI

Sub REG_OnObjectReady(objObject, objAsyncContext)

    Wscript.Echo "Изменение в реестре: " & objObject.GetObjectText_()

End Sub

'--------------------------------------------------------

strComputer = "."

Const HKEY_LOCAL_MACHINE = &H80000002

strKeyName = "SOFTWAREaRegKey"

strValName = "MyValue"

Set objWMIService = GetObject("winmgmts:\" & strComputer & " ootDEFAULT")

Set objReg = objWMIService.Get("StdRegProv")

objReg.CreateKey HKEY_LOCAL_MACHINE, strKeyName

objReg.SetStringValue HKEY_LOCAL_MACHINE, strKeyName, strValName, "test0"

Set MySink = WScript.CreateObject( _

    "WbemScripting.SWbemSink","REG_")