繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > WMI IE代理 切换或改变(Use WMI Change IE Proxy)
- VBScript
- VBS教程：对象-正则表达式(RegExp)对象
- VBS教程：对象-Matches 集合
- VBS教程：对象-Match 对象
- VBS教程：对象-Err
- VBS教程：对象-Class 对象
- VBS教程：VBScript 对象
- VBS教程：字符集 (0 - 127)
- VBS教程：方法-Test 方法
- VBS教程：方法-Replace 方法
- VBS教程：方法-Raise 方法
- VBS教程：方法-Execute 方法
- VBS教程：方法-Clear 方法
- VBS教程：函数-Year 函数
- VBS教程：函数-WeekDayName 函数
- VBS教程：函数-Weekday 函数
- VBS教程：函数-VarType 函数
- VBS教程：函数-UCase 函数
- VBS教程：函数-UBound 函数
- VBS教程：函数-TypeName 函数
- VBS教程：函数-TimeValue
VBScript 中的 WMI IE代理 切换或改变(Use WMI Change IE Proxy)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 188 ::
收藏到网摘: n/a
将下面的代码，保存为 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
评论 (0) All
