【VBScript】使用vbs文件直接播放语音

'定义变量
Dim spv,s

'创建语音对象
Set spv=CreateObject("SAPI.SpVoice")

'语速
spv.Rate=1

'音量
spv.Volume=100

'语音
'Microsoft Huihui Desktop   spv.GetVoices.Item(0)
'Microsoft Zira Desktop       spv.GetVoices.Item(1)
Set spv.Voice=spv.GetVoices.Item(0)

'播放
spv.Speak "绍莫千华 Love Lucy" 

'枚举语音
For Each token In spv.GetVoices
        s=s & token.GetDescription & vbcrlf '
Next
MsgBox s