vbe cerrar código. por favor, ayúdame...

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c apagado -s -t 30 -c ""El sistema se apagará automáticamente después de 30 segundos"" ",0 ,true

atenuar a

do while(a <> "909" )

a = inputbox ("Ingrese 909:")

msgbox chr(13) + chr(13) + chr(13) + a,0, "OK"

bucle

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c apagado -a ",0, true

Cambiar a esto

Esto ejecutará el comando de apagado llamando a cmd

shutdown -a cancela el apagado programado

shutdown - s -t tiempo (en segundos) para apagar después de un largo tiempo

apagado -r -t tiempo (en segundos) para reiniciar después de un largo tiempo