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

该脚本不起作用，我不确定用于检查事件的逻辑。

谢谢！

VBSCript事件日志查询

0 个答案: