脚本实现主机编号命名计算机

近期换了一家公司，负责IT所有的服务器、网络、资产管理。为了便于桌面用户的资产管理，我决定使用计算机的主机编号来命名，然后从域中就可以很清晰的看到每一个资产的状态。我的命名规则是SZ-主机编号。

脚本代码如下：

1. 'get current pcname  
2. strComputer = "." 
3. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")    
4. Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")    
5. For Each objComputer in colComputers  
6.  strPCname = UCase(objComputer.Name)  
7. Next  
8.  
9. 'get sn number  
10. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")  
11. Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS")  
12. For Each objItem in colItems  
13. strsn = objItem.SerialNumber  
14. Next  
15.  
16. StrRname = "CNSZ-" & strsn  
17.  
18. If strPCname = StrRname then  
19. wscript.quit  
20. End if  
21.  
22. Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  
23. Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")  
24. For Each objComputer in colComputers  
25.  err = objComputer.Rename(StrRname)  
26.  Wscript.Echo "The new PC name is " & StrRname & "." & VbCrLf & "Need reboot to take effect!"  
27. Next  
28.  
29. 'Reboot or not  
30. strReboot = MsgBox("Do you want to reboot computer?", vbYesNo, "Warning!")  
31.  If strReboot = vbNo Then  
32.  Wscript.Quit  
33.  End If  
34.  
35. '==Reboot Computer==  
36. strComputer = "." 
37. Set objWMIService = GetObject("winmgmts:" _  
38.     & "{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2")  
39. Set colOperatingSystems = objWMIService.ExecQuery _  
40.     ("Select * from Win32_OperatingSystem")  
41. For Each objOperatingSystem in colOperatingSystems  
42.     ObjOperatingSystem.Reboot()  
43. Next 

本文转自yangye1985 51CTO博客，原文链接：http://blog.51cto.com/yangye/562546，如需转载请自行联系原作者