IE Proxy

Now let's set the proxy options in Internet Explorer

The path in registry

strRegKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"

In order to check the box number 1 we will add this key:

WshShell.RegWrite strRegKey & "AutoDetect", "00000001", "REG_DWORD"

In order to check the box number 2 we will add this key:

WshShell.RegWrite strRegKey & "ProxyEnable", "00000001", "REG_DWORD"

In order to check the box number 3 we will add this key, where strProxyServer is the ip and port of Proxy Server:

WshShell.RegWrite strRegKey & "ProxyServer", strProxyServer, "REG_SZ"

For the box number 4 we will follow a different method. We will use a key that belongs to another option and then check the box using <local>.

...
stroverride = "192.168.100.100;192.168.101;<local>"
...
WshShell.RegWrite strRegKey & "ProxyOverride", stroverride, "REG_SZ"
...

Here belongs to the previous key. When we don't want to bypass the whole LAN, we remove the <local>.

...
stroverride = "192.168.100.100;192.168.101;<local>"
...
WshShell.RegWrite strRegKey & "ProxyOverride", stroverride, "REG_SZ"
...

Script IE exceptions + Proxy

Exception "192.168.100.100" 
Exception "192.168.100.101"


Function Exception(Site) 

strProxyServer = "192.168.100.250:9999"
stroverride = "192.168.100.100;192.168.101;<local>"

    Set WshShell = Wscript.CreateObject("Wscript.Shell") 
	
'------Trusted Sites------' 
	
    strRegKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\" 
		WshShell.RegWrite strRegKey & Site & "\" ,"" , "REG_SZ"
		WshShell.RegWrite strRegKey & Site & "\" & ":Range" , Site, "REG_SZ" 
		WshShell.RegWrite strRegKey & Site & "\*", "2", "REG_DWORD" 
		
'------Privacy::Sites------' 
	
	strRegKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\P3P\History\" 
   
		WshShell.RegWrite strRegKey & Site & "\", 1, "REG_DWORD" 
		
'------Privacy::Pop-up Blocker------'
	
	strRegKey = "HKCU\Software\Microsoft\Internet Explorer\New Windows\Allow\"
	
		WshShell.RegWrite strRegKey & Site, 0, "REG_BINARY"
		
'------SSL/TLS------'
	
	strRegKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\SecureProtocols"
	
		WshShell.RegWrite strRegKey, 2730, "REG_DWORD"
		
'------Proxy------'
		
		
	strRegKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
		WshShell.RegWrite strRegKey & "ProxyEnable", "00000001", "REG_DWORD"
		WshShell.RegWrite strRegKey & "ProxyServer", strProxyServer, "REG_SZ"
		WshShell.RegWrite strRegKey & "ProxyOverride", stroverride, "REG_SZ"
		WshShell.RegWrite strRegKey & "AutoDetect", "00000001", "REG_DWORD"
	
'------Compatibility View------'

		strHexValue = "41,1F,00,00,53,08,AD,BA,02,00,00,00,6C,00,00,00,01,00,00,00,02,00,00,00,0C,00,00,00,B8,17,0B,96,3A,52,D5,01,01,00,00,00,0F,00,31,00,39,00,32,00,2E,00,31,00,36,00,38,00,2E,00,31,00,30,00,30,00,2E,00,31,00,30,00,30,00,0C,00,00,00,6A,84,79,9B,3A,52,D5,01,01,00,00,00,0F,00,31,00,39,00,32,00,2E,00,31,00,36,00,38,00,2E,00,31,00,30,00,30,00,2E,00,31,00,30,00,31,00"

arrValue = Split(strHexValue, ",")
ReDim uBinary(UBound(arrValue))
For i = LBound(arrValue) To UBound(arrValue)
    uBinary(i) = CLng("&h" & arrValue(i))
Next

Const HKEY_CURRENT_USER = &H80000001
	Set objRegistry = GetObject("Winmgmts:root\default:StdRegProv")
	strPath = "Software\Microsoft\Internet Explorer\BrowserEmulation\ClearableListData"
	strValueToWrite = "UserFilter"
	objRegistry.CreateKey HKEY_CURRENT_USER, strPath
	intReturn = objRegistry.SetBinaryValue(HKEY_CURRENT_USER, strPath, strValueToWrite, uBinary)

	
	
End Function

2 Comments on “IE Proxy

  1. After I initially commented I appear to have clicked the -Notify me
    when new comments are added- checkbox and from now on each time a comment is added I recieve 4 emails with the exact same comment.
    There has to be a way you are able to remove me from that
    service? Thank you!

Leave a Reply

Your email address will not be published. Required fields are marked *

*