当前位置： 移动技术网 > IT编程>脚本编程>VBScript > WMI IE代理 切换或改变(Use WMI Change IE Proxy)

WMI IE代理 切换或改变(Use WMI Change IE Proxy)

2017年12月08日  | 移动技术网IT编程  | 我要评论

三头六臂造句,系统加速精灵注册码,山财大文件交换

将下面的代码，保存为 vbs即可
复制代码 代码如下:

if wscript.arguments.count = 0 then
geti = -1
else
geti = cint(wscript.arguments(0))
end if

call yourcode()


'把你弄到的代理都写在一个文本文件里（ip.txt），格式是一行一个： ip:端口
ips = createobject("scripting.filesystemobject").opentextfile("ip.txt", 1, true).readall
ips = split(ips, vbcrlf)


for ips_i = 0 to ubound(ips)
if ips_i > geti then
iptemp = split(ips(ips_i), ":")
changeproxy iptemp(0), iptemp(1)
set wshshell = createobject("wscript.shell")
wshshell.run("cscript " & wscript.scriptfullname & " " & ips_i)
wscript.quit
end if
next


sub yourcode()
'你的代码
end sub

'使用wmi切换ie代理(use wmi change ie proxy)

function changeproxy(ip, port)
'获取计算机名
'set onetwork = wscript.createobject("wscript.network")
'computername=onetwork.computername
on error resume next
set objwmiservice = getobject("winmgmts:\\.\root\cimv2")
set objshare = objwmiservice.get("win32_proxy.servername='computername'")
set objinparam = objshare.methods_("setproxysetting").inparameters.spawninstance_()
objinparam.properties_.item("proxyportnumber") = port
objinparam.properties_.item("proxyserver") = ip
set objoutparams = objwmiservice.execmethod("win32_proxy.servername='computername'", "setproxysetting", objinparam)
end function

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网