Public Certificate
Public retValue
    
function FiltraCertFirma(FilteredCertificates, serial)
    Dim szHTML
	Dim Template
   	Dim idx
   	idx=0    	
   	Dim OID 
    Set OID = CreateObject("CAPICOM.OID")
    For Each Certificate in FilteredCertificates
	   	idx=idx+1
		if (Certificate.SerialNumber = serial) then
    		FiltraCertFirma = idx
    		Exit Function
    	end if
		'Dim EKU 
		'For Each EKU In    Certificate.ExtendedKeyUsage.EKUs
			
			'OID.Value = EKU.OID
			'alert(Certificate.SerialNumber)
			'alert(OID.FriendlyName)
			'alert(OID.Value)
			'alert(OID.Name)
    		'if (OID.Value="1.3.6.1.5.5.7.3.2") then
    		'	FiltraCertFirma= idx
    		'	Exit Function
    		'end if
    	'Next
    Next
end function