Paso 1: Escribir el guión...
' Script escrito por Ayman Farhat (SCRIPTmaster)
' Este script permite a su PC leer contenido de cualquier archivo de texto que usted elija!
Const ForReading = 1
strText = InputBox ("por favor, escriba un nombre para el archivo que desea lee el archivo, el archivo tiene una extensión .txt", "leer archivos de texto de Bloc de notas")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objText = objFSO.OpenTextFile (strText + ".txt", ForReading)
strText = objText.ReadAll
objText.Close
Set Sapi = Wscript.CreateObject ("SAPI. SpVoice")
SAPI.Speak strText
Cuando ponen el script guarde su trabajo, cuando escribes save el nombre de tu script seguido by.vbs extensión como se muestra en la figura siguiente
