Function CheckIEActiveXForFlash
  Dim hasPlayer, playerversion, minVersion

  minVersion = 5
  hasPlayer = false
  playerversion = 10
  
  Do While playerversion >= minVersion
   On Error Resume Next
   hasPlayer = ( IsObject( CreateObject( "ShockwaveFlash.ShockwaveFlash." & playerversion & "" ) ) )
   If hasPlayer = true Then Exit Do
   playerversion = playerversion - 1
  Loop
  flashversion = playerversion
  CheckIEActiveXForFlash = hasPlayer
End Function

Function CheckIEActiveXForMedia
  hasPlayer = false
  On Error Resume Next
  hasPlayer = ( IsObject( CreateObject( "MediaPlayer.MediaPlayer.1" ) ) )
  CheckIEActiveXForMedia = hasPlayer
End Function