Dim WshShell, FSO
Set WshShell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

Call WshShell.Run("foobar2000.exe " & chr(34) & _
		"/runcmd-playlist=Convert/auspec" & chr(34), 1, True)

WshShell.Popup "Please press OK when converting is done",, "auSpec waiting for responce ...", 1

WshShell.CurrentDirectory = ".\tools\AuSpec\"
Call WshShell.Run("AuSpec_Pre.exe C:\temp\foo_temp\Image.wav", 1, True)
Call WshShell.Run("ACDSee32.exe C:\temp\foo_temp\Image.wav.png", 1, True)
FSO.GetFolder("C:\temp\foo_temp").Delete