//===========================
// Browser Check : Part 2
// ver: 2.0
//===========================

on error resume next

//===========================
// VB Script

i_vbscript = true
if (ScriptEngineMajorVersion = 0) then
 v_vbscript = "1.0"
else
 v_vbscript = ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion
end if

//===========================
// Acrobat

//Set tmp = CreateObject("PDF.PdfCtrl.5")
//If IsObject(tmp) then
// i_acrobatreader = true
// v_acrobatreader = "5-6"
//Else
// Set tmp = CreateObject("PDF.PdfCtrl.1")
// If IsObject(tmp) then
//  i_acrobatreader = true
//  v_acrobatreader = "4"
// End if
//End if
//If IsObject(ocx_pdf) and i_acrobatreader then
// a_acrobatreader = ocx_pdf.GetVersions
//End if

//===========================
// Real player

Function UnpackVersionNumber(n)
 UnpackVersionNumber = (((n And &HF0000000) / &H10000000) & "." & ((n And &HFF00000) / &H100000) & "." & ((n And &HFF000) / &H1000) & "." & (n And &HFFF))
End Function

i_realplayer = IsObject(CreateObject("RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)"))
set tmp = CreateObject("rmocx.RealPlayer G2 Control")
if (IsObject(tmp)) then
 i_realplayer = true
 i_realplayerg2 = true
 i_realplayerplus = tmp.GetIsPlus
 v_realplayer = tmp.GetVersionInfo
end if
set tmp = CreateObject("IERPCtl.IERPCtl.1")
if (IsObject(tmp)) then
 i_realone = true
 v_realone = UnpackVersionNumber(tmp.RealPlayerVersion)
 a_realone = tmp.InstalledComponents
 ver = tmp.ComponentVersion("RV:6.0")
 if not IsNull(ver) then
  i_realvideo = true
  v_realvideo = UnpackVersionNumber(ver)
 end if
end if
i_realvideo = IsObject(CreateObject("RealVideo.RealVideo(tm) ActiveX Control (32-bit)"))

//===========================
// QuickTime

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

//===========================
// Flash

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"))

//===========================
// Windows Media Player

set tmp = CreateObject("MediaPlayer.MediaPlayer.1")
if IsObject(tmp) then
 i_mediaplayer = true
 v_mediaplayer = tmp.versionInfo
 a_mediaplayer = tmp.ClientID
end if
if not v_mediaplayer then
 set tmp7 = CreateObject("WMPlayer.OCX.7")
 if IsObject(tmp7) then
  i_mediaplayer = true
  v_mediaplayer = tmp7.versionInfo
  a_mediaplayer = tmp.ClientID
 end if
end if