vbscript to change IE Proxy

  • Thread starter Thread starter William Hymen
  • Start date Start date
W

William Hymen

I am looking for a hard coded vbscript to plug in
the company proxy and exclusion list:
Connections -> LAN settings -> Proxy Server [advanced] [exceptions];
And another script to "uncheck" all that and enable "Automatically detect
settings"

We are having problems supporting home
users who want to connect to the company
intranet using a VPN client; then later
disconnect and surf the web using their own ISP.
(the ISP would use either NO proxy or automatically detect settings.

They all have cable modems and routers using DHCP.
But we don't support anything beyond the laptop;
that's up to the home user. ( we don't have enough staff to support
routers that they buy)

Nothing seems to work except changing the proxy.

Thanks to much in advance.

Bill
 
Basically just right a script that r/w to the following registry location

HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings
ProxyEnable <- REG_DWORD Val '0' Off, '1' On
ProxyOverride <- REG_SZ Val ';' delimited

Jeremy
 
Thanks,

But I'm looking for some vbscript samples
from someone who has coded a working solution.

Thanks anyway!

Bill

J Ford said:
Basically just right a script that r/w to the following registry location

HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings
ProxyEnable <- REG_DWORD Val '0' Off, '1' On
ProxyOverride <- REG_SZ Val ';' delimited

Jeremy

William Hymen said:
I am looking for a hard coded vbscript to plug in
the company proxy and exclusion list:
Connections -> LAN settings -> Proxy Server [advanced] [exceptions];
And another script to "uncheck" all that and enable "Automatically detect
settings"

We are having problems supporting home
users who want to connect to the company
intranet using a VPN client; then later
disconnect and surf the web using their own ISP.
(the ISP would use either NO proxy or automatically detect settings.

They all have cable modems and routers using DHCP.
But we don't support anything beyond the laptop;
that's up to the home user. ( we don't have enough staff to support
routers that they buy)

Nothing seems to work except changing the proxy.

Thanks to much in advance.

Bill
Click to expand...
Click to expand...
 
Here, you click it once it will enable it, you click it again it will disable
it:

<script>
Const HKCU=&H80000001 'HKEY_CURRENT_USER
Const HKLM=&H80000002 'HKEY_LOCAL_MACHINE

Const REG_SZ=1
Const REG_EXPAND_SZ=2
Const REG_BINARY=3
Const REG_DWORD=4
Const REG_MULTI_SZ=7

Const HKCU_IE_PROXY = "Software\Microsoft\Windows\CurrentVersion\Internet
Settings"

Set oReg=GetObject("winmgmts:!root/default:StdRegProv")

Main

Sub Main()

' If Proxy is set then turn it off
If GetValue(HKCU,HKCU_IE_PROXY,"ProxyEnable",REG_DWORD) = 1 AND
Len(GetValue(HKCU,HKCU_IE_PROXY,"ProxyServer",REG_SZ)) > 0 Then
CreateValue HKCU,HKCU_IE_PROXY,"ProxyEnable",0,REG_DWORD
wscript.echo "Proxy Disabled"
Else
' If Proxy is not set then turn it on

strProxyServer = "MyProxySvr:80"
strProxyOveride = "*.domain.com;*.domain2.com;*domain3.com"

CreateValue HKCU,HKCU_IE_PROXY,"ProxyServer",strProxyServer,REG_SZ
CreateValue HKCU,HKCU_IE_PROXY,"ProxyEnable",1,REG_DWORD
CreateValue HKCU,HKCU_IE_PROXY,"ProxyOverride",strProxyOveride,REG_SZ
wscript.echo "Proxy Enabled" & vbcrlf & "(" & strProxyServer & ")"
End If

End Sub

Function CreateValue(Key,SubKey,ValueName,Value,KeyType)
Select Case KeyType
Case REG_SZ
CreateValue = oReg.SetStringValue(Key,SubKey,ValueName,Value)
Case REG_EXPAND_SZ
CreateValue =
oReg.SetExpandedStringValue(Key,SubKey,ValueName,Value)
Case REG_BINARY
CreateValue = oReg.SetBinaryValue(Key,SubKey,ValueName,Value)
Case REG_DWORD
CreateValue = oReg.SetDWORDValue(Key,SubKey,ValueName,Value)
Case REG_MULTI_SZ
CreateValue =
oReg.SetMultiStringValue(Key,SubKey,ValueName,Value)
End Select
End Function

Function DeleteValue(Key, SubKey, ValueName)
DeleteValue = oReg.DeleteValue(Key,SubKey,ValueName)
End Function

Function GetValue(Key, SubKey, ValueName, KeyType)

Dim Ret

Select Case KeyType
Case REG_SZ
oReg.GetStringValue Key, SubKey, ValueName, Value
Ret = Value
Case REG_EXPAND_SZ
oReg.GetExpandedStringValue Key, SubKey, ValueName, Value
Ret = Value
Case REG_BINARY
oReg.GetBinaryValue Key, SubKey, ValueName, Value
Ret = Value
Case REG_DWORD
oReg.GetDWORDValue Key, SubKey, ValueName, Value
Ret = Value
Case REG_MULTI_SZ
oReg.GetMultiStringValue Key, SubKey, ValueName, Value
Ret = Value
End Select

GetValue = Ret
End Function
</script>

William Hymen said:
Thanks,

But I'm looking for some vbscript samples
from someone who has coded a working solution.

Thanks anyway!

Bill

J Ford said:
Basically just right a script that r/w to the following registry location

HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings
ProxyEnable <- REG_DWORD Val '0' Off, '1' On
ProxyOverride <- REG_SZ Val ';' delimited

Jeremy

