ForNext

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

VBScript

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

JScript

Perl

PHP

Python

Ruby

PowerShell

Scala

F#

C

C++

C++Builder

VC++

C#

Java

Objective-C

D

VB

VB.NET

Delphi

Ada

PL/SQL

T-SQL