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

ファイルをダブルクリックで実行。
(実行環境： 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 　　　　これは音声認識だけれどついでに

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