标题: 用CMD写入电脑的IP和网关 [打印本页]

---

作者: qingyangecho     时间: 2006-11-15 02:05    标题: 用CMD写入电脑的IP和网关

电脑上的网关和IP我是利用批处理ALL_IP.BAT和IP.VBS写入,其中IP可以选择最后一个位数?        192.168.10.*
怎么样才能更改成写入最二两个住数?       192.168.*.*
另外,使网关也处于可改写最后两个位数?

ALL_IP.BAT内容
@CLS
@COLOR 0A

rem 更改本地连接一系列选顶批处理
@pause

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 不起作用。