VBScript

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.

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

' 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"

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

' Build the JSON that provides information for getting the OAuth2 access token using the OAuth2 client credentials flow.
set jsonOAuth2 = CreateObject("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 = 1
success = jsonOAuth2.UpdateString("oauth2.client_id","!!sharepoint|oauth2|client_id")
success = jsonOAuth2.UpdateString("oauth2.client_secret","!!sharepoint|oauth2|client_secret")
success = jsonOAuth2.UpdateString("oauth2.scope","https://graph.microsoft.com/.default")
success = jsonOAuth2.UpdateString("oauth2.token_endpoint","!!sharepoint|oauth2|token_endpoint")

set httpCurl = CreateObject("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.
success = 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 = 0) Then
    outFile.WriteLine(httpCurl.LastErrorText)
    WScript.Quit
End If

set responseJson = CreateObject("Chilkat.JsonObject")
responseJson.EmitCompact = 0

success = httpCurl.GetResponseJson(responseJson)

statusCode = httpCurl.StatusCode
outFile.WriteLine("response status code: " & statusCode)

outFile.WriteLine(responseJson.Emit())

outFile.Close