Posta era OSX Screenshots

on run
	set info to ""
	tell application "System Events"
		set num to count (every process whose name is "iTunes")
	end tell
	if num > 0 then
		tell application "iTunes"
			if player state is playing then
				set who to artist of current track
				set what to name of current track
				set onwhat to album of current track
				set stars to (rating of current track) / 20 as integer
				set info to quote & what & quote & " by " & who & return & "from " & onwhat as string
			end if
		end tell
	end if
	return info
end run

date +%Y