用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