自动切换IP设置的脚本

'changeip.vbs

''''''''''''''''''''''''''''START''''''''''''''''''''''''''''''''''''''''''''''''''''

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2")

 

Set colNetAdapters = objWMIService.ExecQuery _

    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

 

strIPAddress1 = Array("192.168.1.169")

strSubnetMask1 = Array("255.255.255.0")

strGateway1 = Array("192.168.1.1")

strGatewayMetric1 = Array(1)

 

strIPAddress2 = Array("192.168.1.66")

strSubnetMask2 = Array("255.255.255.0")

strGateway2 = Array("192.168.1.1")

strGatewayMetric2 = Array(1) 

 

errEnable = 0

errGateways = 0

For Each objNetAdapter in colNetAdapters

If objNetAdapter.Caption = "[00000009] Marvell Yukon 88E8040 PCI-E Fast Ethernet Controller" Then

If objNetAdapter.IPAddress(0) = "192.168.1.169" Then

errEnable = objNetAdapter.EnableStatic(strIPAddress2, strSubnetMask2)

errGateways = objNetAdapter.SetGateways(strGateway2, strGatewaymetric2)

Else

errEnable = objNetAdapter.EnableStatic(strIPAddress1, strSubnetMask1)

errGateways = objNetAdapter.SetGateways(strGateway1, strGatewaymetric1)

End If

If errEnable = 0 Then

WScript.Echo "The IP address has been changed."

Else

WScript.Echo "The IP address could not be changed."

End If

End If

Next

 

''''''''''''''''''''''''''''''''END'''''''''''''''''''''''''''''''''''''''''''''''''''

两组地址改为你需要的值

 

"[00000009] Marvell Yukon 88E8040 PCI-E Fast Ethernet Controller"是你实际使用的网卡的标识，可以通过

WScript.Echo objNetAdapter.Caption

来获取