Dim Message, Speak
Message = InputBox("Ute !", "Speak")
if len(Message)>0 then
Set Speaker = CreateObject("sapi.spvoice")
Speaker.Rate = 3
Speaker.Volume = 100
Do
Speaker.Speak Message
Loop
end if
Set Speaker = Nothing
Dim Message, Speak, i
Message = InputBox("Ute !", "Speak")
if len(Message)>0 then
Set Speaker = CreateObject("sapi.spvoice")
Speaker.Volume = 100
i = -10
Do
Speaker.Rate = i
Speaker.Speak Message
i = i + 1
Loop
end if
Set Speaker = Nothing
VBSは重複起動できるので、ボイスパーカッションみたいなこともできます。
単一で起動させる場合は、下記のリンクを参照