1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
Set oWshShell = CreateObject("WScript.Shell")
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
strRegPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
strValueName = "ProxyEnable"
dwValue = 1
objRegistry.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue
Call oWshShell.RegWrite(strRegPath & "ProxyEnable", "00000001", "REG_DWORD")
strValueName = "ProxyServer"
strValue = "192.168.10.58:3128"
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
strValueName = "ProxyOverride"
strValue = "<local>" |