arrCertificate is array of Certificates
MyCertificate is Certificate
arrCertificate = CertificateLoad("d:\micertificado.pfx", "miclave")
MyCertificate = arrCertificate[1]
Certif is string
cDias is string
// datos para pasarle al HTTP
Certif = MyCertificate.Name
// Comprobar validez
cDias = Val(Today()) - Val(Left(MyCertificate.EndValidityDate,8))
IF Val(cDias) > 0 THEN
Info("El Certificado está caducado.")
Return
END
HTTPCertificate(Certif)