公司经常安装系统，所以需要更改计算机名称，大量重命名时操作会很麻烦，所以可以使用VBS更改计算机名称。

1、新建文本文档，复制以下代码，并保存为VBS格式。

Dim reval

Set objnet = CreateObject ("WScri;)

Set R = CreateObject("WScri;)

reval = InputBox ("当前的计算机名是：" & objnet.ComputerName,"请输入新的计算机名")

On Error Resume Next

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" _

& strComputer & "\root\cimv2")

Set colComputers = objWMIService.ExecQuery _

("Select * from Win32_ComputerSystem")

For Each objComputer in colComputers

errReturn = ObjCom (reval)

If reval <> "" Then

MsgBox "新计算机名在重启后才能生效！",vbOKOnly+vbInformation,"提示"

return=MsgBox ("你确定要重起计算机吗?",vbOKCancel+vbExclamation,"注意！")

If return=vbok Then

R.run("S -r -t 0")

End If

End If

Next

2、打开程序

↓输入想要改名后的计算机名称

↓新计算机名在重启后才能生效

↓点击确定，重新启动计算机

重新启动完毕，你会发现你的计算机名称已经更改。

添加微信公众号vbs_edit（VBS脚本之家）回复021也可获取此代码。