AppleScript to remove items from iTunes whose files have been deleted

delete_orphans.scpt

tell application "iTunes"
	set selectedTracks to selection
	repeat with i from 1 to (length of selectedTracks)
		if class of item i of selectedTracks is not shared track then
			tell item i of selectedTracks to set {loc} to {get location}
			if loc is missing value then
				tell application "iTunes"
					delete item i of selectedTracks
				end tell
			end if
		end if
	end repeat
end tell