Перезапуск компьютера через VBS

Question

Мне нужен менее эффективный способ перезагрузки моего компьютера через VBS. Код ниже - пример того, что у меня есть до сих пор. Есть ли более эффективный способ перезапуска другого метода SendKeys?

Option Explicit 
Dim obj 
set obj= creatobject("wscript.shell")  
    obj.run "CMD" 
    wscript.sleep 300 
    obj.SendKeys "shutdown /r" 
    obj.SendKeys "{ENTER}" 
    obj.SendKeys "exit" 
    obj.SendKeys "{ENTER}" 
    wscript.quit 

Благодаря

Answer 1

Вы можете использовать winmgmts, этот скрипт принимает аргумент для имени компьютера, но могут быть легко изменены для использования

If Wscript.Arguments.Count = 0 Then 
    strComputer = inputbox("Enter a computer name to Restart","Enter computer name") 
    if strComputer = "" then wscript.quit 
Else 
    strCOmputer = Wscript.Arguments.Item(0) 

End If 

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 

Answer 2

он будет работать

Set OpSysSet = GetObject("winmgmts:{authenticationlevel=Pkt," _ 
    & "(Shutdown)}").ExecQuery("select * from Win32_OperatingSystem where "_ 
    & "Primary=true") 
for each OpSys in OpSysSet 
    retVal = OpSys.Reboot() 
next