1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
If WScript.Arguments.Count > 0 Then
    Set Speech = CreateObject("SAPI.SpVoice")
    str = Trim(WScript.Arguments.Item(0))
    If str <> "" Then
        Speech.Volume = 80  ' max 100
        Speech.Speak str, 3
        Do Until Speech.WaitUntilDone(100)
            WScript.Sleep 100
        Loop 
    End If
End If