WMI IE代理怎么实现切换或改变

小天博客 • 04/07 16:32 • 开发 • 阅读 28

这篇文章主要介绍“WMI IE代理怎么实现切换或改变”的相关知识，小编通过实际案例向大家展示操作过程，操作方法简单快捷，实用性强，希望这篇“WMI IE代理怎么实现切换或改变”文章能帮助大家解决问题。
将下面的代码，保存为 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:.rootCIMV2”)
Set objShare = objWMIServ免费云主机域名ice.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
关于“WMI IE代理怎么实现切换或改变”的内容就介绍到这里了，感谢大家的阅读。如果想了解更多行业相关的知识，可以关注百云主机行业资讯频道，小编每天都会为大家更新不同的知识点。

相关推荐: class在es6中怎么使用

今天小编给大家分享一下class在es6中怎么使用的相关知识点，内容详细，逻辑清晰，相信大部分人都还太了解这方面的知识，所以分享这篇文章给大家参考一下，希望大家阅读完这篇文章后有所收获，下面我们一起来了解一下吧。 class在es6中本质是函数（构造器），使用…