VBScript脚本修改计算机名称

find

在很多情况下，计算机需要重命名，如果进行大批量更换名称的时候，操作起来就觉得比较麻烦，这样我们可以通过使用VBS方式来实施

以下是VBS脚本，将以下内容保存为.vbs即可，在客户端执行。

1. Dim reval
   
2. Set objnet = CreateObject ("WScript.Network")
   
3. Set R = CreateObject("WScript.Shell")
   
4. 
   
5. reval = InputBox ("当前的计算机名是：" & objnet.ComputerName,"请输入新的计算机名")
   
6. 
   
7. On Error Resume Next
   
8. strComputer = "."
   
9. Set objWMIService = GetObject("winmgmts:" _
   
10.     & "{impersonationLevel=impersonate}!\" _
    
11.     & strComputer & "\root\cimv2")
    
12. Set colComputers = objWMIService.ExecQuery _
    
13.     ("Select * from Win32_ComputerSystem")
    
14. 
    
15. For Each objComputer in colComputers
    
16.     errReturn = ObjComputer.Rename (reval)
    
17.     If reval <> "" Then
    
18. MsgBox  "新计算机名在重启后才能生效！",vbOKOnly+vbInformation,"提示"
    
19.                 return=MsgBox ("你确定要重起计算机吗?",vbOKCancel+vbExclamation,"注意！")
    
20.                 If return=vbok Then
    
21.                         R.run("Shutdown.exe -r -t 0")
    
22.                 End If
    
23.     End If
    
24. Next

复制代码

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