注册
登录
| 关键词： nbsp objWMIService strComputer colComputers objComputer reboot Set GetObject ExecQuery winmgmts |
脚本代码如下：'get current pcname strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem") For Each objComputer in colComputers strPCname = UCase(objComputer.Name) Next 'get sn number Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS") For Each objItem in colItems strsn = objItem.SerialNumber Next StrRname = "CNSZ-" & strsn If strPCname = StrRname then wscript.quit End if Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem") For Each objComputer in colComputers err = objComputer.Rename(StrRname) Wscript.Echo "The new PC name is " & StrRname & "." & VbCrLf & "Need reboot to take effect!" Next 'Reboot or not strReboot = MsgBox("Do you want to reboot computer?", vbYesNo, "Warning!") If strReboot = vbNo Then Wscript.Quit End If '==Reboot Computer== strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems ObjOperatingSystem.Reboot() Next |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
