COMO HACER QUE TU PC HABLE

COMO HACER QUE TU PC HABLE ...SOLO DEBES DE ABRIR EL BLOC DE NOTAS Y PEGAR EL SIGUIENTE CÓDIGO...

StrText=("Hi, my name is Microsoft Sam")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
StrText=("What is your name?")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
name=inputbox("What is your name?")
StrText=("Nice to meet you " &name)
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
StrText=("How are you feeling " &name)
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
feeling=inputbox("How are you feeling " &name)
StrText=("Why are you feeling " &feeling)
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
why=inputbox("Why are you feeling " &feeling)
StrText=("Gotta Go. Bye")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
 


LUEGO LO GUARDAS Y LE PONES EL NOMBRE QUE QUIERES PERO GUARDA EL ARCHIVO CON LA SIGUIENTE EXTENCION  VBS... POR EJEMPLO   hablepc.vbs     LO PONES EN EL ESCRITORIO Y LES DAS CLIK LO ÚNICO MALO ES QUE TE HABLARA EN INGLES ...Y TENDRÁS QUE RESPONDER LO QUE TE DICE Y DAR EN ACEPTAR ...BUSQUE EL CÓDIGO EN ESPAÑOL O PARA LOGRAR HACERLO HABLAR EN ESPAÑOL ...ES TAREA PENDIENTE.
Y LA CONVERSACION NO ES TAN EXTENSA ...BUSCARE MAS INFORMACIÓN PARA COMPLEMENTAR Y HACERLO MAS ENTRETENIDO.