Membuat komputer berbicara...

====================================

Dim message, sapi
message=InputBox("Enter the text you want spoken","Speak This")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

====================================

copas source diatas, save as dng ekstensi .vbs "speak.vbs"


NB : only windows