diff options
Diffstat (limited to 'tools/sapi_voice.vbs')
-rwxr-xr-x | tools/sapi_voice.vbs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/sapi_voice.vbs b/tools/sapi_voice.vbs index 440444ca38..4199101bde 100755 --- a/tools/sapi_voice.vbs +++ b/tools/sapi_voice.vbs | |||
@@ -108,7 +108,7 @@ If bSAPI4 Then | |||
108 | oTTS.Select nMode | 108 | oTTS.Select nMode |
109 | 109 | ||
110 | ' Speed selection | 110 | ' Speed selection |
111 | If sSpeed <> "" Then oSpVoice.Speed = sSpeed | 111 | If sSpeed <> "" Then oTTS.Speed = sSpeed |
112 | Else ' SAPI5 | 112 | Else ' SAPI5 |
113 | ' Create SAPI5 object | 113 | ' Create SAPI5 object |
114 | Set oSpVoice = CreateObject("SAPI.SpVoice") | 114 | Set oSpVoice = CreateObject("SAPI.SpVoice") |
@@ -123,7 +123,7 @@ Else ' SAPI5 | |||
123 | For Each nLangID in LangIDs(sLanguage) | 123 | For Each nLangID in LangIDs(sLanguage) |
124 | sSelectString = "Language=" & Hex(nLangID) | 124 | sSelectString = "Language=" & Hex(nLangID) |
125 | For Each oVoice in oSpVoice.GetVoices(sSelectString) | 125 | For Each oVoice in oSpVoice.GetVoices(sSelectString) |
126 | WScript.StdErr.Write oVoice.GetDescription & "," | 126 | WScript.StdErr.Write oVoice.GetAttribute("Name") & "," |
127 | Next | 127 | Next |
128 | Next | 128 | Next |
129 | WScript.StdErr.WriteLine | 129 | WScript.StdErr.WriteLine |