音声合成でインストールされているパーソナリティを表示し、しゃべらせる

いまさら？というスクリプトだけど、一応とりあげとく。

ファイルをダブルクリックで実行。
(実行環境： Windows10, Window7 等)

PS: Microsoft David はどのファイルでインストールされたのか？

persons.vbs

Dim aa
Set Speaker = CreateObject("SAPI.SpVoice")
Speaker.Rate = 1
aa = ""
For i = 0 To Speaker.GetVoices.Count -1
  aa = aa & i & ": " & Speaker.GetVoices.Item(i).GetDescription & vbCrLf
Next
WScript.echo aa
For i = 0 To Speaker.GetVoices.Count -1
  Set Speaker.Voice = Speaker.GetVoices.Item(i)
  Speaker.Speak Speaker.GetVoices.Item(i).GetDescription
Next
Set Speaker = Nothing

しゃべらない？　なら、
マイクロソフトスピーチプラットフォームをインストールしてる？

マイクロソフトスピーチプラットフォーム

• x86_SpeechPlatformRuntime￥SpeechPlatformRuntime.msi
  
  　　または
• x64_SpeechPlatformRuntime￥SpeechPlatformRuntime.msi

日本語を追加

• MSSpeech_TTS_ja-JP_Haruka.msi
• MSSpeech_TTS_en-US_Helen.msi
• MSSpeech_TTS_en-US_ZiraPro.msi
• MSSpeech_SR_ja-JP_TELE.msi 　　　　これは音声認識だけれど ついでに

無料 フリーウェア スクリプト アプリ プログラム