Cut/paste the script below into notepad and then save it on your desktop as speech.vbs
Have Fun!
Dim message, sapi
message=InputBox("Thwack Squack Box - What would you like me to say?","SolarWins!")
Set sapi=CreateObject("sapi.spvoice")
with sapi
Set .voice = .getvoices.item(0)
.Volume = 100
.Rate = 1
end with
sapi.Speak message