アラーム代わりに使用したWavサウンドの画面を閉じるには？

Question

アラーム代わりに
タスクスケジューラに指定した時間に
以下を実行するようにしました。

sound = "C:\Windows\Media\Alarm01.wav"
Set ws = CreateObject("Wscript.Shell")

Dim counter
counter = 0
Do While counter < 3
    ws.Run sound
    Wscript.Sleep 1200 * 10
    counter = counter + 1
Loop

鳴り終えるとその画面を閉じるようにするには
どうすればいいですか？

Answer 1

これでうまくいきました。
なお、mp3 ファイルも同様に再生できます。

sound = "C:\Windows\Media\Alarm01.wav"
Set ws = CreateObject("Wscript.Shell")

Dim counter
counter = 0
Do While counter < 3
    ws.Run sound
    Wscript.Sleep 1200 * 10
    counter = counter + 1
Loop
ws.sendkeys "%{F4}"