Запросы журнала событий VBSCript

Question

Я пытаюсь создать скрипт для отключения прокси IE через реестр.

Я хочу, чтобы скрипт записывал журнал событий после его запуска.Перед запуском необходимо проверить, существует ли событие.Вот что я написал:

'#  SCRIPT.........:  disable_proxy.vbs
'#  AUTEUR.........:  Sebastien Dion
'#  VERSION........:  1.0
'#  DATE_CREATION..:  2018-11-05
'#  COPYRIGHT......:  2018
'#  DESCRIPTION....:  Désactive le proxy d'Internet Explorer
'============================================================
Const HKEY_CURRENT_USER = &H80000001
Dim regEx, Match, Matches
Dim text
Set objShell = CreateObject("WScript.Shell")
Set fso  = CreateObject("Scripting.FileSystemObject")
text = file.ReadAll
strEventWrite = "eventcreate /T INFORMATION /L APPLICATION /D " & Chr(34) & "Le proxy a été désactivé."
strSearchEvent = "wmic /namespace:\\.\root\cimv2 ntevent where (Message='Le proxy a été désactivé.') get Message > C:\ProgramData\proxy_log.txt"
objShell.Run strSearchEvent
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("C:\ProgramData\proxy_log.txt", 1)

Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
strValueName = "ProxyEnable"

objReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue

'#==============================================================================
'#  Si le proxy est activé, le désactiver et 
'#  écrire un événement dans le journal Application.
'#==============================================================================
If dwValue = 1 Then
        dwValue = 0
        objReg.SetDWORDValue HKURRENT_USER,strKeyPath,strValueName,dwValue
        objShell.Run strEventWrite

'#==============================================================================
'#  Si le proxy est désactivé, écrire un événement dans le journal Application.
'#==============================================================================
    ElseIf dwValue = 0 Then
        objShell.Run strEventWrite


End If

Скрипт не работает, и я не уверен в логике, которую можно использовать для проверки на событие.

Спасибо!