On Error  Resume Next   Set theObject = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1")   qthex = theObject.QuickTimeVersionOn Error  goto 0If IsObject(theObject) Then  If theObject.IsQuickTimeAvailable(0) Then   'Just check for file	qtpresent = 1	getVersion(qthex)  End IfElse   qtpresent = 0End If