tell application "Internet Explorer"
	Activate
	do script "
		var bsetShowURL = true; // リンク文字をURLにする (true) かアンカーテキストにするか (false)
		var bsetNewWinName = 'extractLinks';
		var bsetNewWinAttr = 'toolbar=yes,location=yes,favorites=yes,status=yes,scrollbar=yes,resizable=yes';
		var bsetLinks = [];
		bsetExtractLinks();

		function bsetExtractLinks() {
			OBJs = document.getElementsByTagName('A');
			for (var i=0, n=OBJs.length; i<n; i++) {
				bsetShowProgress('Extracting links', i, n, self);
				var obj = OBJs.item(i);
				bsetLinks[bsetLinks.length] = { href : obj.href,  title : obj.title, text : obj.innerText }
			}
		
			var newWin = window.open('about:blank', bsetNewWinName, bsetNewWinAttr);
			newWin.document.title = 'Link list of ' + window.location;

			var rootElement = newWin.document.getElementsByTagName('BODY')[0];
			var cH1 = newWin.document.createElement('h1');
			var cUL = newWin.document.createElement('ul');
			cH1.appendChild(newWin.document.createTextNode(newWin.document.title));
			rootElement.appendChild(cH1);
			appendStyle(cH1);
			appendStyle(cUL);
		
			for (var i=0, n=bsetLinks.length; i<n; i++) {
				bsetShowProgress('Creating link list', i, n, newWin);
				var cLI = newWin.document.createElement('li');
				var cA = newWin.document.createElement('a');
				cA.href = bsetLinks[i].href;
				cA.title = (bsetShowURL) ? bsetLinks[i].title : bsetLinks[i].href;
				cA.innerText = (bsetShowURL) ? bsetLinks[i].href : bsetLinks[i].text;
				cLI.appendChild(cA);
				cUL.appendChild(cLI);
			}
			newWin.status = 'Creating Link list...';
			rootElement.appendChild(cUL);
			newWin.status = '';
		}

		function appendStyle(obj) {
			switch(obj.tagName) {
				case 'H1' :
					with (obj.style) {
						fontSize = 'inherit';
					}
					break;
				case 'UL' :
					with (obj.style) {
						listStyle = 'none';
						paddingLeft = '0';
						margin = '1em 0';
					}
					break;
				default: break;
			}
		}
		
		function bsetShowProgress(text, currentNo, wholeNo, window){
			currentNo++;
			window.status = text + ' (' + currentNo + '/' + wholeNo + ')';
			if (currentNo >= wholeNo) window.status = '';
		}
	"
end tell