VBscript - how to Disable "Use Automatic configuration Script"

Question

Hi There
I currently have the below script in a vbs file;
Const HKEY_CURRENT_USER = &H80000001
Set objShell = CreateObject("WScript.Shell")
strPC = objShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
On Error Resume Next
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
strValueName = "ProxyEnable"
objReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
'#==============================================================================
'# If
IE Proxy is currently enabled display message and ask user whether it
'# should
then be disabled
'#==============================================================================
If dwValue = 1 Then
IEPrompt = MsgBox ("Hello David. Your Proxy is on,  Do you want to turn it off?", vbQuestion+vbYesNo, "Disable IE Proxy")
If IEPrompt = vbYes Then
dwValue = 0
objReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue 
MsgBox "Thank You David, your proxy is now off. Have a nice day" & _
".",vbInformation, "Disable IE Proxy"
ElseIf IEPrompt = vbNo Then
MsgBox "David, your Proxy is still on " & _
".",vbInformation, "Disable IE Proxy"
End If
'#==============================================================================
'# If
IE Proxy is currently disabled display message and ask user whether it
'# should
then be enabled
'#==============================================================================
ElseIf dwValue = 0 Then
IEPrompt = MsgBox ("Hello David. Your Proxy is off,  Do you want to turn it on?", vbQuestion+vbYesNo, "Enable IE Proxy")
If IEPrompt = vbYes Then
dwValue = 1
objReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
MsgBox "Thank You David, your proxy is now on. Have a wonderful day" & _
".",vbInformation, "Enable IE Proxy"
ElseIf IEPrompt = vbNo Then
MsgBox "David, your Proxy is still on" & _
".",vbInformation, "Enable IE Proxy"
End If
End If
This only turns off the proxy server in IE/Tools/Internet Options/Connections/Lan Settings.
Can I get this same code to turn of the 'Automatic configuration' check boxes instead or as well?
Many thanks
Luke

Answer 1

Hi Luke,
We hope your issue has been resolved
The registry for use automatic configuration script is under HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\AutoConfigURL
(For per user) It shows when script is set to work.
Regarding to question about scripting or VB script, I’d suggest that post your issue at TechNet scripting Forum and MSND forum. There you can get more effective suggestion by other experts who familiar with scripting. Your understanding is highly appreciated.
https://social.msdn.microsoft.com/Forums/vstudio/en-US/home?forum=vbgeneral
And just for your reference, we do have a Group Policy for that, link it to a scope (Site, Domain, or OU level) which contain user account object.
For more information please refer to following MS article:
Configure a Registry Item
https://technet.microsoft.com/en-us/library/cc753092.aspx
Regards
D. Wu
Please remember to mark the replies as answers if they help, and unmark the answers if they provide no help. If you have feedback for TechNet Support, contact [email protected]