Text To Voice Via Batch v2 (Batch)

<!-- : BATCH
    :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
    ::Text To Voice Via Batch 25DEC18 | Updated: 2FEB22          ::
    ::Created by RU$$ [http://russdev.mooo.com/]                 ::
    :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
    @ECHO OFF

    Rem | cscript //nologo "%~f0?.wsf" "Message" "Male/Female"
    cscript //nologo "%~f0?.wsf" "Test 1" "0"
    cscript //nologo "%~f0?.wsf" "Test 2" "1"

    pause>nul
    GOTO :EOF
BATCH : --->

<job><script language="VBScript">
    Dim message, voice
    message=WScript.Arguments.Item(0)
    voice=WScript.Arguments.Item(1)
    set AIVoice = CreateObject("SAPI.SpVoice")
    with AIVoice
    Set .voice = .getvoices.item(voice)
    end with
    AIVoice.Speak(message)
</script></job>