tools/sapi5_init_tts.vbs

   1 '***************************************************************************
   2 '             __________               __   ___.
   3 '   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
   4 '   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
   5 '   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
   6 '   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
   7 '                     \/            \/     \/    \/            \/
   8 ' $Id: sapi5_init_tts.vbs$
   9 '
  10 ' Copyright (C) 2007 Steve Bavin, Jens Arnold, Mesar Hameed
  11 '
  12 ' All files in this archive are subject to the GNU General Public License.
  13 ' See the file COPYING in the source tree root for full license agreement.
  14 '
  15 ' This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
  16 ' KIND, either express or implied.
  17 '
  18 '***************************************************************************
  19 Dim oSpVoice, sVoice
  20
  21 Set oSpVoice = CreateObject("SAPI.SpVoice")
  22 If Err.Number <> 0 Then
  23     WScript.Echo "Error - could not get SpVoice object. " & _
  24                  "SAPI 5 not installed?"
  25     Err.Clear
  26     WScript.Quit 1
  27 End If
  28
  29 WScript.Quit 0