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