ForNext

WAV 形式の曲を MP3 に変換して インポート

VBScript

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

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

Set sts = iTunesApp.ConvertFile("c:\WAV\01 矢沢永吉\01 キャロル\01 ルイジアンナ\02 ヘイ・タクシー.wav")
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 itunes2.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

JScript

Perl

PHP

Python

Ruby

PowerShell

$it = New-Object -ComObject iTunes.Application
$sts = $it.ConvertFile("c:\WAV\01 矢沢永吉\01 キャロル\01 ルイジアンナ\02 ヘイ・タクシー.wav")
while($sts.InProgress)
{
    Start-Sleep 1
}

foreach ($track in $sts.Tracks)
{
    $track.Artist       = "キャロル"
    $track.Album        = "ルイジアンナ"
    $track.TrackNumber  = "2"
    $track.Name         = "02 ヘイ・タクシー"
    $track.Composer     = "ジョニー大倉 & 矢沢永吉"
}

foreach ($track in $it.LibraryPlaylist.Tracks)
{
    Write-Host      $track.Artist       ", "    -nonewline
    Write-Host      $track.Album        ", "    -nonewline
    Write-Host      $track.TrackNumber  ", "    -nonewline
    Write-Host      $track.Name         ", "    -nonewline
    Write-Host      $track.Duration     ", "    -nonewline
    Write-Host      $track.Composer     ", "    -nonewline
    Write-Host      $track.BitRate      ", "    -nonewline
}

$it.Quit

キャロル, ルイジアンナ, 2, 02 ヘイ・タクシー, 346, ジョニー大倉 & 矢沢永吉, 192

Scala

F#

C

C++

C++Builder

VC++

C#

Java

Objective-C

D

VB

VB.NET

Delphi

Ada

PL/SQL

T-SQL