(AutoIt) List Microsoft Storage Providers

Gets the Microsoft CNG and legacy CryptoAPI storage providers that exist on the Windows system.

Important: This example requires Chilkat v9.5.0.83 or greater.

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

; This example requires Chilkat v9.5.0.83 or greater.

$oKeyCon = ObjCreate("Chilkat.KeyContainer")
$oJson = ObjCreate("Chilkat.JsonObject")
$oJson.EmitCompact = False

Local $bSuccess = $oKeyCon.GetStorageProviders($oJson)
If ($bSuccess <> True) Then
    ConsoleWrite($oKeyCon.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite($oJson.Emit() & @CRLF)

; Sample JSON returned by GetStorageProviders

; {
;   "cng": [
;     "Microsoft Software Key Storage Provider",
;     "Microsoft Passport Key Storage Provider",
;     "Microsoft Platform Crypto Provider",
;     "Microsoft Smart Card Key Storage Provider"
;   ],
;   "legacy": [
;     "Microsoft Base Cryptographic Provider v1.0",
;     "Microsoft Base DSS and Diffie-Hellman Cryptographic Provider",
;     "Microsoft Base DSS Cryptographic Provider",
;     "Microsoft Base Smart Card Crypto Provider",
;     "Microsoft DH SChannel Cryptographic Provider",
;     "Microsoft Enhanced Cryptographic Provider v1.0",
;     "Microsoft Enhanced DSS and Diffie-Hellman Cryptographic Provider",
;     "Microsoft Enhanced RSA and AES Cryptographic Provider",
;     "Microsoft RSA SChannel Cryptographic Provider",
;     "Microsoft Strong Cryptographic Provider"
;   ]
; }

; Use this online tool to generate parsing code from sample JSON: 
; Generate Parsing Code from JSON

Local $sName

; Iterate over the CNG storage containers
Local $i = 0
Local $iNumStorageContainers = $oJson.SizeOfArray("cng")
While $i < $iNumStorageContainers
    $oJson.I = $i
    $sName = $oJson.StringOf("cng[i]")
    ConsoleWrite($sName & @CRLF)
    $i = $i + 1
Wend

ConsoleWrite("--" & @CRLF)

; Iterate over the legacy CryptoAPI Cryptographic Storage Providers
$i = 0
$iNumStorageContainers = $oJson.SizeOfArray("legacy")
While $i < $iNumStorageContainers
    $oJson.I = $i
    $sName = $oJson.StringOf("legacy[i]")
    ConsoleWrite($sName & @CRLF)
    $i = $i + 1
Wend