vbscript to change IE Proxy


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
 
Ad

Advertisements

G

Guest

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
 
W

William Hymen

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
 
G

Guest

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
 
W

William Hymen

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
 
Joined
Feb 6, 2009
Messages
1
Reaction score
0
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
 
Ad

Advertisements

Joined
Nov 24, 2009
Messages
1
Reaction score
0
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.
 
Ad

Advertisements

Joined
Jun 16, 2011
Messages
1
Reaction score
0
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?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top