16 lines
287 B
Plaintext
16 lines
287 B
Plaintext
|
Text = WScript.Arguments(0)
|
||
|
Speaker = WScript.Arguments(1)
|
||
|
|
||
|
Set s = CreateObject("SAPI.SpVoice")
|
||
|
|
||
|
For Each Voice In s.GetVoices
|
||
|
I = I + 1
|
||
|
|
||
|
If InStr(Voice.GetDescription, Speaker) > 0 Then
|
||
|
Set s.Voice = s.GetVoices.Item(I-1)
|
||
|
Exit For
|
||
|
End If
|
||
|
Next
|
||
|
|
||
|
s.Speak Text
|