' INICIO - COMPROBACION DE FLASH INSTALADO EN CLIENTE 
function checkFlashVBS(detector, flashinstalled)
	on error resume next
	If detector = "true" Then		
		checkFlashVBS = 1
		
		For i = 2 to 6
			If IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i)) Then
				checkFlashVBS = 2								
			End If
		Next
	Else
			checkFlashVBS = flashinstalled
	End If
end function
' FIN - COMPROBACION DE FLASH INSTALADO EN CLIENTE