on error resume next
set f = CreateObject("ShockwaveFlash.ShockwaveFlash")
if IsObject(f) then
	i_flash = true
	v_flash = hex(f.FlashVersion())
	v_flash = left(v_flash,1)
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"))

FlashVersion = CInt(v_flash)
Flash = i_flash

ShockVersion = CInt(v_flash)
Shock = i_flash