|
vcstone
初级用户
积分 98
发帖 39
注册 2007-3-16
状态 离线
|
『楼 主』:
根具MAC地址来修改计算机名，求vbs脚本一个？
环境：XP SP2 ， WINDOWS 2003
目标：通过脚本检测出机器MAC地址，然后以MAC地址修改计算机名
例如：MAC=00-40-63-d4-56-62 则将计算机名改为004063d45662
请高手指点！再有，希望哪位能提供多一些VBS方面的学习资料，详细一点的，函数之类的，暂时只找到“vbs简明教程”，虽然上手容易，不过太过简洁了，呵呵，谢谢！
|
|
 2007-11-7 11:22 |
|
|
vcstone
初级用户
积分 98
发帖 39
注册 2007-3-16
状态 离线
|
『第
2 楼』:
P要解决也不难，哪位大侠路过P我一个也行。只是小弟现正学VBS所以想用VBS来解决。
|
|
|
2007-11-7 11:41 |
|
|
lxmxn
版主
积分 11386
发帖 4938
注册 2006-7-23
状态 离线
|
『第
3 楼』:
命令行执行： for /f "delims=," %a in ('getmac /nh /FO csv') do @set mac=%a&call set mac=%mac:-=% &wmic computersystem where "name='%computername%'" call rename %mac% >nul
测试环境:cmd @ xp sp2
|
|
|
2007-11-7 12:24 |
|
|
abcd
银牌会员
积分 1436
发帖 739
注册 2007-10-11
状态 离线
|
『第
4 楼』:
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,":","")
MsgBox mac
获取MAC地址，修改计算机名，自己写吧
|
|
|
2007-11-7 12:27 |
|
|
abcd
银牌会员
积分 1436
发帖 739
注册 2007-10-11
状态 离线
|
『第
5 楼』:
提示一下：
可以用Win32_ComputerSystem对象的rename方法修改计算名
|
|
|
2007-11-7 12:38 |
|
|
vcstone
初级用户
积分 98
发帖 39
注册 2007-3-16
状态 离线
|
|
|
2007-11-7 13:11 |
|
|
vcstone
初级用户
积分 98
发帖 39
注册 2007-3-16
状态 离线
|
『第
7 楼』:
谢谢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下执行没有提示错误，但没有改到机器名，请指教？
|
|
|
2007-11-7 14:43 |
|
|
lxmxn
版主
积分 11386
发帖 4938
注册 2006-7-23
状态 离线
|
『第
8 楼』:
我的代码在我这里测试是正常的，只是在cmd里面显示不出来，可能需要重启的。
在我的电脑属性上面可以看见已经改过来了。
|
|
|
2007-11-7 17:05 |
|
|
vcstone
初级用户
积分 98
发帖 39
注册 2007-3-16
状态 离线
|
『第
9 楼』:
还是先谢谢版主，我是在虚拟机上试的，重启也没有修改成功。晚上换PC试试
|
|
|
2007-11-7 17:13 |
|
