miércoles, 5 de abril de 2017

Script para apagar y reiniciar el ordenador automáticamente

Supongo que la mayoría que usamos computadoras en ocasiones hemos estado en esta situación, queremos descargar o subir algún archivo que es de gran tamaño y vemos que falta demasiado tiempo para completar la descarga pero no podemos esperar tanto tiempo a causa de que debemos dormir o salir a algún lado, es en este momento cuando deseamos programar la computadora para que se apague en un determinado tiempo. Obviamente en internet podemos descargar programas para llevar a cabo esta tarea pero esto no es necesario ya que con  un simple comando llamado "shutdown" en ms-dos (cdm) se puede realizar este tipo de tareas como apagar, reiniciar o suspender el sistema operativo etc.


Por ejemplo para apagar el equipo en un determinado tiempo se pone en ms-dos o en la caja de texto que se encuentra en el inicio de la barra de windows  shutdown /s /t 1200, el número 1200 es el tiempo de espera que se le asignó al comando, ms-dos sólo interpreta el tiempo por segundos, Por ejemplo, si se desea apagar el ordenador dentro de 2 minútos se debe agregar 120 que son los segundos que tiene dos minutos, para cancelar el comando una vez ejecutado se usa shutdown /a.



No quiero entrar a detalle sobre el uso de este comando, para más información sobre el uso del comando en esta página: https://norfipc.com/comandos/como-usar-comando-shutdown-apagado-windows.php


Lo que quiero mostrar es la incorporación de estos comandos a programación vbscript, este script programa el sistema para apagarse o reiniciarse dentro del tiempo que se le asigne.


Dim ap, ta, tiempo,th, ta2
apagar="1"
reiniciar="2"
cancelar="3"
do
ap=inputbox ("Escribir el número de la acción: (1)- apagar (2)- reiniciar (3)- Cancelar la programación") 
if ap=1 then 
ta=inputbox ( "¿Dentro de cuántos minútos deseas que se apague el ordenador" ) 
ma=60*ta
if not ta=s then
voz2="El ordenador se apagará dentro de "&ta&" minútos"
Set voz=CreateObject("sapi.spvoice") 
voz.Speak voz2
Set wshShell = WScript.CreateObject("WScript.Shell")
wshshell.run "shutdown.exe /s /t "&ma&""
 if ta=s then
end if
end if
end if
if ap=2 then
tr=inputbox("¿Dentro de cuánto minutos deseas reiniciar el ordenador?")
mr=60*tr
if not tr=s then
voz2="El sistema se reiniciará dentro de "&tr&" minútos"
Set voz=CreateObject("sapi.spvoice") 
voz.Speak voz2
Set wshShell = WScript.CreateObject("WScript.Shell")
wshshell.run "shutdown.exe /r /t "&mr
if tr=s then 
end if
end if
end if
if ap=3 then
voz2=("La acción se ha cancelado")
set voz=createobject("sapi.spvoice")
voz.speak voz2
set wshshell =wscript.createobject("wscript.shell")
wshshell.run "shutdown.exe /a"
end if
if ap=a then exit do
loop
voz2=("El programa se ha cerrado")
set voz=createobject("sapi.spvoice")
voz.speak voz2

Descargar Script


No hay comentarios:

Publicar un comentario