Set proxy server in IE_setproxyserver-优快云博客

本文介绍了一段使用VBScript设置及取消Windows系统代理服务器的脚本。通过弹窗询问用户是否启用代理，根据用户选择，脚本将写入注册表以开启或关闭代理设置，并指定代理服务器地址。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Set WshShell = WScript.CreateObject("WScript.Shell")
selt = WshShell.Popup ("Do you want to use proxy server？",0,,3)
Select Case selt
Case 6
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Internet Settings/ProxyEnable",1,"REG_DWORD"
WshShell.RegWrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Internet Settings/ProxyHttp1.1",1,"REG_DWORD"
WshShell.RegWrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Internet Settings/ProxyServer", "XXX.XXX.XXX.XXX:80","REG_SZ"
WScript.Echo "The proxy server had been setted！"
Case 7
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Internet Settings/ProxyEnable",0,"REG_DWORD"
WshShell.RegWrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Internet Settings/ProxyHttp1.1",0,"REG_DWORD"
WshShell.RegWrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Internet Settings/ProxyServer", "","REG_SZ"
WScript.Echo "The proxy server had been canel！"
End Select
set WshShell = nothing
WScript.quit
---------------------------------------------------------------------------
Remark: XXX.XXX.XXX.XXX is the proxy server IP