tell application "iTunes" set originalPlaylistName to "TMP" activate set CDPlaylist to playlist 1 of (source 1 where its kind is audio CD) set tmpTracklist to tracks of (playlist originalPlaylistName of (source 1 where its kind is library)) set n to number of tmpTracklist repeat with i from 1 to n set CDTrack to track i of CDPlaylist set tmpTrack to item i of tmpTracklist set {na, ar, al, ge, yr, cm} to {name of tmpTrack, artist of tmpTrack, album of tmpTrack, genre of tmpTrack, year of tmpTrack, composer of tmpTrack} with transaction set {name of CDTrack, artist of CDTrack, album of CDTrack, genre of CDTrack, year of CDTrack, composer of CDTrack} to {na, ar, al, ge, yr, cm} end transaction end repeat end tell
