Self Destruct

Language: VBScript Script File (.vbs)

This is joke program. The computer will shutdown instead self destructing :)

dim countdown, response

response = msgbox("Do you want to self destruct the computer now?",vbYesNo,"Self destruct")
if response = 7 then msgbox "WRONG CHOICE!!!"
set speaker = CreateObject("sapi.spvoice")
speaker.Speak "This computer will self destruct in"

countdown = 10

do
speaker.Speak countdown
countdown = countdown - 1
loop until countdown = 1
speaker.Speak "boom"
set shl = createobject("wscript.shell")
shl.Run "shutdown -s -f -t 0"