繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > WMI IE代理 切换或改变(Use WMI Change IE Proxy)
- VBScript
- 用vbs脚本来关闭 HTML 页面的代码
- 用vbs实现确定是否安装了某个特定的补丁
- 用vbs确定用户的登录名的代码
- 用vbs找到映射到共享的所有驱动器并重新映射它们
- 可以从一台远程服务器运行 SP2 安装程序Install.vbs
- 用vbs判断一个日期是否在指定的时段内
- vbs+hta中实现在单个 onClick 参数中包括多个子例程的代码
- vbs中实现启动两个应用程序，一直等到其中一个程序结束，然后关闭另一个？
- 用vbs实现对文本文件中的项计数
- 用vbs对文本文件的内容进行排序
- 用vbscript把 Word 文档保存为文本文件的代码
- 用vbs返回 Internet Explorer 的下载控件和 Applet 的列表
- 用vbscript合并多个文本文件的代码
- 用vbscript防止本地用户更改其密码
- 用vbs针对一个 IP 地址范围运行脚本
- 用vbs 实现从剪贴板中抓取一个 URL 然后在浏览器中打开该 Web 站点
- 使用vbscript脚本在表单中进行选择的代码
- 一个把任何文件转成批处理的vbs脚本Any2Bat.vbs
- windows脚本调试howto的方法
- 注册表的禁用与解锁方法集合
VBScript 中的 WMI IE代理 切换或改变(Use WMI Change IE Proxy)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 174 ::
收藏到网摘: 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
