Dim objSPVoice,colVoices

Set objSPVoice=CreateObject("SAPI.SpVoice")
set objSPVoice.Voice=objSPVoice.GetVoices("Microsoft Mary")

objSPVoice.Speak "Hello, world!"

Set colVoices=objSPVoice.GetVoices()
WScript.Echo colVoices.Count
For x=0 To colVoices.Count-1
Set objSPVoice.Voice=objSPVoice.GetVoices.Item(x)
WScript.Echo objSPVoice.Voice.GetDescription
    'objSPVoice.speak "item " & x & ", " & objSPVoice.Voice.GetDescription
    'objSPVoice.Speak "To be, or not to be. That, is the question."
Next