Listen to your computer speaking!!

copy the following things in your notepad

Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

Save the file as ‘speak.vbs‘ (be sure to include the .vbs)

Now double click on speak.vbs and you’ll see an input box. Type in your message, press enter, and listen to your computer speaking.

Enjoy!