Jump to content

Recommended Posts

Posted

I'm really baffled by this. I have a staff user who doesn't get her proxy set with our STAFF GPO no matter where they log in. So I thought I'd just create a new user to see if it happens for them too, and sure enough this new user doesn't get it set either.

I created a new enforced policy to just set that but it fails too for both these users.

I have used group policy modelling which tells me that the proxy does get set by these policies!

I have other staff users who are completely fine and do get the proxy set?

 

Can anyone suggest where I should be poking now to see what's going on?

 

Thanks

Posted

As a quick fix, for now, does anyone know how to set the proxy and exceptions with a script.

 

I found this...

 

Option Explicit

Dim valUserIn

Dim objShell, RegLocate, RegLocate1

Set objShell = WScript.CreateObject("WScript.Shell")

On Error Resume Next

valUserIn = Inputbox("Enter the Proxy server you want to use.","Proxy Server Required")

RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer"

objShell.RegWrite RegLocate,valUserIn,"REG_SZ"

RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable"

objShell.RegWrite RegLocate,"1","REG_DWORD"

MsgBox "Proxy is Enabled"

WScript.Quit

 

Which sets the proxy via a prompt, I'm going to hack at it to just set it, but not sure how I can do exceptions as well.

Posted

I ended up with this for the script until I can work out what is going on...

Option Explicit

Dim valUserIn

Dim objShell, RegLocate, RegLocate1, RegLocate2

Set objShell = WScript.CreateObject("WScript.Shell")

On Error Resume Next

 

RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer"

objShell.RegWrite RegLocate,"13.24.4.122:3128","REG_SZ"

 

RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable"

objShell.RegWrite RegLocate,"1","REG_DWORD"

 

RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyOverRide"

objShell.RegWrite RegLocate,"*.prenton.internal;10.*","REG_SZ"

 

MsgBox "Proxy is Enabled"

WScript.Quit

  • Thanks 1

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now



×
×
  • Create New...