Skip to content

Instantly share code, notes, and snippets.

@katahiromz

katahiromz/Speech.vbs

Created September 23, 2018 10:51
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save katahiromz/23986b96c9145c291da24d8fa9045b95 to your computer and use it in GitHub Desktop.
Save katahiromz/23986b96c9145c291da24d8fa9045b95 to your computer and use it in GitHub Desktop.
Download ZIP
Speech.vbs
Raw
Speech.vbs
' Speech.vbs
' Copyright (C) 2018 Katayama Hirofumi MZ <katayama.hirofumi.mz@gmail.com>
' This file is public domain software.
' Usage: cscript Speech.vbs
Option Explicit
Sub Main
Dim SpVoice
On Error Resume Next
Set SpVoice = WScript.CreateObject("Speech.SpVoice")
If Err.Number <> 0 Then
Set SpVoice = WScript.CreateObject("SAPI.SpVoice")
End If
SpVoice.Speak "ピラフさん、こんにちわ"
End Sub
Main
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment