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
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!
I will try to find that.
If continues mark as spam the email from the blog please.