Changing Proxy Settings for home/work use

[newdriftking-2008]

dim oShell
set oShell = Wscript.CreateObject("Wscript.Shell")

if msgbox("Do you want to turn the proxy on? (Yes for School and No for Home)", vbQuestion or vbYesNo) = vbYes then
oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\In ternet Settings\ProxyEnable", 1, "REG_DWORD"
oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\In ternet Settings\ProxyServer", "yourproxy and port", "REG_SZ"
oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\In ternet Settings\ProxyOverride", "yourproxy*.*", "REG_SZ"
else
oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\In ternet Settings\ProxyEnable", 0, "REG_DWORD"
end if

Set oShell = Nothing

Hope this helps....

[Arthur]

Fixed!

dim oShell
set oShell = Wscript.CreateObject("Wscript.Shell")

if msgbox("Do you want to turn the proxy on? (Yes for School and No for Home)", vbQuestion or vbYesNo) = vbYes then
  oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 1, "REG_DWORD"
  oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer", "yourproxy and port", "REG_SZ"
  oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyOverride", "yourproxy*.*", "REG_SZ"
else
  oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD"
end if

Set oShell = Nothing

[TheLibrarian]

Slightly off topic; I found this a few days ago, I haven't tried it so I have no idea if it's any good: IconZone.

[pooley]

IE for school, use and firefox for home. Simples

[box_l]

This works brilliantly,

proxyswitch - Proxy Switch is a simple application to switch the system proxy settings in Windows on the fly. - Google Project Hosting.

It works on the fly, no need to restart the browser at all.

BoX