使用指令碼自動修改ip設定

vbs指令碼的功能非常強大， 管理系統簡單方便！下面的指令碼win2000和winxp都可以使用，win2003沒有測試過，
應該也沒有問題。如果需要經常切換網關，或是ip，這個指令碼是最方便的了。稍微修改一下甚至可以做到1分鐘變一次ip。

changeip.vbsstrComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each objNetAdapter in colNetAdapters
sip=objNetAdapter.IPAddress
strIPAddress = sip '保持原來的ip，如果需要修改ip為192.168.0.200：strIPAddress = Array("192.168.0.200")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.0.254") '修改網關為192.168.0.254
strGatewayMetric = Array(1)

errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 Then
WScript.Echo "The IP address has been changed."
Else
WScript.Echo "The IP address could not be changed."
End If
exit for '只修改第一個網卡的設定
Next