set wa = CreateObject("ActiveWinamp.Application")

query = InputBox("Enter a query")
 
if len(query) > 0 then
	wa.playlist.clear
	results = wa.medialibrary.RunQueryArray("title has """ + query + """")
	results(1).enqueue
end if