Text To Voice (Batch)

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::Text To Voice Via Batch                                    ::
::Created by RU$$ [http://russdev.mooo.com/]                 ::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
@ECHO OFF

Call :SpeachFunction "Hello, This is windows OS"

pause>nul
GOTO :EOF

:SpeachFunction
Cls
(
echo WScript.StdOut.Write wscript.arguments(0^)
echo Set Voice=CreateObject("SAPI.SpVoice"^)
echo voice.speak wscript.arguments(0^)
)>%tmp%\%~n0.vbs
@cScript.EXE /noLogo "%tmp%\%~n0.vbs" "%~1"
GOTO :EOF