var nse = ""; for (var i=0;i<navigator.mimeTypes.length;i++) nse += navigator.mimeTypes[i].type.toLowerCase();

function gunfo( elem ) {

	var agt = navigator.userAgent.toLowerCase();
	var ie  = (agt.indexOf("msie") != -1);
	var ns  = (navigator.appName.indexOf("Netscape") != -1);
	var win = ((agt.indexOf("win")!=-1) || (agt.indexOf("32bit")!=-1));
	var mac = (agt.indexOf("mac")!=-1);

	window.onerror=null;

	colors = window.screen.colorDepth;
	ret = "clrs=" + Math.pow (2, colors);

	if (window.screen.fontSmoothingEnabled == true)
		ret = ret + "|smoothfnt=Yes";

	ret = ret + "|brw=" + navigator.appName;
	ret = ret + "|brwver=" + navigator.appVersion;
	ret = ret + "|clrdep=" + window.screen.colorDepth;
	ret = ret + "|scrw=" + window.screen.width;
	ret = ret + "|scrh=" + window.screen.height;
	ret = ret + "|scravw=" + window.screen.availWidth;
	ret = ret + "|scravh=" + window.screen.availHeight;
	ret = ret + "|brwcdnm=" + navigator.appCodeName;
	ret = ret + "|brwnavplat=" + navigator.platform;
	if (navigator.javaEnabled() == 1) ret = ret + "|=javYes";

	if (ie && win) {
/*		shk = twaDetectIE("SWCtl.SWCtl.1");
		fla = twaDetectIE("ShockwaveFlash.ShockwaveFlash.1");
		rp  = twaDetectIE("rmocx.RealPlayer G2 Control.1");
		mov = twaDetectIE("QuickTimeCheckObject.QuickTimeCheck.1");
		wma = twaDetectIE("MediaPlayer.MediaPlayer.1");
		pdf = 'n';
        if (twaDetectIE("PDF.PdfCtrl.1") == 'y') { pdf = 'y'; }
	    if (twaDetectIE("PDF.PdfCtrl.5") == 'y') { pdf = 'y'; }
		if (twaDetectIE("PDF.PdfCtrl.6") == 'y') { pdf = 'y'; }
*/
		shk = twaDetectIE("SWCtl.SWCtl");
		fla = twaDetectIE("ShockwaveFlash.ShockwaveFlash");
		rp  = twaDetectIE("rmocx.RealPlayer G2 Control");
		mov = twaDetectIE("QuickTimeCheckObject.QuickTimeCheck");
		wma = twaDetectIE("MediaPlayer.MediaPlayer");
		pdf = 'n';
        if (twaDetectIE("PDF.PdfCtrl") == 'y') { pdf = 'y'; }
	}
	if (ns || !win) {
		shk = twaDetectNS("application/x-director");
		fla = twaDetectNS("application/x-shockwave-flash");
		rp  = twaDetectNS("audio/x-pn-realaudio-plugin");
		mov = twaDetectNS("video/quicktime");
		wma = twaDetectNS("application/x-mplayer2");
		pdf = twaDetectNS("application/pdf");
	}
	ret = ret + "|shk=" + shk + "|fla=" + fla + "|rp=" + rp + "|mov=" + mov + "|wma=" + wma + "|pdf=" + pdf;

	document.getElementById( elem ).value = ret;

	return true;

}

function twaDetectIE(ClassID) {
	result = false;
 	document.write('<scr'+'ipt language=VBScript>' +
 				   'playerversion = 1' + '\n' +
 				   'Do While playerversion > 0' + '\n' +
 				   'On Error Resume Next' + '\n' +
 				   'result = (IsObject(CreateObject("' + ClassID + '." & playerversion)))' + '\n' +
 				   'If result = true Then Exit Do' + '\n' +
 				   'playerversion = playerversion - 1' + '\n' +
 				   'Loop' + '\n' +
 				   '<\/sc' + 'ript>' );
// 	alert( 'test: ' + ClassID + ': ' + result );
	if (result) return 'y';
	else return 'n';
}

function twaDetectNS(ClassID) {
	var result = "n";
	if (nse.indexOf(ClassID) != -1) if (navigator.mimeTypes[ClassID].enabledPlugin != null) result = "y";
	return result;
}