detectableWithVB = False
If ScriptEngineMajorVersion >= 2 then
  detectableWithVB = True
End If

Function detectActiveXControl(activeXControlName)
    on error resume next
    detectActiveXControl = False
    If detectableWithVB Then
		set swControl = CreateObject(activeXControlName)
        If IsObject(swControl) Then
            detectActiveXControl = True
        End If
    End If
End Function

Function detectActiveXControlVersion(activeXControlName)
    on error resume next
    detectActiveXControlVersion = null
    For i = 10 to 1 Step -1
        activeXControlNameWithVersion = activeXControlName + "." + CStr(i)

        If detectActiveXControl(activeXControlNameWithVersion) Then
            detectActiveXControlVersion = activeXControlNameWithVersion
            Exit For
        End If
    Next
End Function

Function detectQuickTimeActiveXControl()
    on error resume next
    detectQuickTimeActiveXControl = null
    If detectableWithVB Then
        detectQuickTimeActiveXControl = False
        hasQuickTimeChecker = false
        Set hasQuickTimeChecker = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1")
        If IsObject(hasQuickTimeChecker) Then
            If hasQuickTimeChecker.IsQuickTimeAvailable(0) Then 
                detectQuickTimeActiveXControl = "QuickTimeCheckObject.QuickTimeCheck.1"
            End If
        End If
    End If
End Function