Function detectarControlActiveX(nombre,vMin,vMax)
  on error resume next
  detectarControlActiveX=False
  If nombre<>"" and vMin>0 and vMax>0 Then
  	version=vMax
  	encontrado=False
  	While version>=vMin and not encontrado
			Set objeto=CreateObject(nombre & "." & CStr(version))
			If IsObject(objeto) Then
		  	detectarControlActiveX=version
		  	encontrado=True
		  Else
		    version=version-1
			End If
		Wend
	End If
End Function

Function detectarVisualBasic()
  detectarVisualBasic="" & ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion()
End Function

Function detectarDirectX()
  Set objetoEnPruebas=CreateObject("DirectAnimation.DirectAnimationIntegratedMediaControl.1")
  If IsObject(objetoEnPruebas) Then
    detectarDirectX="" & objetoEnPruebas.PixelLibrary.VersionString
    If detectarDirectX="" Then
      detectarDirectX=True
    End If
  Else
    detectarDirectX=False
  End If
End Function

Function detectarQuickTime()
  on error resume next
  detectarQuickTime=False
  If detectableConVB Then
    detectarQuickTime=False
    objetoQuickTimeChecker=False
    objetoQuickTimeChecker=CreateObject("QuickTimeCheckObject.QuickTimeCheck.1")
    If IsObject(objetoQuickTimeChecker) Then
      If objetoQuickTimeChecker.IsQuickTimeAvailable(0) Then
        detectarQuickTime=hex(objetoQuickTimeChecker.QuickTimeVersion)
        If detectarQuickTime="" Then
          detectarQuickTime=True
        End If
      End If
    End If
  End If
End Function