WMI IE代理 切換或改變(Use WMI Change IE Proxy)
來源:易賢網(wǎng) 閱讀:1348 次 日期:2016-07-20 14:17:38
溫馨提示:易賢網(wǎng)小編為您整理了“WMI IE代理 切換或改變(Use WMI Change IE Proxy)”,方便廣大網(wǎng)友查閱!

將下面的代碼,保存為 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

更多信息請查看腳本欄目
易賢網(wǎng)手機網(wǎng)站地址:WMI IE代理 切換或改變(Use WMI Change IE Proxy)
由于各方面情況的不斷調(diào)整與變化,易賢網(wǎng)提供的所有考試信息和咨詢回復(fù)僅供參考,敬請考生以權(quán)威部門公布的正式信息和咨詢?yōu)闇剩?/div>

2025國考·省考課程試聽報名

  • 報班類型
  • 姓名
  • 手機號
  • 驗證碼
關(guān)于我們 | 聯(lián)系我們 | 人才招聘 | 網(wǎng)站聲明 | 網(wǎng)站幫助 | 非正式的簡要咨詢 | 簡要咨詢須知 | 加入群交流 | 手機站點 | 投訴建議
工業(yè)和信息化部備案號:滇ICP備2023014141號-1 云南省教育廳備案號:云教ICP備0901021 滇公網(wǎng)安備53010202001879號 人力資源服務(wù)許可證:(云)人服證字(2023)第0102001523號
聯(lián)系電話:0871-65099533/13759567129 獲取招聘考試信息及咨詢關(guān)注公眾號:hfpxwx
咨詢QQ:526150442(9:00—18:00)版權(quán)所有:易賢網(wǎng)