禁用IE代理的脚本

On Error Resume Next

Const HKEY_CURRENT_USER = &H80000001

strComputer = "."
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
strValueName = "ProxyEnable"
strValue = 0

objReg.SetDWordValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue