' Test SAPI Dim oTTS, sTab Set oTTS = WScript.CreateObject("SAPI.SpVoice") sTab = Chr(9) WScript.Echo "Lang" & sTab & "Name" & sTab & "Gender" For Each oVoice in oTTS.GetVoices("") WScript.Echo oVoice.GetAttribute("Language")& sTab & _ oVoice.GetAttribute("Name")& sTab & _ oVoice.GetAttribute("Gender") Next