本文提供了一段VBS脚本示例，演示如何让用户输入目标计算机名或IP地址及新计算机名，然后批量更改指定计算机的名称。
strComputer = InputBox("请输入计算机名或者IP地址", "输入")
strNewname = InputBox("请输入新计算机名", "输入")
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2")
Set colComputers = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
err = ObjComputer.Rename(strNewname)
Wscript.Echo err
Next
strNewname = InputBox("请输入新计算机名", "输入")
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2")
Set colComputers = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
err = ObjComputer.Rename(strNewname)
Wscript.Echo err
Next
扫一扫
1184
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
