Download:
speak.vbs - https://www.box.com/s/1f1946821da027b114b0
Dim aaa_speak _ , sClipboard _ , oIE _ , oSh _ , oSAPI _ , zzz_speak Set oIE=CreateObject("InternetExplorer.Application") Set oSAPI=CreateObject("SAPI.SpVoice") Set oSh=CreateObject("WScript.Shell") oSh.SendKeys "%{Tab}^{Insert}" oIE.Navigate("about:blank") sClipboard= _ oIE.document.parentwindow.clipboardData.GetData("text") oIE.Quit oSAPI.Speak sClipBoard Set oSh=Nothing Set oSAPI=Nothing WScript.Quit