on error resume next
If MSDetect = "true" Then
If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash"))) Then 
flashInstalled = 1
Else
flashInstalled = 2
End If
End If