Étape 1: Commencer par écrire le script...
Ouvrez le bloc-notes, puis écrire le script suivant dans le bloc-notes :
Dim x
Dim y
Set oShell = createobject("wscript.shell")
Définir les Sapi = Wscript.CreateObject ("SAPI. SpVoice")
x = InputBox ("voulez-vous éteindre votre PC après une période de temps ? réponse : oui/non ","arrêt automatique du système ! par SCRIPTmaster")
Si x = « Oui » puis
y = InputBox ("entrez le temps laissé pour arrêter de se produire automatiquement (en quelques minutes...):", « Arrêt automatique du système! »)
SAPI.Speak y + « minutes restantes pour arrêter »
oShell.Run « shutdown.exe -s -t » & (y * 60) & "-i-f-c" "système est maintenant réglé pour arrêt automatique ! n’attendez pas pour les téléchargements à la fin, vous pouvez aller dormir ! Bonne nuit! te voir 2morow ! >>>> de mettre fin à cet arrêt automatique juste relancer le script et le type ne "" "
fin si
Si x = « non » puis
SAPI.Speak « bien, comme vous le souhaitez good bye, script écrit par Ayman Farhat le SCRIPTmaster »
oShell.run « shutdown.exe-a »
fin si