Text to Speech using cscript.

speak.vbs

Dim message, sapi, b
Set sapi=CreateObject("sapi.spvoice")
b = 1

set audioOut = sapi.GetAudioOutputs.Item(1)
strAudio = audioOut.GetDescription
strAudio = strAudio & " (Current)"

Set sapi.AudioOutput = audioOut
WScript.StdOut.Write strAudio & vbCrLf & vbCrLf & "S> "

Do While b=1
    Do Until WScript.StdIn.AtEndOfStream
        message=UserInput("S>")
        sapi.Speak message, SVSFlagsAsync
    Loop
Loop

Function UserInput( myPrompt )
    WScript.StdOut.Write myPrompt & " "
    UserInput = WScript.StdIn.ReadLine
    If UserInput = "clear" Then
        UserInput = ""
        wscript.stdout.writeblanklines(100)
        WScript.StdOut.Write "S> "
    End If
End Function