繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > WMI IE代理 切换或改变(Use WMI Change IE Proxy)
- VBScript
- VBS教程：属性-ShareName 属性
- VBS教程：属性-SerialNumber 属性
- VBS教程：属性-RootFolder 属性
- VBS教程：属性-Path 属性
- VBS教程：属性-ParentFolder 属性
- VBS教程：属性-Name 属性
- VBS教程：属性-Line 属性
- VBS教程：属性-Key 属性
- VBS教程：属性-Item 属性
- VBS教程：属性-IsRootFolder 属性
- VBS教程：属性-IsReady 属性
- VBS教程：属性-FreeSpace 属性
- VBS教程：属性-FileSystem 属性
- VBS教程：属性-Files 属性
- VBS教程：属性-DriveType 属性
- VBS教程：属性-Drives 属性
- VBS教程：属性-DriveLetter 属性
- VBS教程：属性-Drive 属性
- VBS教程：属性-DateLastModified 属性
- VBS教程：属性-DateLastAccessed 属性
VBScript 中的 WMI IE代理 切换或改变(Use WMI Change IE Proxy)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 166 ::
收藏到网摘: 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
