開發和測試環境處于不同的網段，經常需要更改IP,手工修改非常麻煩。后來找到了一個vbs小腳本，實現了自動切換。

假如IP段分別為192.168.30.*和192.168.41.*

分別新添兩個文件Turn30.vbs和Turn41.vbs ,內容如下：

strComputer?=?"."
Set?objWMIService?=?GetObject("winmgmts:\\"?&?strComputer?&?"\root\cimv2")
Set?colNetAdapters?=?objWMIService.ExecQuery?_
????("Select?*?from?Win32_NetworkAdapterConfiguration?where?IPEnabled=TRUE")
strIPAddress?=?Array("192.168.30.99")
strSubnetMask?=?Array("255.255.255.0")
strGateway?=?Array("192.168.30.254") strDNS =?Array("192.168.30.254")
strGatewayMetric?=?Array(1) strDNS2 =?Array(1)
For?Each?objNetAdapter?in?colNetAdapters
????errEnable?=?objNetAdapter.EnableStatic(strIPAddress,?strSubnetMask)
????errGateways?=?objNetAdapter.SetGateways(strGateway,?strGatewaymetric) ??? errDNS=objNetAdapter.SetDNSServerSearchOrder(strDNS,strDNS2)
????If?errEnable?=?0?Then
????????WScript.Echo?"The?IP?address?has?been?changed?to?"&strIPAddress(0)
????Else
????????WScript.Echo?"The?IP?address?could?not?be?changed."
????End?If
Next?
strComputer?=?"."
Set?objWMIService?=?GetObject("winmgmts:\\"?&?strComputer?&?"\root\cimv2")
Set?colNetAdapters?=?objWMIService.ExecQuery?_
????("Select?*?from?Win32_NetworkAdapterConfiguration?where?IPEnabled=TRUE")
strIPAddress?=?Array("192.168.41.52")
strSubnetMask?=?Array("255.255.255.0")
strGateway?=?Array("192.168.41.1")
strDNS =?Array("192.168.41.254")
strGatewayMetric?=?Array(1) strDNS2 =?Array(1)
For?Each?objNetAdapter?in?colNetAdapters
????errEnable?=?objNetAdapter.EnableStatic(strIPAddress,?strSubnetMask)
????errGateways?=?objNetAdapter.SetGateways(strGateway,?strGatewaymetric) ?????errDNS=objNetAdapter.SetDNSServerSearchOrder(strDNS,strDNS2)
????If?errEnable?=?0?Then
????????WScript.Echo?"The?IP?address?has?been?changed?to?"&strIPAddress(0)
????Else
????????WScript.Echo?"The?IP?address?could?not?be?changed."
????End?If
Next

使用方法：直接雙擊Turn30.vbs或Turn41.vbs即可執行。

參考網站：
http://www.microsoft.com/china/technet/community/scriptcenter/network/scrnet01.mspx

總結

以上是生活随笔為你收集整理的用vbs自动切换不同网段的IP的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。