用vbs自动切换不同网段的IP

开发和测试环境处于不同的网段，经常需要更改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

邀月注：本文版权由邀月和CSDN共同所有，转载请注明出处。

助人等于自助! 3w@live.cn