(VB.NET) curl with use of Local Manager Secrets for Credentials

See more CURL Examples

This example demonstrates how to retrieve secrets from the local credential manager instead of embedding them directly in your source code.

On Windows, this refers to the Windows Credential Manager, and on macOS, it refers to the Apple Keychain.

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 run the following curl command

' curl -X GET "https://graph.microsoft.com/v1.0/sites/{{sharepoint_hostname}}:/sites/{{site_name}}" \
'   -H "Authorization: Bearer ACCESS_TOKEN" \
'   -H "Accept: application/json"

Dim sb As New Chilkat.StringBuilder
sb.AppendLn("curl -X GET ""https://graph.microsoft.com/v1.0/sites/{{sharepoint_hostname}}:/sites/{{site_name}}"" \")
sb.AppendLn("  -H ""Authorization: Bearer ACCESS_TOKEN"" \")
sb.AppendLn("  -H ""Accept: application/json""")

' Build the JSON that provides information for getting the OAuth2 access token using the OAuth2 client credentials flow.
Dim jsonOAuth2 As New Chilkat.JsonObject

' The notation "!!sharepoint|oauth2|client_id" is a secrets specification string 
' that can have up to 4 components: !!appName|service|domain|username
' where appName and domain are optional.
' See Chilkat v11.5.0 — Secrets Integration
' Also see: Chilkat Secrets API

' The following example shows how to store (or update) the secrets used in this example
' Storing Secrets in the Local Manager

' We must enable secrets integration for Chilkat to auto-resolve when the string begins with "!!".
jsonOAuth2.EnableSecrets = True
jsonOAuth2.UpdateString("oauth2.client_id","!!sharepoint|oauth2|client_id")
jsonOAuth2.UpdateString("oauth2.client_secret","!!sharepoint|oauth2|client_secret")
jsonOAuth2.UpdateString("oauth2.scope","https://graph.microsoft.com/.default")
jsonOAuth2.UpdateString("oauth2.token_endpoint","!!sharepoint|oauth2|token_endpoint")

Dim httpCurl As New Chilkat.HttpCurl

' Provide the information for getting the OAuth2 access token from the token endpoint
' Note: The Authorization header specified in the curl command will be ignored and replaced using the OAuth2 access token obtained at runtime from the token endpoint.
httpCurl.SetAuth(jsonOAuth2)

' The placeholders {{sharepoint_hostname}} and {{site_name}} represent variables that must be defined before execution.
' When DoYourThing runs the curl command, it automatically substitutes these placeholders with their corresponding values.
' Below are the values assigned to these variables:
httpCurl.SetVar("sharepoint_hostname","example.sharepoint.com")
httpCurl.SetVar("site_name","test")

' Run the curl command.
success = httpCurl.DoYourThing(sb.GetAsString())
If (success = False) Then
    Debug.WriteLine(httpCurl.LastErrorText)
    Exit Sub
End If


Dim responseJson As New Chilkat.JsonObject
responseJson.EmitCompact = False

httpCurl.GetResponseJson(responseJson)

Dim statusCode As Integer = httpCurl.StatusCode
Debug.WriteLine("response status code: " & statusCode)

Debug.WriteLine(responseJson.Emit())