如何播放.wav文件？

下面的代码可以不借助其它软件直接播放.wav文件：

Dim Shell,WaveFile
WaveFile = "c:\windows\media\ding.wav"
Set Shell = CreateObject("Wscript.Shell")
Shell.Run "sndrec32 /play /close """ & WaveFile & """",0,True