certificado digital

[Alain da Silva]

bom dia pessoal, eu consigo pegar a propriedade "nome amigável" do certificado?

Através do "CAPICOM.Store" eu pego alguns dados exemplo:            

oCertSelecao  := oCertificados:Select("Selecione o certificado para uso da Nf-e","Selecione o certificado",.F.)
oSerialNumber:= oCertSelecao:Item(1):SerialNumber  (numero do certificado)

Outra coisa, tem como saber todas as propriedades/nomes do certificado que existem?

 

obrigado
 

[sygecom]

Está tudo no MSDN

https://msdn.microsoft.com/en-us/library/windows/desktop/aa376092(v=vs.85).aspx#properties

 

Exemplo:

....

    TRY
      oStore:open(IIF(cTIP='USUARIO',_CAPICOM_CURRENT_USER_STORE,_CAPICOM_LOCAL_MACHINE_STORE),'My',_CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED)
      oCertificados := oStore:Certificates() // Lista de Certificados
      oCertSelecao  := oCertificados:Select("Selecione o certificado para uso da Nfe","Selecione o certificado",.F.)
      IF oCertSelecao:Count() > 0
        aRetorno['OK']            := .T.
        aRetorno['Serial']        := oCertSelecao:Item(1):SerialNumber
        aRetorno['IssuerName']    := oCertSelecao:Item(1):IssuerName
        aRetorno['SubjectName']   := oCertSelecao:Item(1):SubjectName
        aRetorno['Thumbprint']    := oCertSelecao:Item(1):Thumbprint
        aRetorno['ValidFromDate'] := oCertSelecao:Item(1):ValidFromDate
        aRetorno['ValidToDate']   := oCertSelecao:Item(1):ValidToDate
        aRetorno['Version']       := oCertSelecao:Item(1):Version
     ELSE
        aRetorno['OK']      := .F.
        aRetorno['MsgErro'] := 'Certificado não localizado'
      ENDIF
    CATCH
      aRetorno['OK']       := .F.
      aRetorno['MsgErro']  := "Certificado não localizado"
       Return(aRetorno)
    END
 

....

[Alain da Silva]

Sygecom, eu até vi essa pagina mas não consegui a propriedade que quero:

Tentei fazer aRetorno["friendlyname"] := oCertSelecao:Item(1):oid:friendlyname

Da erro:

Error description: Error CAPICOM.Store:CERTIFICATES:ITEM/6  DISP_E_UNKNOWNNAME: OID
   Args:
 

[FiveWinBr]

Boa tarde,

Eu havia feito alguns ajustes para o Jackson relacionado a isso, acredito que pode te ajudar.
https://github.com/JoseQuintas/sefazclass/blob/master/source/ze_sefazcapicom.prg

Fiz a função para instalar e desinstalar o certificado.

Voce pode personalizar para verficiar as datas tambem e remover o que estiver vencido etc.

Att.
Lailton Fernando Mariano
https://www.harbour.com.br - <lailton@harbour.com.br>