[VBS] Spegnere il PC

[Grambo]

Ciao ho un programmino (è da poco che programmo in questo linguaggio che non ho ancora capito se è vbs o vb5 ) che dovrebbe limitare l'accesso del pc agli orari da me indicati però:

1. il programma deve rimanere in esecuzione hidden, e non so come si fa
2. non so come mandare il segnale di shutdown del pc

il programma è questo:
----------------------------------------------------------------------------
dim ora
dim myvar
ora=time()
if hour(ora)<10 then
ora="0"&time()
end if
if (ora>"10.00.00") and (ora<"12.00.00") then
myvar=9
elseif (ora>"14.00.00") and (ora<"16.00.00") then
myvar=9
elseif (ora>"19.00.00") and (ora<"21.30.00") then
myvar=9
else
myvar=msgbox ("Il pc può rimanere acceso nel seguente orario: 10:00/12:00 - 14:00/16:00 - 19:00/21:30",16,"Spegnimento automatico PC")
end if

if myvar<8 then
spegni=1
msgbox spegni
end if
-----------------------------------------------------------------------------------

l'area rossa deve essere sostituito dal comando di spegnimento

grazie anticipate

[SuperMariano81]

per fare lo spegnimento usa questa stringa:
%windir%\System32\Shutdown.exe -s -t 00

non so se così funziona però:
shell ("%windir%\System32\Shutdown.exe -s -t 00")

[Grambo]

non va, mi restituisce l'errore

tipo non corrispondente: 'Shell'

[Grambo]

ok mi ci è voluto un po' ma son riuscito a sistemare la cosa così:

Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run "%windir%\System32\Shutdown.exe -s -t 00"

...

ora mi serve la parte di programma che dica al programma di fare il controllo dell'ora in "diretta" o in alternativa ogni X minuti

come si fa?

[SuperMariano81]

puoi schedularlo con le opreazioni pianificate di windows

[Grambo]

a me serve che sia sempre in funzione in background

con le operazioni pianificate posso far partire il programma all'accensione ma una volta eseguito si ferma finchè non lo rilancio, a me serve che una volta acceso il pc il programma parta e continui a fare il controllo