Dim oTTS

On Error Resume Next
Set oTTS = WScript.CreateObject("ActiveVoice.ActiveVoice")
If Err.Number <> 0 Then
    Err.Clear
    On Error Goto 0
    Set oTTS = WScript.CreateObject("ActiveVoice.ActiveVoice.1")
End If
oTTS.Initialized = 1

WScript.Echo "ModeName" & Chr(9) & "Speaker"
For i = 1 To oTTS.CountEngines
    WScript.Echo I &" " & " " & oTTS.ModeName(i) & Chr(9) & oTTS.Speaker(i)
Next