On error resume next
flashInstalled = NOT IsNull(CreateObject("ShockwaveFlash.ShockwaveFlash"))