Function VBGetShockwaveVersion(i)
	on error resume next
	Dim dcrControl, dcrVersion
	tVersionString = "0.0"
	dcrVersion = "0.0"

	//古いバージョンの判定
	set dcrControl = CreateObject("SWCtl.SWCtl." + CStr(i))
	if (IsObject(dcrControl)) then
		dcrVersion = CStr(i) + ".0"
		dcrVersion = CStr(dcrControl.ShockwaveVersion(""))
	end if
	VBGetShockwaveVersion = dcrVersion
	
	//新しいバージョンの判定（古い判定で0の時）
	if VBGetShockwaveVersion = 0 Then
		set tSWControl = CreateObject("SWCtl.SWCtl")
		if IsObject(tSWControl) then
			tVersionString = tSWControl.ShockwaveVersion("")
		else
			tVersionString = 0
		end if
	VBGetShockwaveVersion = tVersionString
	end if

End Function

Function VBGetFlashVersion(i)
	on error resume next
	Dim swfControl, swfVersion
	swfVersion = 0
	set swfControl = CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(i))
	if (IsObject(swfControl)) then
		swfVersion = swfControl.FlashVersion()
	end if

	VBGetFlashVersion = swfVersion
End Function

Function VBGetQuicktimeVersion(i)
	on error resume next
	Dim movControl, movVersion
	movVersion = 0

	set movControl = CreateObject("QuickTimeCheckObject.QuickTimeCheck." + CStr(i))

	if (IsObject(movControl)) then
	movVersion = 1.0
		if (movControl.IsQuickTimeAvailable(0)) then
			movVersion = 2.0
		end if
	end if

	VBGetQuicktimeVersion = movVersion
End Function

Function VBGetRealMediaVersion(i)
	on error resume next
	Dim realControl, realVersion
	realVersion = "0.0"

	set realControl = CreateObject("rmocx.RealPlayer G2 Control." + CStr(i))

	if (IsObject(realControl)) then
		realVersion = CStr(i) + ".0"
		realVersion = CStr(realControl.GetVersionInfo())
	end if

	VBGetRealMediaVersion = realVersion
End Function

Function VBGetWindowsMediaVersion(i)
	on error resume next
	Dim wmfControl, wmfVersion
	wmfVersion = 0

	set wmfControl = CreateObject("MediaPlayer.MediaPlayer." + CStr(i))

	if (IsObject(wmfControl)) then
		wmfVersion = 1.0
	end if

	VBGetWindowsMediaVersion = wmfVersion
End Function