Reakce na odpověď

jde to, ale v tom VBS je to řádově elegantnější.

např. takto:

Dim kecy
kecy=array("Hello, master!", "What a nice day!", "Am I on the other side already?")
Dim max,min,nahoda
max=2
min=0
Randomize
nahoda=(Int((max-min+1)*Rnd+min))
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak kecy(nahoda)
WScript.sleep 500
ObjVoice.Speak ("I'm ready.")

edit: pokud si chceš přidat další hlášky, stačí je přidat na konec pole (stejným stylem) a povýšit adekvátně položku "max" (počítá se od nuly)

BAT