ONLY DO WHAT ONLY YOU CAN DO

こけたら立ちなはれ 立ったら歩きなはれ

VBScript で iTunes のライブラリに登録されている曲の一覧を取得する

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.Duration     & ","
    WScript.StdOut.Write      track.composer     & ","
    WScript.StdOut.Write      track.lyrics       & ","
    WScript.StdOut.Write      track.bitrate
    WScript.StdOut.WriteLine
Next

iTunesApp.Quit
Set iTunesApp = Nothing

実行結果

C:\>cscript //nologo itunes.vbs
ABBA,ABBA GOLD,1,Dancing Queen,231,,,128
ABBA,ABBA GOLD,2,Knowing Me, Knowing You,242,,,128