Stap 1: Schrijf het script...
' Script dat is geschreven door Ayman Farhat (SCRIPTmaster)
' Deze script laat uw PC om te lezen van de inhoud van een tekstbestand dat u kiest!
Const ForReading = 1
strText = InputBox ("Typ de naam van het bestand u wilt Lees het bestand, het bestand heeft een extensie .txt", "Lees tekstbestanden vanuit Kladblok")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objText = objFSO.OpenTextFile (strText + ".txt", ForReading)
strText = objText.ReadAll
objText.Close
Instellen van Sapi = Wscript.CreateObject ("SAPI. SpVoice")
SAPI.speak strText
Wanneer je het script opslaan uw werk, wanneer u opslaan de naam van uw script schrijft by.vbs extention gevolgd zoals in de afbeelding hieronder