Set proxy server in IE

最新推荐文章于 2023-04-18 10:47:10 发布

原创最新推荐文章于 2023-04-18 10:47:10 发布 · 703 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#server #ie

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

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