' Title       : h.com Flash-Detection for Internet Explorer
' Description : Use to detect if flash is installed.
' Version     : 1.0
' Date        : 2005-03-18
' CVS-Info    : $Id: flashdetect.vbs,v 1.1 2009-12-16 13:14:08 karlb Exp $

Private i, x
On Error Resume Next

hcomFlashControlInstalled = False
hcomFlashControlVersion = False

For i = 7 To 1 Step -1
   Set x = CreateObject("ShockwaveFlash.ShockwaveFlash." & i)
   hcomFlashControlInstalled = IsObject(x)
   If hcomFlashControlInstalled Then
       hcomFlashControlVersion = CStr(i)
       Exit For
   End If
Next