[转贴] VBScript脚本修改计算机名称

find

在很多情况下，计算机需要重命名，如果进行大批量更换名称的时候，操作起来就觉得比较麻烦，这样我们可以通过使用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
复制代码

http://candysong.blog.51cto.com/3336496/613634