VB.NET

Import a PFX/P12 into the Windows Certificate Stores

See more Certificates Examples

Demonstrates how to import the certificates contained in a .pfx/.p12 to the Windows certificate stores. VB.NET

Dim success As Boolean = False

Dim pfx As New Chilkat.Pfx

success = pfx.LoadPfxFile("qa_data/pfx/example.p12","p12Password")
If (success = False) Then
    Debug.WriteLine(pfx.LastErrorText)
    Exit Sub
End If


' See the online reference documentation for more information about the ImportToWindows method.

' Mark imported privae keys as exportable.
Dim exportable As Boolean = True

' If userProtected is True, the user is to be notified through a dialog box or other method when certain attempts to use this key are made. 
Dim userProtected As Boolean = False

' If machineKeyset is True, the private keys are stored under the local computer and not under the current user. 
Dim machineKeyset As Boolean = False

' If allowOverwriteKey is True, allow overwrite of the existing key. 
Dim allowOverwriteKey As Boolean = False

' If allowExport is True, then the imported key can later be exported back to a PFX.
' (It also allows for applications to directly access the private key material.)
Dim allowExport As Boolean = True

' Indicate where to import types of certs.
Dim leafStore As String = "My"
Dim intermediateStore As String = "CertificationAuthority"
Dim rootStore As String = "AuthRoot"

success = pfx.ImportToWindows(exportable,userProtected,machineKeyset,allowOverwriteKey,allowExport,leafStore,intermediateStore,rootStore,"")
If (success = False) Then
    Debug.WriteLine(pfx.LastErrorText)
    Exit Sub
End If


' Show information about the certificates imported
Dim json As New Chilkat.JsonObject
pfx.GetLastJsonData(json)

json.EmitCompact = False
Debug.WriteLine(json.Emit())

' Sample of the last JSON data:

' {
'   "exportable": true,
'   "userProtected": false,
'   "machineKeyset": false,
'   "allowOverwriteKey": false,
'   "allowExport": true,
'   "key": [
'     {
'       "name": "{F09B755A-1E90-444D-9851-02B86CA14961}",
'       "storageProvider": "Microsoft Software Key Storage Provider"
'     }
'   ],
'   "cert": [
'     {
'       "DN": "...",
'       "type": "intermediate",
'       "storeName": "CertificationAuthority",
'       "imported": true
'     },
'     {
'       "DN": "...",
'       "type": "root",
'       "storeName": "AuthRoot",
'       "imported": true
'     },
'     {
'       "DN": "....",
'       "type": "leaf",
'       "storeName": "My",
'       "keyContainer": "{345D4EAD-B8DD-4150-9A1F-4BC6437E77A2}",
'       "machineKeyset": true,
'       "imported": true
'     }
'   ]
' }

Debug.WriteLine("Success.")