Bagaimana caranya membuat komputer kita bisa bicara !!!

Ketik di Notepad script dibawah : Simpan dengan nama SUARA.VBS

-----------------------------------------------------------------

Dim suara, pesan,top

Set suara = CreateObject("sapi.SpVoice")
Set top =wscript.CreateObject("WScript.Shell")

pesan=inputbox("ketik teks di sini","Info") 

if pesan= pesan then
msgbox"dengarkan bro..komputermu bicara",0,"bicara" 
suara.SpeaK pesan
end if