VBS: 脚本控制计算机重命名

最新推荐文章于 2024-10-09 11:08:26 发布

原创最新推荐文章于 2024-10-09 11:08:26 发布 · 469 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#脚本 #input #each #cmd

Microsoft/IE/DotNet/C# 专栏收录该内容

17 篇文章

订阅专栏

本文介绍了一段VBScript脚本，该脚本允许用户通过输入框输入新的计算机名称来批量更改局域网内计算机的名字，并在更改后自动重启计算机以使新名称生效。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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