用CMD写入电脑的IP和网关 - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

电脑上的网关和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)