on error resume next

If MSDetect = "true" Then
 If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.8"))) Then
  flashinstalled = 1
 Else
  flashinstalled = 2
 End If
End If