中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

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

qingyangecho
初级用户

积分 97
发帖 40
注册 2006-11-1
状态离线

『楼主』: 用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)

2006-11-15 02:05

yjhyxing
初级用户

☆流星雨◇帅气冲天狂

积分 24
发帖 21
注册 2007-3-9
来自广东
状态离线

『第 2 楼』:

请问楼主，这句怎么错误：对象不支持此属性或方法：‘ObjComputer.Rename’
同时也无法设置IP尾数。
IP.VBS 不起作用。

2007-3-13 11:41

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: