1- افتح المفكرة notepad
2- اكتب المقطع البرمجي التالي:
Dim Message، Speak
Message=InputBox("Enter text"،"Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message
3- أحفظ الملف على سطح المكتب بإسم speak.vbs
4- افتح الملف وأستمتع