‘vbscript
Const HKEY_CURRENT_USER = &H80000001
strComputer = “.”
Set objReg = GetObject(“winmgmts:\” & strComputer & “rootdefault:StdRegProv”)

objReg.SetDWORDValue HKEY_CURRENT_USER,”SoftwareMicrosoftWindowsCurrentVersionInternet Settings”,”ProxyEnable”,1
objReg.SetStringValue HKEY_CURRENT_USER,”SoftwareMicrosoftWindowsCurrentVersionInternet Settings”,”ProxyServer”,”proxy:port”
objReg.SetStringValue HKEY_CURRENT_USER,”SoftwareMicrosoftWindowsCurrentVersionInternet Settings”,”strValue “, “<local>”
objReg.SetDWORDValue HKEY_CURRENT_USER,”SoftwareMicrosoftWindowsCurrentVersionInternet Settings”,”EnableAutodial”,0