TEXT TO SPEECH (Using VB Script)

Copy the code below to notepad and save it as filename.vbs
Double click on the file to run the script.

dim m, s
   m=inputbox("Enter text","Text2Speech")
   set s=createobject("sapi.spvoice")
   s.Speak m