// Catch the fscommand in ie with vbscript, and pass
// it on to JavaScript.

Sub banner_FSCommand(ByVal command, ByVal args)
    call banner_DoFSCommand(command, args)
end sub

on error resume next
set tmp = CreateObject("DirectAnimation.DirectAnimationIntegratedMediaControl.1")
if IsObject(tmp) then
	i_directx = true
	v_directx = tmp.PixelLibrary.VersionString
end if

on error resume next
set tmp = CreateObject("ClearAdjust.CTAdjust.1")
if IsObject(tmp) then
	i_cleartype = 1
	a_cleartype = tmp.SmoothType
	aa_cleartype = tmp.GammaValue
end if

on error resume next
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"))