1Text = WScript.Arguments(0)
2Speaker = WScript.Arguments(1)
3
4Set s = CreateObject("SAPI.SpVoice")
5
6For Each Voice In s.GetVoices
7    I = I + 1
8
9    If InStr(Voice.GetDescription, Speaker) > 0 Then
10        Set s.Voice = s.GetVoices.Item(I-1)
11        Exit For
12    End If
13Next
14
15s.Speak Text
16