on error resume next
dirPlugin = (IsObject(CreateObject("SWCtl.SWCtl.1")) Or IsObject(CreateObject("Macromedia.ActiveShockwave.1")))
on error resume next
flaPlugin = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash")))
on error resume next
FlashInstalled3 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3")))
on error resume next
FlashInstalled4 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4")))