ONLY DO WHAT ONLY YOU CAN DO

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

VBScript で iTunes にインポートする

既にmp3形式に変換済みの曲をインポートする場合

Set iTunesApp = WScript.CreateObject("iTunes.Application")

WScript.StdOut.WriteLine "登録開始..."
WScript.StdOut.WriteLine  iTunesApp.CurrentEncoder.Name

Set sts = iTunesApp.LibraryPlaylist.AddFile("c:\MP3\01 矢沢永吉\01 キャロル\01 ルイジアンナ\02 ヘイ・タクシー.mp3")
Do While (sts.InProgress)
    WScript.Sleep 1000
Loop

For each track In sts.Tracks
    track.Artist       = "キャロル"
    track.Album        = "ルイジアンナ"
    track.TrackNumber  = "2"
    track.Name         = "02 ヘイ・タクシー"
    track.Composer     = "ジョニー大倉 & 矢沢永吉"
Next
Set sts = Nothing
WScript.StdOut.WriteLine "登録終了"

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.BitRate
    WScript.StdOut.WriteLine
Next

iTunesApp.Quit
Set iTunesApp = Nothing

実行結果

C:\>cscript //nologo itunes3.vbs
登録開始...
MP3 Encoder
登録終了
ABBA,ABBA GOLD,1,Dancing Queen,231,,128
ABBA,ABBA GOLD,2,Knowing Me, Knowing You,242,,128
キャロル,ルイジアンナ,2,02 ヘイ・タクシー,141,ジョニー大倉 & 矢沢永吉,192