检测是否安装realplayer播放器

<script language="javascript">
    var RealMode=0;
    var RealPlayer5=0;
    var RealPlayer4=0;
    var RealPlayerG2=0;
    var checkRealPlayer=false;
    if (navigator.userAgent.indexOf("MSIE")< 0 ){
        numPlugins = navigator.plugins.length;
        for (i = 0; i < numPlugins; i++){
            plugin = navigator.plugins[i];
            if (plugin.name.substring(0,10)=="RealPlayer"){
                RealMode=1;
            }
        }
    }
    // 通过VBScript的CreateObject()函数动态的创建RealPlayer对象
    document.write('<SCRIPT LANGUAGE=VBScript\> \n');
    document.write('on error resume next \n');
    document.write('RealPlayerG2 = (NOT IsNull(CreateObject("rmocx.RealPlayer G2 Control")))\n');
    document.write('RealPlayer5 = (NOT IsNull(CreateObject("RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)")))\n');
    document.write('RealPlayer4 = (NOT IsNull(CreateObject("RealVideo.RealVideo(tm) ActiveX Control (32-bit)")))\n');
    document.write('</SCRIPT\> \n');
    if ( RealMode || RealPlayerG2 || RealPlayer5 || RealPlayer4 ){
    checkRealPlayer=true;
    }else{
       checkRealPlayer=false;
    }
if(checkRealPlayer){
    alert("已安装Real Player播放器");
}else{
    alert("您的系统未安装Real Player播放器");
 window.location.href="http://cn.real.com";
}
</script>