William Hymen said:
I am looking for a hard coded vbscript to plug in
the company proxy and exclusion list:
Connections -> LAN settings -> Proxy Server [advanced] [exceptions];
And another script to "uncheck" all that and enable "Automatically detect
settings"

We are having problems supporting home
users who want to connect to the company
intranet using a VPN client; then later
disconnect and surf the web using their own ISP.
(the ISP would use either NO proxy or automatically detect settings.

They all have cable modems and routers using DHCP.
But we don't support anything beyond the laptop;
that's up to the home user. ( we don't have enough staff to support
routers that they buy)

Nothing seems to work except changing the proxy.

Thanks to much in advance.

Bill
Click to expand...
Click to expand...
Click to expand...
 
Thanks!

J Ford said:
Here, you click it once it will enable it, you click it again it will disable
it:

<script>
Const HKCU=&H80000001 'HKEY_CURRENT_USER
Const HKLM=&H80000002 'HKEY_LOCAL_MACHINE

Const REG_SZ=1
Const REG_EXPAND_SZ=2
Const REG_BINARY=3
Const REG_DWORD=4
Const REG_MULTI_SZ=7

Const HKCU_IE_PROXY = "Software\Microsoft\Windows\CurrentVersion\Internet
Settings"

Set oReg=GetObject("winmgmts:!root/default:StdRegProv")

Main

Sub Main()

' If Proxy is set then turn it off
If GetValue(HKCU,HKCU_IE_PROXY,"ProxyEnable",REG_DWORD) = 1 AND
Len(GetValue(HKCU,HKCU_IE_PROXY,"ProxyServer",REG_SZ)) > 0 Then
CreateValue HKCU,HKCU_IE_PROXY,"ProxyEnable",0,REG_DWORD
wscript.echo "Proxy Disabled"
Else
' If Proxy is not set then turn it on

strProxyServer = "MyProxySvr:80"
strProxyOveride = "*.domain.com;*.domain2.com;*domain3.com"

CreateValue HKCU,HKCU_IE_PROXY,"ProxyServer",strProxyServer,REG_SZ
CreateValue HKCU,HKCU_IE_PROXY,"ProxyEnable",1,REG_DWORD
CreateValue HKCU,HKCU_IE_PROXY,"ProxyOverride",strProxyOveride,REG_SZ
wscript.echo "Proxy Enabled" & vbcrlf & "(" & strProxyServer & ")"
End If

End Sub

Function CreateValue(Key,SubKey,ValueName,Value,KeyType)
Select Case KeyType
Case REG_SZ
CreateValue = oReg.SetStringValue(Key,SubKey,ValueName,Value)
Case REG_EXPAND_SZ
CreateValue =
oReg.SetExpandedStringValue(Key,SubKey,ValueName,Value)
Case REG_BINARY
CreateValue = oReg.SetBinaryValue(Key,SubKey,ValueName,Value)
Case REG_DWORD
CreateValue = oReg.SetDWORDValue(Key,SubKey,ValueName,Value)
Case REG_MULTI_SZ
CreateValue =
oReg.SetMultiStringValue(Key,SubKey,ValueName,Value)
End Select
End Function

Function DeleteValue(Key, SubKey, ValueName)
DeleteValue = oReg.DeleteValue(Key,SubKey,ValueName)
End Function

Function GetValue(Key, SubKey, ValueName, KeyType)

Dim Ret

Select Case KeyType
Case REG_SZ
oReg.GetStringValue Key, SubKey, ValueName, Value
Ret = Value
Case REG_EXPAND_SZ
oReg.GetExpandedStringValue Key, SubKey, ValueName, Value
Ret = Value
Case REG_BINARY
oReg.GetBinaryValue Key, SubKey, ValueName, Value
Ret = Value
Case REG_DWORD
oReg.GetDWORDValue Key, SubKey, ValueName, Value
Ret = Value
Case REG_MULTI_SZ
oReg.GetMultiStringValue Key, SubKey, ValueName, Value
Ret = Value
End Select

GetValue = Ret
End Function
</script>

William Hymen said:
Thanks,

But I'm looking for some vbscript samples
from someone who has coded a working solution.

Thanks anyway!

Bill

J Ford said:
Basically just right a script that r/w to the following registry location

HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings
ProxyEnable <- REG_DWORD Val '0' Off, '1' On
ProxyOverride <- REG_SZ Val ';' delimited

Jeremy

:

I am looking for a hard coded vbscript to plug in
the company proxy and exclusion list:
Connections -> LAN settings -> Proxy Server [advanced] [exceptions];
And another script to "uncheck" all that and enable "Automatically detect
settings"

We are having problems supporting home
users who want to connect to the company
intranet using a VPN client; then later
disconnect and surf the web using their own ISP.
(the ISP would use either NO proxy or automatically detect settings.

They all have cable modems and routers using DHCP.
But we don't support anything beyond the laptop;
that's up to the home user. ( we don't have enough staff to support
routers that they buy)

Nothing seems to work except changing the proxy.

Thanks to much in advance.

Bill
Click to expand...
Click to expand...
Click to expand...
 
I have a little question about this thread (sorry for my inexperience).

How can "insert" this script into a BAT / HTML / COM / EXE file to execute him later??

Thanks in advance

PS: sorry for my horrible english

Juan Pablo
 
Batch File

All you should have to do is just create the batch file and put the VBScript file name on the first line of the batch file.

Although you really don't need the batch file, all they need to do is double click on the VBScript. If this is part of a group of commands you need them to run then you could use the batch file, other than that as I mentioned there is no need for a batch file.
 
did you manage to get this script to work? it doesnt work for me. it executes and nothing happens. Does it depend of the version of IE?
 
Back
Top