on error resume next
i_flash=false
set f = CreateObject("ShockwaveFlash.ShockwaveFlash")
if IsObject(f) then
i_flash = true
v_flash = hex(f.FlashVersion())
end if
i_flash2 = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.2"))
i_flash3 = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3"))
i_flash4 = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4"))
i_flash5 = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5"))
i_flash6 = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6"))
set s = CreateObject("SWCtl.SWCtl")
if IsObject(s) then
i_shock = true
v_shock = s.ShockwaveVersion("")
end if
i_shock6 = IsObject(CreateObject("SWCtl.SWCtl.1"))
i_shock7 = IsObject(CreateObject("SWCtl.SWCtl.7"))
i_shock8 = IsObject(CreateObject("SWCtl.SWCtl.8"))