strSoundFile = "C:\WINDOWS\Media\Windows XP Ringin.wav" set objectShell = CreateObject("wscript.Shell") strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34) objectShell.Run strCommand, 0, True
edit