function RTactiveXDetect(componentClassID) {
	componentVersion = document.body.getComponentVersion('{'+componentClassID+'}','ComponentID');
	if(componentVersion != null)
		return componentVersion;
	return false;
}

function RTgetie_inf() {
	if(window.document.referrer.length>0)
		RTref=escape(window.document.referrer);
	else
		RTref='leer';
	try {
	document.body.addBehavior("#default#clientCaps");
	// GETTING FLASH INFO
	RTfl = RTactiveXDetect("D27CDB6E-AE6D-11CF-96B8-444553540000");
	if(RTfl && RTfl != ""){
		RTfl = RTfl.substring(0,8);
	}else{
		document.writeln('<SCR'+'IPT LANGUAGE=VBScript\>');
		document.writeln('on error resume next\n set f = CreateObject("ShockwaveFlash.ShockwaveFlash")\n if IsObject(f) then RTfl = hex(f.FlashVersion()) end if\n');
		document.writeln('<'+'/SCR'+'IPT\>');
	}
		
	if (RTfl.length >0){
		RTplugins = RTfl;
		RTfl =RTfl.substring(0,1);
	} else {
		RTfl ="0";
	}
	// GEFTTING MEADIA PLAYER INFO
	RTwm = RTactiveXDetect("6BF52A52-394A-11d3-B153-00C04F79FAA6");
	if(RTwm && RTwm != ""){
		RTplugins +=RTwm;
		RTwm = RTwm.substring(0,10);
	}else{
		RTwm = RTactiveXDetect("22D6F312-B0F6-11D0-94AB-0080C74C7E95");
		if(RTwm && RTwm != ""){
			RTplugins +=RTwm;
			RTwm = RTwm.substring(0,10);
		}
	}
	
	if (RTwm.length == 0){
		RTwm ="leer";
	}

	// GEFTTING Netmeeting INFO
	RTnetmeet = RTactiveXDetect("44BBA842-CC51-11CF-AAFA-00AA00B6015B");
	if(RTnetmeet && RTnetmeet != ""){
		RTplugins +=RTnetmeet;
		RTnetmeet = RTnetmeet.substring(0,10);
	}else{
		RTnetmeet ="leer";
	}
	// GEFTTING offline browsing INFO
	RTobp = RTactiveXDetect("3AF36230-A269-11D1-B5BF-0000F8051515");
	if(RTobp && RTobp != ""){
		RTplugins +=RTobp;
		RTobp = RTobp.substring(0,13);
	}else{
		RTobp ="leer";
	}
	RTwduNT = RTactiveXDetect("89820200-ECBD-11CF-8B85-00AA005B4340");
	if(RTwduNT && RTwduNT != ""){
		RTplugins +=RTwduNT;
		RTwduNT = RTwduNT.substring(0,13);
	}else{
		RTwduNT ="leer";
	}
	RTjava = RTactiveXDetect("08B0E5C0-4FCB-11CF-AAA5-00401C608500");
	if(RTjava && RTjava != ""){
		RTplugins +=RTjava;
		RTjava = RTjava.substring(0,13);
	}else{
		RTjava ="leer";
	}
	// GEFTTING RealPlayer INFO
	try {
		testObject = new ActiveXObject("rmocx.RealPlayer G2 Control.1");
		iRTrpl = testObject.GetVersionInfo();
	}
	catch(e) {}
	try {
		testObject = new ActiveXObject("RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)");
		RTrpl = testObject.GetVersionInfo();
	}
	catch(e) {}
	try {
		testObject = new ActiveXObject("RealVideo.RealVideo(tm) ActiveX Control (32-bit)");
		RTrpl = testObject.GetVersionInfo();
	}
	catch(e) {}
	if(RTrpl=="leer"){
		document.writeln('<SCR'+'IPT type="text/vbscript"><!--');
		document.writeln('	on error resume next');
		document.writeln('	i_realplayer = IsObject(CreateObject("RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)"))');
		document.writeln('	set tmp = CreateObject("rmocx.RealPlayer G2 Control")');
		document.writeln('	if (IsObject(tmp)) then');
		document.writeln('	RTrpl = tmp.GetVersionInfo');
		document.writeln('	end if');
		document.writeln('// --></SCR'+'IPT>');
	}
	RTplugins +=RTrpl;
        RTaa="LEER";
	RTplugins +=RTaa;

	//QuickTime Info
/**
	document.writeln('<scr'+'ipt type="text/vbscript"><!--');
	document.writeln('	on error resume next');
	document.writeln('	set obj_qt = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1")');
	document.writeln('	if IsObject(obj_qt) then');
	document.writeln('	RTqt = hex(obj_qt.QuickTimeVersion)');
	document.writeln('	end if');
	document.writeln('// --></scr'+'ipt>');
	RTplugins +=RTqt;
**/
	//try{
		RTplugins += RTactiveXDetect("7790769C-0471-11D2-AF11-00C04FA35D02");//Address Book
		RTplugins += RTactiveXDetect("CC2A9BA0-3BDD-11D0-821E-444553540000");//Task Scheduler
		RTplugins += RTactiveXDetect("44BBA840-CC51-11CF-AAFA-00AA00B6015C");//Outlook Express
	//}catch(e){}
	} catch(e){}

	RTsx=screen.width;
	RTsy=screen.height;
	RTcd=screen.colorDepth;
	RTlang=navigator.browserLanguage;
	RTplcou=navigator.plugins.length;
	RTjava=navigator.javaEnabled();

	RTplugins_md5 = escape(hex_md5(RTplugins));
	RT_make_req();
}

function delayedStartMD5(){
	if(window.hex_md5){
		 RTgetie_inf();
	} else {
		setTimeout("delayedStartMD5()",500);
	}
}
delayedStartMD5();