Re: Tunneling Through A Proxy
John
I take it you are using Windows XP? Why don't you create another user? Use one for home with all of you home settings and the other for work.You can set these type of settings differently for each user. The other thing you could do is use a script to change your proxy server when you are home or at work, ie: work_on.vbs work_off.vbs. We have about 250 clients who use our proxy and also use their computers at home. This is how we get around it.
I have included 2 scripts for you below.These scripts will set your proxy or bring it back to auto detect.The first will set.
Just change the PROXY_IP to suit your proxy server. These will work with internet explorer. Make sure IE is closed before running otherwise they won't work.
Hope this is what you were after.
Regards
Nev
'#####SCRIPT_START#######PROXY_ON######
Const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set objRegistry = GetObject("winmgmts:\" & strComputer & "rootdefault:StdRegProv")
strKeyPath = "SOFTWAREMicrosoftWindowsCurrentVersionInternet Settings"
strValueName = "ProxyEnable"
dwValue = 1
objRegistry.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue
strValueName = "ProxyServer"
strValue = "PROXY_IP:8080"
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
strValueName = "ProxyOverride"
strValue = ""
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
'##########SCRIPT_END##########
'###########SCRIPT_START#########PROXY_OFF########
Const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set objRegistry = GetObject("winmgmts:\" & strComputer & "rootdefault:StdRegProv")
strKeyPath = "SOFTWAREMicrosoftWindowsCurrentVersionInternet Settings"
strValueName = "ProxyEnable"
dwValue = 0
objRegistry.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue
strValueName = "ProxyServer"
strValue = "PROXY_IP:8080"
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
strValueName = "ProxyOverride"
strValue = ""
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
'############SCRIPT_END###################