iTunes で曲名とアーティスト名を交換する AppleScript

ある CD を iTunes にインポートしようとしたらなんでか知らんけど、CDDB に曲名とアーティスト名が逆に登録されていた。しかもそういうのに限って 6 枚セットとかいう。手で直すのなんかやってられません。AppleScript してみた◎

tell application "iTunes"
    set theTracks to selection of front browser window
    set theTracksRef to a reference to theTracks
    repeat with i from 1 to count of theTracksRef
        set theTrack to item i of my theTracksRef
        set songName to name of theTrack
        set songArtist to artist of theTrack
        set name of theTrack to songArtist
        set artist of theTrack to songName
    end repeat
end tell

プレイリストで選択しているトラックの曲名とアーティスト名を交換するスクリプト。