{"id":334,"date":"2006-11-29T04:00:00","date_gmt":"2006-11-29T12:00:00","guid":{"rendered":"http:\/\/testblog.sapien.com\/index.php\/2006\/11\/29\/make-your-scripts-sing\/"},"modified":"2006-11-29T04:00:00","modified_gmt":"2006-11-29T12:00:00","slug":"make-your-scripts-sing","status":"publish","type":"post","link":"https:\/\/dev.sapien.com\/blog\/2006\/11\/29\/make-your-scripts-sing\/","title":{"rendered":"Make your scripts sing"},"content":{"rendered":"

In an earlier <\/span>post<\/a>, I showed you how to make your scripts talk back. Well, you can also use the SAPI object to “speak” a wav file. Imagine having a script play a sound when it finishes a long query or process.  This is pretty easy to do. The limitation is that the object will only play wav files.<\/span>

What you need to do is create a  <\/span>SAPI.SpFileStream.1 object and then invoke it’s OPEN method, passing it the parameter of a filename.<\/span><\/p>\n

<\/span><\/span>Set objFile = CreateObject(“SAPI.SpFileStream.1”)
objFile.Open “C:\\windows\\media\\tada.wav”<\/p>\n

The voice object uses the SpeakStream method to “speak” the file:<\/span>

objSPVoice.Speakstream objFile<\/p>\n

It is good practice to close the file after you are done with it.<\/span>

objFile.Close<\/p>\n

That’s all there is to it.  I’ve put together a sample script that gets your media directory (typically %windir%\\media) and lists all the files that end in .wav.  The default voice will speak each filename and then “speak” the file so you can hear it.<\/span>
<\/span>
On Error Resume Next<\/span>
Dim objShell,objFSO,objFiles<\/span>
Dim objSPVoice,objFile<\/span>
 <\/span>
Set objSPVoice=CreateObject(“SAPI.SpVoice”)<\/span>
Set objFile = CreateObject(“SAPI.SpFileStream.1”)<\/span>
Set objShell=CreateObject(“wscript.shell”)<\/span>

strWinDir= objShell.ExpandEnvironmentStrings(“%WinDir%”)<\/span>
strMediaDir=strWinDir & “\\Media”<\/span>

Set objFSO=CreateObject(“Scripting.FileSystemObject”)<\/span>
Set objFiles=objFSO.GetFolder(strMediaDir).Files

<\/span>For Each file In objFiles<\/span>
‘only get .wav files<\/span>
    If Right(file.name,3)=”wav” Then <\/span>
    WScript.Echo file<\/span>
    DemoWav file<\/span>
    End If<\/span>
Next<\/span>

Sub DemoWav(File)<\/span>
On Error Resume Next<\/span>
    Err.Clear<\/span>
    objFile.Open file<\/span>
    If Err.Number<>0 Then Exit Sub ‘bail if there is a problem<\/span>
                                    ‘opening the file<\/span>
    objSPVoice.Speak file.name<\/span>
    objSPVoice.SpeakStream objFile<\/span>
    objFile.Close<\/span>
End Sub<\/span><\/p>\n

The DemoWav subroutine attempts to opens each file.  I added some error handling as on my system some of the wav files caused an error when they were opened, yet they play just fine in Windows Media Player. I just skip those since this is a demo anyway.  <\/span>

Now your scripts can talk back and sing to you.<\/p>\n

(The Microsoft Scripting Guys have a nice article on this topic at http:\/\/www.microsoft.com\/technet\/scriptcenter\/funzone\/games\/sapi.mspx<\/a>)
<\/span><\/p>\n","protected":false},"excerpt":{"rendered":"

In an earlier post, I showed you how to make your scripts talk back. Well, you can also use the SAPI object to “speak” a wav file. Imagine having a script play a sound when it finishes a long query or process. This is pretty easy to do.<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"footnotes":""},"categories":[2,24],"tags":[],"class_list":["post-334","post","type-post","status-publish","format-standard","hentry","category-general","category-vbscript"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t