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