Stap 1: Begin met het schrijven van het script...
Open Kladblok, en het volgende script schrijven in Kladblok:
Dim x
Dim y
set oShell = createobject("wscript.shell")
Instellen van Sapi = Wscript.CreateObject ("SAPI. SpVoice")
x = InputBox ("wilt u afsluiten uw PC na een preiod tijd? Antwoord: Ja/nee ","automatisch afsluiten van het systeem! door SCRIPTmaster")
Als x = "ja" dan
y = InputBox ("Voer tijd verlaten voor afsluiten automatisch gebeurt (tijd in minuten...):", "Automatische systeem afsluiten!")
SAPI.speak y + "minuten links voor afsluiten"
oShell.Run "shutdown.exe -s -t" & (y * 60) & "-f - c" "systeem is nu ingesteld voor automatisch afsluiten! wacht niet op de downloads klaar, u kunt gaan slapen! Goedenacht! Zie je 2morow! >>>> te beëindigen deze automatisch afsluiten net opnieuw het script en het type niet "" "
eind als
Als x = "nee" dan
SAPI.speak "Oke, als je good bye, script geschreven door Ayman Farhat de SCRIPTmaster wilt"
oShell.run "shutdown.exe - a"
eind als