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
|
|
當前位置：開發者網絡 >> 技術教程 >> .NET教程 >> 面向對像編程 >> 內容
