tell application "Internet Explorer"
	Activate
	do script "
		// レガシー HTML のデザイン効果をうち消す CSS の所在地 (URL)
		var bsetNoStyleURL = 'http://www.remus.dti.ne.jp/~a-satomi/bunsyorou/MacIE5_benriSet/nostyle.css';
		// それの名前
		var bsetNoStyleLabel = '*NoStyle*';

		var bsetPrefix = 'Benriset';
		var bsetScriptName = 'DenyStyle';
		bsetMain();
		
		function bsetMain(){
			if (!bsetIsFirstLaunch()) return;
			bsetDenyStyle();
		}
		
		function bsetDenyStyle(){
			for (var i=0, n=document.styleSheets.length; i<n; i++ ) {
				bsetShowProgress('Disable author CSS', i, n);
				document.styleSheets[i].disabled = true;
			}
			// createElement で head 要素に appendChild なやりかたでは上手くいかんらしいー
			var noStyle = document.createStyleSheet(bsetNoStyleURL);
			noStyle.title = bsetNoStyleLabel;
		}
		
		function bsetIsFirstLaunch() {
			var bsetNSURL = 'http://www.remus.dti.ne.jp/~a-satomi/bunsyorou/MacIE5_benriSet.html';
			var flagAttrName = bsetPrefix + ':' + bsetScriptName;
			var applyFlag = document.documentElement.getAttribute(flagAttrName);
			if (!applyFlag) {
				document.documentElement.setAttribute('xmlns:'+bsetPrefix, bsetNSURL);
				document.documentElement.setAttribute(flagAttrName, 'true');
				return true;
			} else {
				window.status = flagAttrName + ' is already applied.';
				return false;
			}
		}
		
		function bsetShowProgress(text, currentNo, wholeNo){
			currentNo++;
			window.status = text + ' (' + currentNo + '/' + wholeNo + ')';
			if (currentNo >= wholeNo) window.status = '';
		}
	"
end tell