Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(VBScript) IBM Cloud Secrets - Get a JSON SecretSee more Secrets ExamplesDemonstrates how to fetch the content of a JSON secret from the IBM Cloud Secrets. 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/
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. ' The bootstrap secret will contain the following information: ' IBM Cloud API Key ' See following examples for setting up a bootstrap secret in memory, ' or in the local manager (Windows Credentials Manager or Apple Keychain) ' Setup Bootstrap Secret in Local Manager ' Setup Bootstrap Secret in Memory ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Secrets") set bootstrap = CreateObject("Chilkat.Secrets") ' Set the location of the bootstrap secret. ' Can be "local_manager" or "memory", depending on how you setup the bootstrap secret. ' --------------------------------------------------------------------------------------------- ' If your operating system is NOT Windows or MacOS/iOS, then change "local_manager" to "memory" ' You can also, if desired, use "memory" on Windows and MacOS/iOS if your bootstrap secret was previously setup in memory. ' --------------------------------------------------------------------------------------------- bootstrap.Location = "local_manager" ' Specify the bootstrap secret to be used. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set bsId = CreateObject("Chilkat.JsonObject") success = bsId.UpdateString("appName","ibm_bs") success = bsId.UpdateString("service","Example") success = bsId.UpdateString("username","Joe") ' ---------------------------------------------------- ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Secrets") set secrets = CreateObject("Chilkat.Secrets") ' Setup for the IBM Cloud Secrets secrets.Location = "ibm_cloud" success = secrets.SetBootstrapSecret(bsId,bootstrap) If (success = 0) Then outFile.WriteLine(secrets.LastErrorText) WScript.Quit End If ' 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") ' You'll also need to specify your IBM Cloud instance ID and region for each API call. success = json.UpdateString("instance_id","a88a0c56-50a6-4461-9911-345b173e1171") success = json.UpdateString("region","us-south") ' Get the secret. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set jsonSecret = CreateObject("Chilkat.JsonObject") success = secrets.GetSecretJson(json,jsonSecret) If (success = 0) Then outFile.WriteLine(secrets.LastErrorText) WScript.Quit End If jsonSecret.EmitCompact = 0 outFile.WriteLine(jsonSecret.Emit()) outFile.WriteLine("Success.") outFile.Close |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.