teclado - teclas para reiniciar windows 10

¿Cómo forzar reiniciar un cuadro de Windows utilizando VBScript?

Question

Estoy tratando de encontrar una forma de forzar a Windows a que se reinicie, y me estoy encontrando con problemas. He intentado

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

También intenté usar el comando shutdown -f -r , y en ambos casos a veces no recibo respuesta, y si vuelvo a intentarlo obtengo un error que dice "La acción no se pudo completar porque el sistema se está apagando", aunque no importa cuánto tiempo lo dejo, no se apaga, todavía me permite iniciar nuevos programas y hacer un shutdown -a produce el mismo error. ¿Cómo se puede usar una secuencia de comandos para obligar a Windows a reiniciar?

Answer 1

También puede probar la utilidad de línea de comandos psShutdown de Sysinternals ahora Microsoft. http://technet.microsoft.com/en-us/sysinternals/bb897541.aspx

Answer 2

Bueno, esto usa VBScript, aunque sinceramente invoca el mismo apagado de línea de comando que estás tratando de hacer. Lo probé y funciona.

Dim oShell 
Set oShell = CreateObject("WScript.Shell")

''restart, wait 5 seconds, force running apps to close
oShell.Run "%comspec% /c shutdown /r /t 5 /f", , TRUE

¿Con qué OS estás corriendo? Esta prueba fue contra XP. Me pregunto si el sistema operativo del servidor requiere un código de apagado ...

Answer 3

Intenta reemplazar:

retVal = OpSys.Reboot()

Con:

retVal = OpSys.Win32Shutdown(6)

Answer 4

''*********************************************************

Option Explicit

Dim objShell

Set objShell = WScript.CreateObject("WScript.Shell")

objShell.Run "C:/WINDOWS/system32/shutdown.exe -r -t 0"

''*********************************************************

Este pequeño script reinicia la computadora local después de 0 segundos.