on error resume next
  If MSDetect = "true" Then
     For i = 2 to 6
        If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then
        Else
           flashinstalled = 2
           flashversion = i
        End If
     Next
     If flashinstalled = 0 Then
        flashinstalled = 1
     End If
  End If