Hope some one finds this useful.
Code: Select all
tell application "iTunes" set foundCD to true try set myCD to some source whose kind is audio CD on error errorMessage number errorNumber -- error 1728 means the AudioCD was not found, so wait a little if errorNumber is -1728 then set foundCD to false else display dialog errorMessage end if end try if foundCD then set CDname to myCD's name set myPlaylist to playlist 1 of myCD set theTracks to tracks of myPlaylist tell application "Max" set mc to (count every track of document 1) set maxdisk to document 1 end tell set ic to (count theTracks) if mc = ic then repeat with i from 1 to (count theTracks) set atrack to item i of theTracks set ar to artist of atrack set al to album of atrack set tn to track number of atrack set tc to track count of atrack set ge to genre of atrack set co to composer of atrack set ye to year of atrack set na to name of atrack set comp to compilation of atrack set com to comment of atrack set dn to disc number of atrack set dc to disc count of atrack tell application "Max" set maxtrack to track i of document 1 if not (rip in progress of maxtrack) and not (encode in progress of maxtrack) then set title of maxtrack to na set artist of maxtrack to ar set date of maxtrack to ye as string set genre of maxtrack to ge set composer of maxtrack to co --set comment of maxtrack to com --set number of maxtrack to tn end if end tell if i = 1 then tell application "Max" set title of maxdisk to al set artist of maxdisk to ar set compilation of maxdisk to comp set genre of maxdisk to ge set date of maxdisk to ye as string set composer of maxdisk to co set comment of maxdisk to com -- set track count of maxdisk to tc -- max doesn't allow setting total tracks set composer of maxdisk to co --if dn > 1 then set disc number of maxdisk to dn set total discs of maxdisk to dc --end if end tell end if end repeat else display dialog "The iTunes CD track count and the Max CD track count do not match." end if else display dialog "Couldn't get a CD from iTunes. Please retry." end if end tell