//
// $Source: /PrjViews/cilee_snap2/iptv/Bullwink/ContentManager/Iptvguide/script/plugin.vs $
// $Revision: /main/1 $
// $Date: 13-Sep-2000 13:59:17 $
// $Author: cilee $
// ****************************************************************************
// Copyright © 2000 Cisco Systems.
// All rights reserved.
// No part of this source code may be copied, used, or modified
// without the express written consent of Cisco Systems.
// ****************************************************************************
//

// ------------------------------------------------------------------
//
//  VB script used to detect existing plug-ins in Internet Explorer
//
// ------------------------------------------------------------------
Function plugin_activeXDetect(activeXname)    
on error resume next
plugin_activeXDetect = false
  If ScriptEngineMajorVersion >= 2 then    
    plugin_activeXDetect = IsObject(CreateObject(activeXname))	            
    If (err) then
        plugin_activeXDetect = false            
    End If      
  Else            
    plugin_activeXDetect = false
  End If
  return plugin_activeXDetect
End Function

Function plugin_activeXDetectQT(activeXname)  
on error resume next
plugin_activeXDetectQT = false
If ScriptEngineMajorVersion >= 2 then     
    plugin_activeXDetectQT = isObject(CreateObject("QuickTimeCheckObject.QuickTimeCheck.1"))
    MsgBox "script version is right" 
    If (err) then
        MsgBox "error" 
        plugin_activeXDetectQT = false            
    End If      
  
    If IsObject(theObject) Then 
            MsgBox "quick time is object" 
        If theObject.IsQuickTimeAvailable(0) Then     
            plugin_activeXDetectQT=true
            MsgBox "quick time found" 
        End if    
    End if       
 Else       
    plugin_activeXDetectQT = false 
 End If  
            MsgBox "quick time end" & plugin_activeXDetectQT 
return plugin_activeXDetectQT 
End Function