Apagado programado de programación VBS

'//RL

En caso de error Reanudar siguiente

Const vbOK = 1

Const vbCancel = 2

Dim ML '//Minutos izquierda

Dim ANS

Dim Wsh:Establecer Wsh = WScript.CreateObject("WScript.Shell")

Hacer

ML = GetML()

Si ML = 0, entonces WScript.Quit()