IE Explorer Proxy Override
Snippet Menu
3
Mon. Mar. 31st, 2008 6:10 PM 
1 of 1
berkeley_mikeg
explorer | IE | Internet | override | proxy 
0 comments
I have created this sippet because I VPN into work to check problems or e-mail and had to change my IE settings to surf the internet. With this sippet, once configured will allow you to override your internet explorer proxy settings to connect and browse the internet with one double click of the mouse or as I have done, add it to my VPN profile auto starter and it reconfigures my internet browser after i'm connected.
(this will shut the browser if it's running, make the changes and launch it with the changed configuration)
(this will shut the browser if it's running, make the changes and launch it with the changed configuration)
Const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
strValueName = "ProxyEnable"
dwValue = 1
objRegistry.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue
'
' Place your company Proxy information here and Port number here
'
strValueName = "ProxyServer"
strValue = "http=my.intranetproxy.proxy.com:8080;https=my.intranetproxy.proxy.com:8080;ftp=my.intranetproxy.proxy.com:8080;gopher=my.intranetproxy.proxy.com:8080;"
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
'
' This section will allow you to place a proxy override url seperate url's be semi colons.
'
strValueName = "ProxyOverride"
strValue = "<local>;*.my intranet . com" <-- change me
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
strComputer = "."
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
'
' this will allow you to change your start "home page" in IE Explorer
'
strKeyPath = "SOFTWARE\Microsoft\Internet Explorer\Main"
ValueName = "Start Page"
strValue = "http://myintranet.site.com" <-- change me
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue
Dim WSHShell
Set WSHShell = Wscript.CreateObject("WScript.Shell")
bat_file = "%systemroot%\system32\"
bat_file2 = "kill_ie.bat " & mdl
cmd_bat = bat_file&bat_file2
'Info = MsgBox ("bat_file = " & bat_file & " " & cmd_bat & "")
WshShell.Run cmd_bat,0,TRUE
Votes Up
Votes Down
There are currently no comments for this snippet.