function Is ()
{   // convert all characters to lowercase to simplify testing
    var agt=navigator.userAgent.toLowerCase()
    // *** BROWSER VERSION ***
    this.ie   = (agt.indexOf("msie") != -1)
    this.ie4  = (this.ie && (this.major == 4))
    this.ie4up  = this.ie  && (this.major >= 4)
    // *** PLATFORM ***
    this.mac    = (agt.indexOf("mac")!=-1)
}

var is = new Is()

function cpu() {
	browserpf="Non connue";
	if (is.mac)    { browserpf="Macintosh"; };
	if (is.win)    { browserpf="Windows"; };
	document.writeln(browserpf);
}

var havewmp = 0; // controle ActiveX pour IE PC
var haverealmac = 0;
var WindowsMediaPlayerActiveXName = "MediaPlayer.MediaPlayer.1"; 

if (navigator.userAgent && navigator.userAgent.indexOf("MSIE")>=0 && (navigator.userAgent.indexOf("Windows")>=0))
{
	document.write('<SCR'+'IPT LANGUAGE=VBScript\> \n');
	document.write('on error resume next \n');
	document.write('havewmp   = IsObject(CreateObject(WindowsMediaPlayerActiveXName))\n');
	document.write('</SCR'+'IPT\> \n');
}


var WM_startTagFix = '</';
var msie_windows = 0;

if ((navigator.userAgent.indexOf('MSIE') != -1) && (navigator.userAgent.indexOf('Win') != -1)){
  msie_windows = 1;
  document.writeln('<script language="VBscript">');
  document.writeln('\'This will scan for plugins for all versions of Internet Explorer that have a VBscript engine version 2 or greater.');
  document.writeln('\'This includes all versions of IE4 and beyond and some versions of IE 3.');
  document.writeln('Dim WM_detect_through_vb');
  document.writeln('WM_detect_through_vb = 0');
  document.writeln('If ScriptEngineMajorVersion >= 2 then');
  document.writeln('  WM_detect_through_vb = 1');
  document.writeln('End If');
  document.writeln('Function WM_activeXDetect(activeXname)');
  document.writeln('  on error resume next');
  document.writeln('  If ScriptEngineMajorVersion >= 2 then');
  document.writeln('     WM_activeXDetect = False');
  document.writeln('     WM_activeXDetect = IsObject(CreateObject(activeXname))');
  document.writeln('     If (err) then');
  document.writeln('        WM_activeXDetect = False');
  document.writeln('     End If');
  document.writeln('   Else');
  document.writeln('     WM_activeXDetect = False');
  document.writeln('   End If');
  document.writeln('End Function');
  document.writeln(WM_startTagFix+'script>');
}

function WM_pluginDetect(plugindescription, pluginxtension, pluginmime, activeXname){
  var i,plugin_undetectable=0,detected=0, daPlugin=new Object();

  if (msie_windows && WM_detect_through_vb){
      plugin_undetectable = 0;
  } else {
      plugin_undetectable = 1;
  }

  if(navigator.plugins) {
      numPlugins = navigator.plugins.length;
      if (numPlugins > 1) {
	  if (navigator.mimeTypes && navigator.mimeTypes[pluginmime] && navigator.mimeTypes[pluginmime].enabledPlugin && (navigator.mimeTypes[pluginmime].suffixes.indexOf(pluginxtension) != -1)) {
	      if ((navigator.appName == 'Netscape') && (navigator.appVersion.indexOf('4.0') != -1)) {
		  for(i in navigator.plugins) {
		      if ((navigator.plugins[i].description.indexOf(plugindescription) != -1) || (i.indexOf(plugindescription) != -1)) {
				  detected=1;
				  break;
		      }
		  }
	      } else {
		  for (i = 0; i < numPlugins; i++) {
		      daPlugin = navigator.plugins[i];
		      if ((daPlugin.description.indexOf(plugindescription) != -1) || (daPlugin.name.indexOf(plugindescription) != -1)) {
			  detected=1;
			  break;
		      }
		  }
	      }

	      // Mac weirdness
      if (navigator.mimeTypes[pluginmime] == null) {
		  detected = 0;
	      }
	  }
	  return detected;
      } else if((msie_windows == 1) && !plugin_undetectable){
	  return WM_activeXDetect(activeXname);
      } else {
	  return 0;
      }
  } else {
      return 0;
  }
}

// gestion Mac Netscape RealNetworks

if (is.mac) {
	// gestion Mac
	if (navigator.plugins) {
		for (i=0; i < navigator.plugins.length; i++ ) {
			if (navigator.plugins[i].name.indexOf("RealPlayer(tm) G2 LiveConnect-Enabled Plug-in (Mac)") >= 0)
				{ haverealmac = true; }
			if (navigator.plugins[i].name.indexOf("Windows Media Plugin") >= 0)
				{ havewmp = true; }
			}
		}
	}

// gestion PC Netscape RealNetworks et WMP
else {
if (navigator.plugins) {
	for (i=0; i < navigator.plugins.length; i++ ) {
		if (navigator.plugins[i].name.indexOf("Windows Media Player") >= 0)
			{ havewmp = true; }
		}
	}
	function havereal() {
	    var isItThere = 0;
	    //if ( (whichPlugin == 'realaudio') || (whichPlugin == 'Realaudio') || (whichPlugin == 'RealAudio') ) {
		isItThere = (WM_pluginDetect('RealPlayer', 'rpm', 'audio/x-pn-realaudio-plugin', 'RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)')) || (WM_pluginDetect('RealPlayer', 'rpm', 'audio/x-pn-realaudio-plugin','rmocx.RealPlayer G2 Control')) || (WM_pluginDetect('RealPlayer', 'rpm', 'audio/x-pn-realaudio-plugin','RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)')) || (WM_pluginDetect('RealPlayer', 'rpm', 'audio/x-pn-realaudio-plugin','RealVideo.RealVideo(tm) ActiveX Control (32-bit)'))
	    //}
	    return isItThere;
	}
}

havereal = (is.mac && haverealmac) || (!is.mac && havereal());

//
//detection plugin quicktime, toutes plateformes, tous navigateurs
//

var haveqt = false;
document.write('<SCR'+'IPT LANGUAGE=VBScript\> \n');
document.write('on error resume next \n');
document.write('Set theObject = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1") \n');
document.write('on error goto 0 \n');
document.write('If IsObject(theObject) Then \n');
document.write('If theObject.IsQuickTimeAvailable(0) Then \n');
document.write('haveqt = true \n');
document.write('End If \n');
document.write('End If \n');
document.write('</SCR'+'IPT\> \n');

if (navigator.plugins) {
	for (i=0; i < navigator.plugins.length; i++ ) {
		if (navigator.plugins[i].name.indexOf("QuickTime") >= 0)
			{ haveqt = true; }
	}
}