SQL Server
SQL Server
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 SQL Server Downloads
-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
DECLARE @hr int
-- Important: Do not use nvarchar(max). See the warning about using nvarchar(max).
DECLARE @sTmp0 nvarchar(4000)
DECLARE @sTmp1 nvarchar(4000)
DECLARE @success int
SELECT @success = 0
-- This example requires the Chilkat API to have been previously unlocked.
-- See Global Unlock Sample for sample code.
DECLARE @cert int
EXEC @hr = sp_OACreate 'Chilkat.Cert', @cert OUT
IF @hr <> 0
BEGIN
PRINT 'Failed to create ActiveX component'
RETURN
END
-- If you know the smart card PIN, set it prior to loading from the smartcard/USB token.
EXEC sp_OASetProperty @cert, 'SmartCardPin', '12345678'
-- To load the certificate specified by its hexidecimal serial number, pass the string "serial=<hexSerialNumber>". For example:
EXEC sp_OAMethod @cert, 'LoadFromSmartcard', @success OUT, 'serial=4A1E6ADCF59DB1EFBAAE438D2C52664E40D16A87'
IF @success = 0
BEGIN
EXEC sp_OAGetProperty @cert, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
PRINT 'Certificate not loaded.'
EXEC @hr = sp_OADestroy @cert
RETURN
END
EXEC sp_OAGetProperty @cert, 'SubjectDN', @sTmp0 OUT
EXEC sp_OAGetProperty @cert, 'SerialNumber', @sTmp1 OUT
PRINT 'Found: ' + @sTmp0 + ' serial=' + @sTmp1
-- Here's another example.
-- Note: serial numbers can be of different lengths. The length of the serial number depends on the certificate.
DECLARE @cert2 int
EXEC @hr = sp_OACreate 'Chilkat.Cert', @cert2 OUT
EXEC sp_OAMethod @cert2, 'LoadFromSmartcard', @success OUT, 'serial=66BE58138D761E92BC594A722932657BE26D421F'
IF @success = 0
BEGIN
EXEC sp_OAGetProperty @cert2, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
PRINT 'Certificate not loaded.'
EXEC @hr = sp_OADestroy @cert
EXEC @hr = sp_OADestroy @cert2
RETURN
END
EXEC sp_OAGetProperty @cert2, 'SubjectDN', @sTmp0 OUT
EXEC sp_OAGetProperty @cert2, 'SerialNumber', @sTmp1 OUT
PRINT 'Found: ' + @sTmp0 + ' serial=' + @sTmp1
EXEC @hr = sp_OADestroy @cert
EXEC @hr = sp_OADestroy @cert2
END
GO