Search the Community

Dica ofertada por @Jackson Douglas do pandeiro Em pergunta de @Janio Aguiar Como pegar o vencimento de um certificado digital em formato .pfx arrCertificate = CertificateLoad( certificado.fpx, senha ) MyCertificate = arrCertificate[4] ConferenceDuration is Duration = SysDateTime() - MyCertificate.EndValidityDate IF MyCertificate.EndValidityDate < SysDateTime() then INFO( "VENCIDO") END @Ronei Marcos Heck tambem contribuiu sListaCertificados is string = "" arrCertificados is array of Certificates arrCertificados = CertificateList() nNrCertificado is int = 0 FOR EACH Certificado OF arrCertificados nNrCertificado ++ sListaCertificados += "<Certificado" + nNrCertificado + ">" sListaCertificados += Certificado..Name + ";" sListaCertificados += Upper(Replace(Certificado..ThumbPrint, " ", "")) + ";" sListaCertificados += Certificado..FullIssuer + ";" sListaCertificados += Certificado..StartValidityDate + ";" sListaCertificados += Certificado..EndValidityDate + ";" sListaCertificados += Replace(Certificado..SerialNumber, " ", "") + ";" sListaCertificados += Certificado..ValidForSignature sListaCertificados += "</Certificado" + nNrCertificado + ">" END

Dica ofertada por @Jackson Douglas do pandeiro Em pergunta de @Janio Aguiar Como pegar o vencimento de um certificado digital em formato .pfx arrCertificate = CertificateLoad( certificado.fpx, senha ) MyCertificate = arrCertificate[4] ConferenceDuration is Duration = SysDateTime() - MyCertificate.EndValidityDate IF MyCertificate.EndValidityDate < SysDateTime() then INFO( "VENCIDO") END @Ronei Marcos Heck tambem contribuiu sListaCertificados is string = "" arrCertificados is array of Certificates arrCertificados = CertificateList() nNrCertificado is int = 0 FOR EACH Certificado OF arrCertificados nNrCertificado ++ sListaCertificados += "<Certificado" + nNrCertificado + ">" sListaCertificados += Certificado..Name + ";" sListaCertificados += Upper(Replace(Certificado..ThumbPrint, " ", "")) + ";" sListaCertificados += Certificado..FullIssuer + ";" sListaCertificados += Certificado..StartValidityDate + ";" sListaCertificados += Certificado..EndValidityDate + ";" sListaCertificados += Replace(Certificado..SerialNumber, " ", "") + ";" sListaCertificados += Certificado..ValidForSignature sListaCertificados += "</Certificado" + nNrCertificado + ">" END