(DataFlex) List Certificates in the Current User Certificate Store (Windows Only)

This is a Windows-only example to list the certificates in the current-user certificate store (located in the Windows Registry).

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoCertStore
    Boolean iReadOnly
    Boolean iSuccess
    Integer iNumCerts
    Integer i
    Variant vCert
    Handle hoCert
    String sTemp1

    // This is a Windows-only example because it lists the certificates
    // stored in the Windows Current User Certificate Store located in the
    // Windows Registry.

    Get Create (RefClass(cComChilkatCertStore)) To hoCertStore
    If (Not(IsComObjectCreated(hoCertStore))) Begin
        Send CreateComObject of hoCertStore
    End

    Move True To iReadOnly
    Get ComOpenCurrentUserStore Of hoCertStore iReadOnly To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoCertStore To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComNumCertificates Of hoCertStore To iNumCerts
    Move 0 To i
    While (i < iNumCerts)
        Get ComGetCertificate Of hoCertStore i To vCert
        If (IsComObject(vCert)) Begin
            Get Create (RefClass(cComChilkatCert)) To hoCert
            Set pvComObject Of hoCert To vCert
        End
        Get ComSubjectDN Of hoCert To sTemp1
        Showln "DN = " sTemp1
        Get ComSubjectE Of hoCert To sTemp1
        Showln "Email = " sTemp1
        Move (i + 1) To i
    Loop



End_Procedure