diff options
Diffstat (limited to 'tools/sapi5_init_tts.vbs')
| -rwxr-xr-x | tools/sapi5_init_tts.vbs | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/tools/sapi5_init_tts.vbs b/tools/sapi5_init_tts.vbs new file mode 100755 index 0000000000..466ee5ce71 --- /dev/null +++ b/tools/sapi5_init_tts.vbs | |||
| @@ -0,0 +1,29 @@ | |||
| 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 | ||