'#==============================================================================
'#==============================================================================
'# SCRIPT.........: Enable Disable IE Proxy.vbs
'# AUTHOR.........: Stuart Barrett
'# VERSION........: 1.0
'# CREATED........: 15/09/10
'# COPYRIGHT......: 2010
'# LICENSE........: Freeware
'# REQUIREMENTS...:
'# DESCRIPTION....: Enables or disables IE proxy on the local system
'#
'# NOTES..........:
'#
'# CUSTOMIZE......:
'#==============================================================================
'# REVISED BY.....:
'# EMAIL..........:
'# REVISION DATE..:
'# REVISION NOTES.:
'#
'#==============================================================================
'#==============================================================================
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 ("IE Proxy is currently ENABLED on " & strPC & _
". Do you want to DISABLE it?", vbQuestion+vbYesNo, "Disable IE Proxy")
If IEPrompt = vbYes Then
dwValue = 0
objReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
MsgBox "IE Proxy is now DISABLED on " & strPC & _
".",vbInformation, "Disable IE Proxy"
ElseIf IEPrompt = vbNo Then
MsgBox "IE Proxy is still ENABLED on " & strPC & _
".",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 ("IE Proxy is currently DISABLED on " & strPC & _
". Do you want to ENABLE it?", vbQuestion+vbYesNo, "Enable IE Proxy")
If IEPrompt = vbYes Then
dwValue = 1
objReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
MsgBox "IE Proxy is now ENABLED on " & strPC & _
".",vbInformation, "Enable IE Proxy"
ElseIf IEPrompt = vbNo Then
MsgBox "IE Proxy is still DISABLED on " & strPC & _
".",vbInformation, "Enable IE Proxy"
End If
End If
ASKER
The Microsoft Legacy Operating System topic includes legacy versions of Microsoft operating systems prior to Windows 2000: All versions of MS-DOS and other versions developed for specific manufacturers and Windows 3/3.1, Windows 95 and Windows 98, plus any other Windows-related versions, and Windows Mobile.
TRUSTED BY
ASKER
utoconfigure Scripts for Proxy Settings through IE Scripts
but i need it to dtermine if the PC is in the domain "media.tv" to take the proxy if not to connect direct without proxy
Open in new window