on error resume next

// Find quicktime

set obj_qt = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1")
if IsObject(obj_qt) then
 hasQuicktime = obj_qt.IsQuickTimeAvailable(0)
 qtVersion = hex(obj_qt.QuickTimeVersion)
end if

// Find realplayer

hasRealPlayer = IsObject(CreateObject("RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)"))
set tmp = CreateObject("rmocx.RealPlayer G2 Control")
if (IsObject(tmp)) then
 hasRealPlayer = true
 realVersion = tmp.GetVersionInfo
end if

// Find Java plugin and version

hasJavaPlugin = IsObject(CreateObject("Java"))

// Find Shockwave Flash 6

hasFlash = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6"))

// Find MS media Player

set tmp = CreateObject("MediaPlayer.MediaPlayer.1")
if IsObject(tmp) then
 hasMSMedia = true
 msVersion = tmp.versionInfo
end if

if not msVersion then
 set tmp7 = CreateObject("WMPlayer.OCX.7")
 if IsObject(tmp7) then
  hasMSMedia = true
  msVersion = tmp7.versionInfo
 end if
end if

vbDetectOK=true