' VBScript Document
' Gus 01/2006
'----------------------------------------------------------------------------

' QuickTime Detect for MSIE

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