///////////////////////////////////////////////////////////////////////
//自動的にiTunesの曲名を挿入するスクリプト
//2004年10月 by stabucky
//http://stabucky.blogzine.jp/
//
//iTunesで音楽を聴きながら、ブログなどで記事を書いているとき、
//そのとき聴いている曲のアーティスト名、曲名、アルバム名を
//テキストデータとしてクリップボードにコピーします。
//その後、好きな場所に貼り付けてください。
//
//このスクリプトの改変は自由に行っていただいてかまいません。
//
//履歴
//20041027作成
//
///////////////////////////////////////////////////////////////////////

var pnir = new ActiveXObject("Sleipnir.API");
var id = pnir.GetDocumentID(pnir.ActiveIndex);
var document = pnir.GetDocumentObject(id);
var window = pnir.GetWindowObject(id);

if(document==null){
	pnir.MessageBox("Document オブジェクトを作成できません");
}else{
	var iTunesApp = WScript.CreateObject("iTunes.Application");
	var track = iTunesApp.CurrentTrack;
	var temp;
	if(track.Album==""){
		temp="";
	}else{
		temp='(from Album "' + track.Album + '")';
	}
	var hyoji = track.Artist + ' "' + track.Name + '"' + temp ;
	window.clipboardData.setData("text",hyoji);
	document = null;
}
pnir = null;