var detectableWithVB = false;
	var pluginFound = false;

	function canDetectPlugins() {
    if( detectableWithVB || (navigator.plugins && navigator.plugins.length > 0) ) {
        return true;
    } else {
        return false;
    }
	}

	function detectFlash() {
    pluginFound = detectPlugin('Shockwave','Flash'); 
    if(!pluginFound && detectableWithVB) {
        pluginFound = detectActiveXControl('ShockwaveFlash.ShockwaveFlash.1');
    }
		return pluginFound;
	}

	function detectDirector() { 
    pluginFound = detectPlugin('Shockwave','Director'); 
    if(!pluginFound && detectableWithVB) {
        pluginFound = detectActiveXControl('SWCtl.SWCtl.1');
    }
		return pluginFound;
	}

	function detectQuickTime() {
    pluginFound = detectPlugin('QuickTime');
    if(!pluginFound && detectableWithVB) {
        pluginFound = detectQuickTimeActiveXControl();
    }
		return pluginFound;
	}

	function detectReal() {
    pluginFound = detectPlugin('RealPlayer');
    if(!pluginFound && detectableWithVB) {
        pluginFound = (detectActiveXControl('rmocx.RealPlayer G2 Control') ||
                       detectActiveXControl('RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)') ||
                       detectActiveXControl('RealVideo.RealVideo(tm) ActiveX Control (32-bit)'));
    }   
		return pluginFound;
	}

	function detectWindowsMedia() {
    pluginFound = detectPlugin('Windows Media');
    if(!pluginFound && detectableWithVB) {
        pluginFound = detectActiveXControl('MediaPlayer.MediaPlayer.1');
    }
		return pluginFound;
	}

	function detectPlugin() {
    var daPlugins = detectPlugin.arguments;
    var pluginFound = false;

		if (navigator.plugins && navigator.plugins.length > 0) {
        var pluginsArrayLength = navigator.plugins.length;
				
        for (pluginsArrayCounter=0; pluginsArrayCounter < pluginsArrayLength; pluginsArrayCounter++ ) {
            var numFound = 0;
						
            for(namesCounter=0; namesCounter < daPlugins.length; namesCounter++) {
                if( (navigator.plugins[pluginsArrayCounter].name.indexOf(daPlugins[namesCounter]) >= 0) || 
                    (navigator.plugins[pluginsArrayCounter].description.indexOf(daPlugins[namesCounter]) >= 0) ) {
                    numFound++;
                }   
            }
            if(numFound == daPlugins.length) {
                pluginFound = true;
                break;
            }
        }
    }
    return pluginFound;
	}

	function getQuicktimeVersion() {
		var quicktimeVersion = 0;
		var agent = navigator.userAgent.toLowerCase(); 
		 
	 if (navigator.plugins != null && navigator.plugins.length > 0) {
			for (i=0; i < navigator.plugins.length; i++ ) {
				 var plugin =navigator.plugins[i];
				 if (plugin.name.indexOf("QuickTime") > -1) {
						quicktimeVersion = parseFloat(plugin.name.substring(18));
				 }
			}
	 }
	 else if (agent.indexOf("msie") != -1 && parseInt(navigator.appVersion) >= 4 && agent.indexOf("win")!=-1 && agent.indexOf("16bit")==-1) {
			quicktimeVersion = parseFloat(detectQuickTimeActiveXVersion());
	}
	 else {
			quicktimeVersion = -1;
	 }
	 return quicktimeVersion;
	}

	if ((navigator.userAgent.indexOf('MSIE') != -1) && (navigator.userAgent.indexOf('Win') != -1)) {
    document.writeln('<scr' + 'ipt language="VBscript">');
    document.writeln('\'do a one-time test for a version of VBScript that can handle this code');
    document.writeln('detectableWithVB = False');
    document.writeln('If ScriptEngineMajorVersion >= 2 then');
    document.writeln('  detectableWithVB = True');
    document.writeln('End If');
    document.writeln('\'this next function will detect most plugins');
    document.writeln('Function detectActiveXControl(activeXControlName)');
    document.writeln('  on error resume next');
    document.writeln('  detectActiveXControl = False');
    document.writeln('  If detectableWithVB Then');
    document.writeln('     detectActiveXControl = IsObject(CreateObject(activeXControlName))');
    document.writeln('  End If');
    document.writeln('End Function');
    document.writeln('\'and the following function handles QuickTime');
    document.writeln('Function detectQuickTimeActiveXControl()');
    document.writeln('  on error resume next');
    document.writeln('  detectQuickTimeActiveXControl = False');
    document.writeln('  If detectableWithVB Then');
    document.writeln('    detectQuickTimeActiveXControl = False');
    document.writeln('    hasQuickTimeChecker = false');
    document.writeln('    Set hasQuickTimeChecker = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1")');
    document.writeln('    If IsObject(hasQuickTimeChecker) Then');
    document.writeln('      If hasQuickTimeChecker.IsQuickTimeAvailable(0) Then ');
    document.writeln('        detectQuickTimeActiveXControl = True');
    document.writeln('      End If');
    document.writeln('    End If');
    document.writeln('  End If');
    document.writeln('End Function');
    document.writeln('Function detectQuickTimeActiveXVersion()');
		document.writeln('	on error resume next \n');
		document.writeln('	detectQuickTimeActiveXVersion = 0');
		document.writeln('	set obQuicktime = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1")');
		document.writeln('	if IsObject(obQuicktime) then');
		document.writeln('  	if obQuicktime.IsQuickTimeAvailable(0) then');
		document.writeln('			qtvers = obQuicktime.QuickTimeVersion');
		document.writeln('      detectQuickTimeActiveXVersion = (((qtvers And &HFF000000) / &H01000000) & "." & ((qtvers And &H00F00000) / &H00100000) & "." & ((qtvers And &H000F0000) / &H00010000))');
		document.writeln('   end if \n');
		document.writeln('	end if \n');
    document.writeln('End Function');
		document.writeln('</scr' + 'ipt>');
	}