on error resume next

If DoDetect = "true" Then

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

End If