VBScript で iTunes の曲一覧を取得する

iTunes.vbs

Set iTunesApp = WScript.CreateObject("iTunes.Application")
For Each track In iTunesApp.LibraryPlaylist.Tracks
    WScript.StdOut.Write      track.Artist       & ","
    WScript.StdOut.Write      track.Album        & ","
    WScript.StdOut.Write      track.TrackNumber  & ","
    WScript.StdOut.Write      track.Name         & ","
    WScript.StdOut.Write      track.Composer     & ","
    WScript.StdOut.Write      track.Duration     & ","
    WScript.StdOut.Write      track.BitRate
    WScript.StdOut.WriteLine
Next
iTunesApp.Quit
Set iTunesApp = Nothing