中国DOS联盟

环境：XP SP2 ， WINDOWS 2003
目标：通过脚本检测出机器MAC地址，然后以MAC地址修改计算机名
例如：MAC=00-40-63-d4-56-62 则将计算机名改为004063d45662
请高手指点！再有，希望哪位能提供多一些VBS方面的学习资料，详细一点的，函数之类的，暂时只找到“vbs简明教程”，虽然上手容易，不过太过简洁了，呵呵，谢谢！

P要解决也不难，哪位大侠路过P我一个也行。只是小弟现正学VBS所以想用VBS来解决。

命令行执行：

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

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地址，修改计算机名，自己写吧

提示一下：

可以用Win32_ComputerSystem对象的rename方法修改计算名

谢谢。。先做测试

谢谢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下执行没有提示错误，但没有改到机器名，请指教？

我的代码在我这里测试是正常的，只是在cmd里面显示不出来，可能需要重启的。

在我的电脑属性上面可以看见已经改过来了。

还是先谢谢版主，我是在虚拟机上试的，重启也没有修改成功。晚上换PC试试