On Error Resume Next 
Path = InputBox("Введите полный путь к файлу","Чтение файлов")
If Path<>"" Then
    Set fso  = WScript.CreateObject("Scripting.FileSystemObject")
    Set File = fso.OpenTextFile(Path,1,False)
        text = File.ReadAll
        File.Close
    Set objVoice=CreateObject("SAPI.SpVoice")
    objVoice.Speak text        
Else 
    WScript.Quit
End If

var Voice = new ActiveXObject("SAPI.SpVoice");
Voice.Volume = 100; Voice.Rate = 3;
Voice.Speak("hey! what's up,  doc?");