标题: 根具MAC地址来修改计算机名，求vbs脚本一个？ [打印本页]
作者: vcstone 时间: 2007-11-7 11:22 标题: 根具MAC地址来修改计算机名，求vbs脚本一个？
环境：XP SP2 ， WINDOWS 2003
目标：通过脚本检测出机器MAC地址，然后以MAC地址修改计算机名
例如：MAC=00-40-63-d4-56-62 则将计算机名改为004063d45662
请高手指点！再有，希望哪位能提供多一些VBS方面的学习资料，详细一点的，函数之类的，暂时只找到“vbs简明教程”，虽然上手容易，不过太过简洁了，呵呵，谢谢！
作者: vcstone 时间: 2007-11-7 11:41
P要解决也不难，哪位大侠路过P我一个也行。只是小弟现正学VBS所以想用VBS来解决。
作者: lxmxn 时间: 2007-11-7 12:24
命令行执行：
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作者: abcd 时间: 2007-11-7 12:27
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地址，修改计算机名，自己写吧For each mac In mc
If mac.IPEnabled=True Then
mac=mac.MACAddress
Exit For
End If
Next
mac=Replace(mac,":","")
MsgBox mac
作者: abcd 时间: 2007-11-7 12:38
提示一下：
可以用Win32_ComputerSystem对象的rename方法修改计算名
作者: vcstone 时间: 2007-11-7 13:11
谢谢。。先做测试
作者: vcstone 时间: 2007-11-7 14:43
谢谢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下执行没有提示错误，但没有改到机器名，请指教？
作者: lxmxn 时间: 2007-11-7 17:05
我的代码在我这里测试是正常的，只是在cmd里面显示不出来，可能需要重启的。
在我的电脑属性上面可以看见已经改过来了。
作者: vcstone 时间: 2007-11-7 17:13
还是先谢谢版主，我是在虚拟机上试的，重启也没有修改成功。晚上换PC试试