exitwindow en vbs programmee par une imputbox sous winXP

lut tlm

j'aimerai savoir si qq pourais me donner un ex en .vbs de :
Quand on lance le vbs il met une imputbox qui demande le temps en minute avant qu'il s'eteigne sans preavis !
-->merci d'avance<--

will_willy2000

'Arret system avec shutdown
set s=createobject("wscript.shell")

Tem=inputbox("Temps estimé en minute:","TIMEOUT")
if Tem<>"" and Tem<>"H" then
s.run "shutdown -s -t "&"60"*Tem
Anul=msgbox("Annuler arret system?",vbsystemmodal+vbquestion+vbyesno,"ANNULER...")
if Anul=vbyes then
s.run"shutdown -a"
end if
end if
if Tem="H" then
T=inputbox("Temps estimé en heure:","TIMEOUT")
if T<>"" then
s.run"shutdown -s -t "&"3600"*T
Anule=msgbox("Annuler arret system?",vbsystemmodal+vbquestion+vbyesno,"ANNULER...")
if Anule=vbyes then
s.run"shutdown -a"
end if
end if
end if



---------------------------------------------------------------------
Ce script te permet de programmer l'extinction de ton PC
en temps voulu. Mais le seul problème c'est la fenêtre
shutdown qui reste visible pendant le compte à reboure.
Je connais un moyen pr qu'elle soit non visible
mais cela ralentit considérablement ton PC. "ça RAM"
@+