Make your computer speak without any software

Have you ever made your computer speak without any software?
Here is the way out..

Just copy paste the following code in notepad:

Dim message, sapi
message=InputBox("What do you want me to say?","Tech-E-Mania's creation")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

save the file as"mansehej.vbs"
Save it in same way with quotes
Now just double click and see ..Interesting result