'***************************************************************************
'
' IE proxy settings for machine
'
'***************************************************************************
Option Explicit
Dim Enabled, Shell, Key
Const Policies = "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\CurrentVersion\Internet Settings\ProxySettingsPerUser"
Const Proxy = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
Const Server="\ProxyServer"
Const OverRide = "\ProxyOverride"
Const Enable = "\ProxyEnable"
Const ProxyServer = "192.168.10.1"
Const ProxyPort = "3128"
Set Shell = Wscript.CreateObject("Wscript.Shell")
Key = Policies
Shell.RegWrite Key, 0, "REG_DWORD"
Key = Proxy & Server
Shell.RegWrite Key, ProxyServer & ":" & ProxyPort, "REG_SZ"
Key = Proxy & OverRide
Shell.RegWrite Key, "<local>","REG_SZ"
Key = Proxy & Enable
Shell.RegWrite Key, 1, "REG_DWORD"
Set Shell = Nothing |
