(PowerBuilder) Load Certificate from Smart Card by Serial Number

See more Certificates Examples

This example requires Chilkat v9.5.0.87 or greater. It uses a Windows-only function named LoadFromSmartcard.

This example loads a certificate specified by its hexidecimal serial number. The LoadFromSmartcard method will examine the connected smart cards and USB tokens and will find and load the certificate having the specified serial number.

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

integer li_rc
oleobject loo_Cert
integer li_Success
oleobject loo_Cert2

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

loo_Cert = create oleobject
// Use "Chilkat_9_5_0.Cert" for versions of Chilkat < 10.0.0
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")
if li_rc < 0 then
    destroy loo_Cert
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// If you know the smart card PIN, set it prior to loading from the smartcard/USB token.
loo_Cert.SmartCardPin = "12345678"

// To load the certificate specified by its hexidecimal serial number, pass the string "serial=<hexSerialNumber>".  For example:
li_Success = loo_Cert.LoadFromSmartcard("serial=4A1E6ADCF59DB1EFBAAE438D2C52664E40D16A87")
if li_Success = 0 then
    Write-Debug loo_Cert.LastErrorText
    Write-Debug "Certificate not loaded."
    destroy loo_Cert
    return
end if

Write-Debug "Found: " + loo_Cert.SubjectDN + " serial=" + loo_Cert.SerialNumber

// Here's another example.
// Note: serial numbers can be of different lengths.  The length of the serial number depends on the certificate.
loo_Cert2 = create oleobject
// Use "Chilkat_9_5_0.Cert" for versions of Chilkat < 10.0.0
li_rc = loo_Cert2.ConnectToNewObject("Chilkat.Cert")

li_Success = loo_Cert2.LoadFromSmartcard("serial=66BE58138D761E92BC594A722932657BE26D421F")
if li_Success = 0 then
    Write-Debug loo_Cert2.LastErrorText
    Write-Debug "Certificate not loaded."
    destroy loo_Cert
    destroy loo_Cert2
    return
end if

Write-Debug "Found: " + loo_Cert2.SubjectDN + " serial=" + loo_Cert2.SerialNumber


destroy loo_Cert
destroy loo_Cert2