(VB.NET) curl Update Local Manager Secrets

See more CURL Examples

Note: This example requires Chilkat v11.5.0 or greater.

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

Dim success As Boolean = False

' This example will store 3 secrets in the local manager.

' On Windows, this refers to the Windows Credential Manager, and on macOS, it refers to the Apple Keychain.
' These secrets will be used at a later point in time in curl commands,
' as shown in this example:  Using Local Manager Secrets with curl

' Also see: Chilkat v11.5.0 — Secrets Integration
' and also: Chilkat Secrets API

Dim secrets As New Chilkat.Secrets

Dim json As New Chilkat.JsonObject

json.UpdateString("appName","sharepoint")
json.UpdateString("service","oauth2")
json.UpdateString("username","client_id")

' These are not actual/real values..
success = secrets.UpdateSecretStr(json,"4afc67c5-6d3f-4ed0-91c7-5d239c78bff7")
If (success = False) Then
    Debug.WriteLine(secrets.LastErrorText)
    Exit Sub
End If


json.UpdateString("username","client_secret")
success = secrets.UpdateSecretStr(json,"Rlh8Q~xaP10Dw-goWQDLXrRJfYAFVW1hHauvfhO6")
If (success = False) Then
    Debug.WriteLine(secrets.LastErrorText)
    Exit Sub
End If


json.UpdateString("username","token_endpoint")
success = secrets.UpdateSecretStr(json,"https://login.microsoftonline.com/5f410b89-177f-40b3-9d66-ac519c728025/oauth2/v2.0/token")
If (success = False) Then
    Debug.WriteLine(secrets.LastErrorText)
    Exit Sub
End If


' -----------------------------------------------------------------------------------------------------------
' The above secrets would be accessed like this:
Dim json2 As New Chilkat.JsonObject

json2.EnableSecrets = True

' Chilkat sees the secret specification string (beginning with "!!") and resolves from the local manager.
json2.UpdateString("x","!!sharepoint|oauth2|client_id")
Debug.WriteLine("x = " & json2.StringOf("x"))

json2.UpdateString("y","!!sharepoint|oauth2|client_secret")
Debug.WriteLine("y = " & json2.StringOf("y"))

json2.UpdateString("z","!!sharepoint|oauth2|token_endpoint")
Debug.WriteLine("z = " & json2.StringOf("z"))

' You can see the values retrieved from the local manager:

' x = 4afc67c5-6d3f-4ed0-91c7-5d239c78bff7
' y = Rlh8Q~xaP10Dw-goWQDLXrRJfYAFVW1hHauvfhO6
' z = https://login.microsoftonline.com/5f410b89-177f-40b3-9d66-ac519c728025/oauth2/v2.0/token