Set winamp = WScript.CreateObject("WinampCOM.winamp")
If winamp.GetVersionString() = "0.000" Then
WScript.Echo "Winamp Not Found"
' For extended error information uncomment the next line
' WScript.Echo winamp.GetErrorLog()
Else
Dim playlist
Dim n
playlist = winamp.GetPlaylist()
For n= LBound(playlist) to UBound(playlist)
WScript.Echo playlist(n)
next
Set playlist = nothing
End If