rem /*
' $Id: f.vbs,v 1.4 2005/04/25 15:12:38 glen Exp $

on error resume next

If MSDetect = "true" Then

	' TODO: do this in VBS for cycle
	if IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.7")) then flashy = 7
	if flashy < 7 and 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 */