Talk with your pc
Step1 :-Open Notepad
Step2 :-Copy and paste this

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

Step3 :-Save it as "spk.vbs"
Step4 :- Open it...