1 files changed, 9 insertions, 0 deletions
diff --git a/tools/sapi_voice.vbs b/tools/sapi_voice.vbs
index 848db94df2..f92c3f92fa 100755
--- a/tools/sapi_voice.vbs
+++ b/tools/sapi_voice.vbs
@@ -139,6 +139,15 @@ Do
        WScript.Quit 1
    End If
    Select Case aLine(0) ' command
+        Case "QUERY"
+            Select Case aLine(1)
+                Case "VENDOR"
+                    If bSAPI4 Then
+                        WScript.StdOut.WriteLine oTTS.MfgName(nMode)
+                    Else
+                        WScript.StdOut.WriteLine oSpVoice.Voice.GetAttribute("Vendor")
+                    End If
+            End Select
        Case "SPEAK"
            aData = Split(aLine(1), vbTab, 2)
            aData(1) = UTF8decode(aData(1))

diff --git a/tools/sapi_voice.vbs b/tools/sapi_voice.vbs index 848db94df2..f92c3f92fa 100755 --- a/tools/sapi_voice.vbs +++ b/tools/sapi_voice.vbs
@@ -139,6 +139,15 @@ Do
139	WScript.Quit 1	139	WScript.Quit 1
140	End If	140	End If
141	Select Case aLine(0) ' command	141	Select Case aLine(0) ' command
		142	Case "QUERY"
		143	Select Case aLine(1)
		144	Case "VENDOR"
		145	If bSAPI4 Then
		146	WScript.StdOut.WriteLine oTTS.MfgName(nMode)
		147	Else
		148	WScript.StdOut.WriteLine oSpVoice.Voice.GetAttribute("Vendor")
		149	End If
		150	End Select
142	Case "SPEAK"	151	Case "SPEAK"
143	aData = Split(aLine(1), vbTab, 2)	152	aData = Split(aLine(1), vbTab, 2)
144	aData(1) = UTF8decode(aData(1))	153	aData(1) = UTF8decode(aData(1))