繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > WMI IE代理 切换或改变(Use WMI Change IE Proxy)
- VBScript
- 用vbscript得到注册表中是否存在某个值
- 用vbscript实现修改屏幕保护的等待时间长度
- 用vbscript实现在消息框中显示一个超链接
- 用vbscript实现将脚本的输出复制到剪贴板
- 视频转换大师WinMPG Video Convert 6.63
- 用vbs实现取消隐藏文件夹中的所有文件
- 用vbscript实现从文本文件中删除所有重复行的代码
- 用vbscript实现在文本文件中搜索两个项
- 用vbscript实现启用 Caps Lock （大写）键
- vbscript和javascript版的15位, 18位的身份证号码的验证函数.以及根据身份证取省份,生日,性别
- 发老兵及海洋VBS解包工具代码
- 把vbscript发挥到它的极限应用之一(数组)！！！
- VBScript:Join 函数一个不太常用，却很有用的函数
- 最新恶意复制型病毒autorun.inf，stNP.VBS，NP.VBS代码简单解析和解决方法
- 用vbscript脚本实现返回 IP 配置数据的代码
- 用vbs实现配置静态 IP 地址
- 用vbs得到计算机的 IP 地址
- 用vbs实现枚举网络连接的代码
- IIS管理脚本之adsutil.vbs的使用说明
- 用VBS修改IIS Metabase的代码
VBScript 中的 WMI IE代理 切换或改变(Use WMI Change IE Proxy)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 175 ::
收藏到网摘: 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
