' Test SAPI

Dim oTTS, sTab,oVoice

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

WScript.Echo "Lang" & sTab & "Name" & sTab & "Gender" & sTab & "AudioFormat" & sTab & "Vendor"
For Each oVoice in oTTS.GetVoices("")
    Set oSpFS = CreateObject("SAPI.SpFileStream")
    If oVoice.MatchesAttributes("Vendor") Then
         WScript.Echo oVoice.GetAttribute("Language")& sTab & _
                  oVoice.GetAttribute("Name")& sTab & _
                  oVoice.GetAttribute("Gender") & sTab & _
                  CStr(oSpFS.Format.Type) & sTab & _
                  oVoice.GetAttribute("Vendor")
    Else
         WScript.Echo oVoice.GetAttribute("Language")& sTab & _
                  oVoice.GetAttribute("Name")& sTab & _
                  oVoice.GetAttribute("Gender")& sTab & _
                  CStr(oSpFS.Format.Type) & sTab & _
                  oVoice.GetAttribute("Gender")
    End If
    Set oSpFS = Nothing
Next