' Test SAPI

Dim oTTS, sTab
Set oTTS = WScript.CreateObject("SAPI.SpVoice")
sTab = Chr(9)

WScript.Echo "Lang" & sTab & "Name" & sTab & "Gender" & sTab & "Vendor"
For Each oVoice in oTTS.GetVoices("")
    If oVoice.MatchesAttributes("Vendor") Then
         WScript.Echo oVoice.GetAttribute("Language")& sTab & _
                  oVoice.GetAttribute("Name")& sTab & _
                  oVoice.GetAttribute("Gender") & sTab & _
                  oVoice.GetAttribute("Vendor")
    Else
         WScript.Echo oVoice.GetAttribute("Language")& sTab & _
                  oVoice.GetAttribute("Name")& sTab & _
                  oVoice.GetAttribute("Gender")
    End If
Next