中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-06 08:34 		共 48,039 主题排行 / 350,124 发帖 / 今日 0 篇 / 48,251 会员排行
DOS批处理 & 脚本技术（批处理室） » 根具MAC地址来修改计算机名，求vbs脚本一个？
可打印版本 　1,183 / 8
第1楼　vcstone 发表于 2007-11-07 11:22
初级用户　发帖 39　积分 98
根具MAC地址来修改计算机名，求vbs脚本一个？
环境：XP SP2 ， WINDOWS 2003
目标：通过脚本检测出机器MAC地址，然后以MAC地址修改计算机名
例如：MAC=00-40-63-d4-56-62 则将计算机名改为004063d45662
请高手指点！再有，希望哪位能提供多一些VBS方面的学习资料，详细一点的，函数之类的，暂时只找到“vbs简明教程”，虽然上手容易，不过太过简洁了，呵呵，谢谢！
第2楼　vcstone 发表于 2007-11-07 11:41
初级用户　发帖 39　积分 98
P要解决也不难，哪位大侠路过P我一个也行。只是小弟现正学VBS所以想用VBS来解决。
第3楼　lxmxn 发表于 2007-11-07 12:24
版主　发帖 4,938　积分 11,386
命令行执行：


测试环境:cmd @ xp sp2
第4楼　abcd 发表于 2007-11-07 12:27
银牌会员　发帖 739　积分 1,436


获取MAC地址，修改计算机名，自己写吧
第5楼　abcd 发表于 2007-11-07 12:38
银牌会员　发帖 739　积分 1,436
提示一下：

可以用Win32_ComputerSystem对象的rename方法修改计算名
第6楼　vcstone 发表于 2007-11-07 13:11
初级用户　发帖 39　积分 98
谢谢。。先做测试
第7楼　vcstone 发表于 2007-11-07 14:43
初级用户　发帖 39　积分 98
谢谢ABCD。。
用Set mc=GetObject("winmgmts:\\"&"."&"\root\cimv2").InstancesOf("Win32_NetworkAdapterConfiguration")
For each mac In mc
If mac.IPEnabled=True Then
mac=mac.MACAddress
Exit For
End If
Next
mac=Replace(mac,":","")
strcomputer="."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
ObjComputer.Rename(mac)
Next
已经成功了

还想问一下 lxmxn版主 ，你的代码我不太懂。在XP下执行没有提示错误，但没有改到机器名，请指教？
第8楼　lxmxn 发表于 2007-11-07 17:05
版主　发帖 4,938　积分 11,386
我的代码在我这里测试是正常的，只是在cmd里面显示不出来，可能需要重启的。

在我的电脑属性上面可以看见已经改过来了。
第9楼　vcstone 发表于 2007-11-07 17:13
初级用户　发帖 39　积分 98
还是先谢谢版主，我是在虚拟机上试的，重启也没有修改成功。晚上换PC试试
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023