reggiep Posted September 23, 2013 Posted September 23, 2013 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
reggiep Posted September 23, 2013 Author Posted September 23, 2013 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.
reggiep Posted September 23, 2013 Author Posted September 23, 2013 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 1
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now