set objNet = CreateObject("Wscript.Network") newComputerName = InputBox("Old name is:" & objNet.ComputerName, "Please input a new name") On Error Resume Next Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!//" & "." & "/root/cimv2") Set colComputers = objWMIService.ExecQuery ("Select Name from Win32_ComputerSystem") IF newComputerName<>"" Then For Each objComputer in colComputers errReturn = objComputer.Rename(newComputerName) Next End IF IF errRerurn=0 Then MsgBox "重命名成功,重启计算机后生效!" Set objShell = CreateObject("Wscript.shell") objShell.Run("cmd /c shutdown -r -t 0") End IF