Function PlaySound(FichierSon)
Set objShell = CreateObject("Wscript.Shell")
strCommand = "sndrec32 /play /close " & "" & FichierSon & ""
objShell.Run strCommand, 0, True
End Function
WScript.Echo ("Ecouter...")
PlaySound ("C:\windows\media\chimes.wav")
WScript.Quit