dim haveqt
haveqt = false
On Error Resume Next
Set theObject = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1")
On Error goto 0
If IsObject(theObject) Then
  If theObject.IsQuickTimeAvailable(0) Then
    haveqt = true
  End If
End If