在很多情况下,计算机需要重命名,如果进行大批量更换名称的时候,操作起来就觉得比较麻烦,这样我们可以通过使用VBS方式来实施
以下是VBS脚本,将以下内容保存为.vbs即可,在客户端执行。
Dim reval
Set objnet = CreateObject ("WScript.Network")
Set R = CreateObject("WScript.Shell")
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 = ObjComputer.Rename (reval)
If reval <> "" Then
MsgBox "新计算机名在重启后才能生效!",vbOKOnly+vbInformation,"提示"
return=MsgBox ("你确定要重起计算机吗?",vbOKCancel+vbExclamation,"注意!")
If return=vbok Then
R.run("Shutdown.exe -r -t 0")
End If
End If
Next
转载于:https://blog.51cto.com/candysong/613634