1. Notepad را باز کنید. 

2. کدهای زیر را در آن بنویسید: 

کد:

Dim message, sapi 

message=InputBox("What do you want me to say?","Speak to Me") 

Set sapi=CreateObject("sapi.spvoice") 

sapi.Speak message

3. فایل را با نام دلخواه و با پسوند .vbs ذخیره نمایید. 

4. فایل مربوطه را اجرا نمایید و متن دلخواه خود را در آن نوشته و OK را بزنید.