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