Visit Last.FM site for artist

Set WshShell = CreateObject("WScript.Shell")
x = playlist.getselection
if (ubound(x) > 0) then
 WshShell.Run """http://www.last.fm/music/" & x(1).artist & """"
end if
quit

Search Google for artist

Set WshShell = CreateObject("WScript.Shell")
x = playlist.getselection
if (ubound(x) > 0) then
 WshShell.Run """http://www.google.com/search?q=" & x(1).artist & """"
end if
quit

Search Wikipedia (EN) for artist (ML sendto)

Set WshShell = CreateObject("WScript.Shell")
x = GetSendToItems
if (ubound(x) > 0) then
WshShell.Run """http://en.wikipedia.org/wiki/Special:Search?go=Go&search=" & x(1).artist & """"
end if
quit

Search Google Images for album cover (ML sendto)

Set WshShell = CreateObject("WScript.Shell")
x = GetSendToItems
if (ubound(x) > 0) then
WshShell.Run """http://images.google.com/images?q=" & x(1).album & """"
end if
quit