cmd /c netsh interface ip delete dns "本地连接" addr=all
cmd /c netsh interface ip set address name="本地连接" source=static addr=192.168.10.0 mask=255.255.255.0 gateway=192.168.10.1 gwmetric=1
cmd /c netsh interface ip set dns name="本地连接" source=static addr=202.96.128.68
cmd /c netsh interface ip add dns name="本地连接" addr=202.96.128.110 index=2
ip.vbs
IP.VBS内容
Dim Num
Num=Inputbox ("请输入IP尾数")
If Num < 10 Then
Num = "0" & Num
End If
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("192.168.10."&Num)
strSubnetMask = Array("255.255.255.0")
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
Next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
ObjComputer.Rename("a" &Num)
Next
Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")
objNetworkSettings.SetIPXVirtualNetworkNumber(Num)作者: yjhyxing 时间: 2007-3-13 11:41 请问楼主,这句怎么错误:对象不支持此属性或方法:‘ObjComputer.Rename’
同时也无法设置IP尾数。
IP.VBS 不起作用。