Testing Speech Grammars

In an earlier post I wrote about speech grammars in Lync Server and Exchange Unified Messaging.

Here’s a simple VBScript that uses the method to hear how speech-enabled programs pronounce words.  This is useful to determine how these programs will pronounce proper names.
sText = InputBox(“Enter the text you want the computer to say.”, “Text to Speech”)
sText = Trim(sText)

If sText <> “” Then
     set sapi = CreateObject(“sapi.spvoice”)
     sapi.Speak sText
End If

For example, if you enter my name as it’s spelled in the input box (Jeff Guillet) you will hear how speech enabled applications pronounce my name.  In the case of Exchange UM directory lookups, this is also how Exchange expects callers to pronounce my name to find a match.

If you enter the phonetic spelling of my name (Jeff GheeA) you will hear it pronounced correctly.