' $Id: fd.vbs,v 1.1 2007/07/12 12:29:28 roland Exp $

Function FlashDetect
	on error resume next
	dim obj, maxFlash, ver, parts, subs
	maxFlash = 25
	ver = 0
	for i = maxFlash to 1 step -1
		set obj = CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(i))
		if (ver = 0 AND IsObject(obj)) then
			ver = obj.GetVariable("$version")
			parts = Split(ver, " ")
			subs = Split(parts(1), ",")
			ver = subs(0)
		end if
	next
	FlashDetect = ver
End Function