開發(fā)和測(cè)試環(huán)境處于不同的網(wǎng)段，經(jīng)常需要更改IP,手工修改非常麻煩。后來找到了一個(gè)vbs小腳本，實(shí)現(xiàn)了自動(dòng)切換。

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

分別新添兩個(gè)文件Turn30.vbs和Turn41.vbs ,內(nèi)容如下：

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即可執(zhí)行。

參考網(wǎng)站：
http://www.microsoft.com/china/technet/community/scriptcenter/network/scrnet01.mspx

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。