Cómo apagar usando VBS

set ws=CreateObject("Wscript.Shell")

ws.run "cmd.exe /c apagado -r -t 3000 -c ""12345"" ", 0 , cierto

'========================================= ==

'Este script utiliza el comando CMD para completar el apagado

'La parte 3000 se puede cambiar a voluntad (el tiempo de cuenta regresiva, 0 significa apagar ahora), la parte 12345 está en la sección "Mensaje" de la ventana de cierre

'Para eliminar la ventana de cierre, utilice el siguiente código:

'============== ===== =========================

set ws=CreateObject("Wscript.Shell")

ws.run "cmd.exe /c apagado -a"