rem /*
' $Id: f.vbs,v 1.3 2004/04/28 13:42:11 glen Exp $

on error resume next

If MSDetect = "true" Then

	' TODO: do this in VBS for cycle
	if IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6")) then flashy = 6
	if flashy < 6 and IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5")) then flashy = 5
	if flashy < 5 and IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4")) then flashy = 4
	if flashy < 4 and IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3")) then flashy = 3

End If

rem */