请帮我洗一个能够随机播放指定目录下面 MP3文件 的vbs脚本

好的，以下是一个能够随机播放指定目录下面 MP3 文件的 VBScript 脚本：

Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

' 指定要播放的音频文件所在目录
strMusicFolder = "C:\Music"

' 获取目录下所有的 MP3 文件
Set colFiles = objFSO.GetFolder(strMusicFolder).Files
Set objMP3Files = CreateObject("Scripting.Dictionary")
For Each objFile in colFiles
    If LCase(objFSO.GetExtensionName(objFile.Name)) = "mp3" Then
        objMP3Files.Add objMP3Files.Count + 1, objFile.Path
    End If
Next

' 随机播放 MP3 文件
Do While True
    ' 随机获取一个 MP3 文件
    intIndex = Int((objMP3Files.Count - 1) * Rnd + 1)
    strMP3File = objMP3Files.Item(intIndex)
    
    ' 播放 MP3 文件
    objShell.Run "mplayer.exe """ & strMP3File & """", 0, True
    
    ' 延时 5 秒
    WScript.Sleep 5000
Loop

这个脚本会随机选择指定目录下所有的 MP3 文件进行播放，并且每个 MP3 文件会播放 5 秒钟后自动切换到下一个文件。请注意，你需要将 `C:\Music` 替换成你想要播放的 MP3 文件所在的目录。此外，你还需要将 `mplayer.exe` 替换成你计算机上的音频播放器程序。