function activexenabled()
  on error resume next
  activex = (NOT IsNull(CreateObject("ScriptBridge.ScriptBridge")))
  activex2 = (NOT IsNull(CreateObject("MSComctlLib.Slider")))
  activex3 = (NOT IsNull(CreateObject("ScriptBridge.ScriptBridge.1")))
  if (activex OR activex2 OR activex3) then
	activexenabled = true
  else
	activexenabled = false
  end if
end function
function wmpexists()
  on error resume next
  WMP62 = (NOT IsNull(CreateObject("MediaPlayer.MediaPlayer.1")))
  if (WMP62) then
	wmpexists = true
  else
	wmpexists = false
  end if
end function
function rpexists()
	on error resume next
	RealPlayerG2 = (NOT IsNull(CreateObject("rmocx.RealPlayer G2 Control")))
	if (RealPlayerG2) then
		rpexists = true
	else
		rpexists = false
	end if
end function
   function qtexists()
	on error resume next
       QuickTime = (NOT IsNULL(CreateObject("QuickTimeCheckObject.QuickTimeCheck.1")))
    	if (QuickTime) then
		qtexists = true
	else
		qtexists = false
	end if
end function
function flashexists()
	on error resume next
	vTest = false
	Set FlashObject = CreateObject("ShockwaveFlash.ShockwaveFlash")
	vTest = (NOT IsNull(FlashObject.IsPlaying()))
	if (vTest) then
		flashexists = true
	else
		flashexists = false
	end if
end function