on error resume next
dim oFlash
set oFlash = CreateObject("ShockwaveFlash.ShockwaveFlash")
isFlashInstalled = IsObject(oFlash)