VBS: Sintesi vocale con SAPI.SpVoice

Se vogliamo far parlare il nostro PC tramite Visual Basic Script (VBS) e utilizzando la sintesi vocale inclusa in Windows possiamo utilizzare il seguente codice:

StrText=("Please allow me to introduce myself") 
StrText2=("I'm a man, of wealth, and taste") 
set ObjVoice = CreateObject("SAPI.SpVoice") 
ObjVoice.Volume = 100
ObjVoice.Speak StrText 
ObjVoice.Speak StrText2 

Lo script utilizza il metodo SAPI.SpVoice per la sintesi vocale delle stringhe di testo passate. Di seguito è possibile scaricare il file VBS:
DOWNLOAD

FIG 1 - Sintesi Vocale

Di default la voce della sintesi vocale fornita in Windows è in inglese ma è possibile scaricare, anche gratuitamente, diverse voci e lingue. Lo script utilizza la voce selezionata all'interno del Sistema Operativo.