var detectableWithVB =false;

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;

} 



if ((navigator.userAgent.indexOf('MSIE') != -1) && (navigator.userAgent.indexOf('Win') != -1)) {

    document.writeln('<script 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('</scr' + 'ipt>');

}



function detectQuickTime(redirectURL, redirectIfFound) {

    pluginFound = detectPlugin('QuickTime');

	

	if(!pluginFound && detectableWithVB) {

	pluginFound = detectQuickTimeActiveXControl();

    }



    return(pluginFound);

}