(VBScript) Windows Credentials Manager / Apple Keychain - Get a String Secret to a StringBuilder

See more Secrets Examples

On Windows, fetches the content of a text secret from the Windows Credentials Manager.

On MacOS or iOS, fetches from the Apple Keychain.

Note: This example requires Chilkat v10.1.0 or later.

For more information, see https://cknotes.com/chilkat-secrets-class-added-in-version-10-1-0/

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

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

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Secrets")
set secrets = CreateObject("Chilkat.Secrets")

' On Windows, this is the Windows Credentials Manager
' On MacOS/iOS, it is the Apple Keychain
secrets.Location = "local_manager"

' Specify the secret to be fetched.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = CreateObject("Chilkat.JsonObject")
success = json.UpdateString("appName","MyApp")
success = json.UpdateString("service","OAuth2")
success = json.UpdateString("domain","onedrive")
success = json.UpdateString("username","matt")

' Append the content of the secret to a Chilkat StringBuilder object.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sb = CreateObject("Chilkat.StringBuilder")
success = secrets.GetSecretSb(json,sb)
If (success = 0) Then
    outFile.WriteLine(secrets.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine(sb.GetAsString())
outFile.WriteLine("Success.")

outFile.Close