Ese último código que has posteado, es como lo tienes ahora mismo? Porque a mi nisiquiera se me "abre" xD dime si es el "bueno" para trabajar con el.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenústrText = Wscript.Arguments(0)
Set objVoice = CreateObject("SAPI.SpVoice")
objVoice.Speak strText