tell application "iTunes" set these_tracks to the selection of browser window 1 if these_tracks is not {} then repeat with aTrack in these_tracks set bookmarkable of aTrack to true set shufflable of aTrack to false set video kind of aTrack to music video end repeat end if end tell
----
set bookmarkable of aTrack to true は「再生位置を記憶」をON set shufflable of aTrack to false は「シャフル時にスキップする」をON set video kind of aTrack to music videoでミュージックビデオにセット
