' **********************************************************************
  '
  '  Flashabfrage-Skript
  '
  '  Kunde:            Seitenblick
  '
  '  Dieses Skript erkennt die Flash-Version und leitet je nach Version und
  '  notwendiger Version an verschiedene Dateien weiter
  '
  '
  '  Filename:         sb_flash.vbs
  '  Versionscontrol:  1.0 kp 20.04.2001
  '                    Erstellung des Skripts und Freigabe
  '
  '  seitenblick interaktive medien gmbh
  '  Dornierstrasse 17, 70469 Stuttgart, Tel. 0711/8599818-0
  '  info@seitenblick.de  http://www.seitenblick.de
  '
  ' **********************************************************************


Private i, x

On Error Resume Next

MM_FlashControlInstalled = False
MM_FlashControlVersion = 0

For i = 5 To 1 Step -1
   Set x = CreateObject("ShockwaveFlash.ShockwaveFlash." & i)

   MM_FlashControlInstalled = IsObject(x)

   If MM_FlashControlInstalled Then
       MM_FlashControlVersion = CStr(i)
       Exit For
   End If
Next