use Win32::OLE;

$file = "F:/Work/Eminem - Brain Damage.mp3";

printf "Trying to add %s to iTunes\n", $file;

$result = iTunesAdd( $file);

printf "Result %d\n", $result;

sub iTunesOpen {
 my $failure;
 $iTunesApp = new Win32::OLE( "iTunes.Application") or $failure = 1;
 if ($failure) {
   printf "Failed to launch iTunes application through OLE\n";
 } else {
   $iTunesVersion = $iTunesApp->Version;
   printf "OLE connection established to iTunes application $iTunesVersion\n";
   $iTunesOpen = 1;
 }
}

sub iTunesAdd {
 my $file = shift @_;
 my ($mainLibrary, $operationStatus, $trackCollection, $count);

 iTunesOpen( ) unless $iTunesOpen;
 return undef unless $iTunesOpen;

 $mainLibrary = $iTunesApp->LibraryPlayList;
 $operationStatus = $mainLibrary->AddFile( $file);
 unless (defined $operationStatus) {
   printf "File not accepted by iTunes \"%s\"\n", $file);
   return 0;
 }
 sleep 1 while $operationStatus->InProgress;
 $trackCollection = $operationStatus->Tracks;
 $count = $trackCollection->Count;
 printf "Failed to add file to iTunes \"%s\"\n", $file unless $count;
 return $count;
}

args = WScript.Arguments;
if  (args.length != 1)
{
WScript.Echo("Usage: encodeAAC.js <filename.wav>");
}
else
{
var iTunesApp = WScript.CreateObject("iTunes.Application");
var  encoderCollection = iTunesApp.Encoders;
var encoder=encoderCollection.ItemByName("AAC Encoder");
iTunesApp.CurrentEncoder = encoder;
var  fso = new ActiveXObject("Scripting.FileSystemObject");
var  fullpath = fso.GetAbsolutePathName(args(0));
var  opStatus = iTunesApp.ConvertFile(fullpath);
while (opStatus.InProgress) { WScript.Sleep(1000); }
Wscript.Echo(opStatus.Tracks.Item(1).Location);
}

args = WScript.Arguments;
if  (args.length != 2)
{
WScript.Echo("Usage: encodeAAC.js <input.wav> <output.m4a>");
}
else
{
var iTunesApp = WScript.CreateObject("iTunes.Application");
var  encoderCollection = iTunesApp.Encoders;
var encoder=encoderCollection.ItemByName("AAC Encoder");
iTunesApp.CurrentEncoder = encoder;
var  fso = new ActiveXObject("Scripting.FileSystemObject");
var  fullpath = fso.GetAbsolutePathName(args(0));
var  opStatus = iTunesApp.ConvertFile(fullpath);
while (opStatus.InProgress) { WScript.Sleep(1000); }
var outfile = fso.GetFile(opStatus.Tracks.Item(1).Location);
outfile.copy(args(1), true);
}