(VBScript) Google Cloud Storage List Buckets

See more Google Cloud Storage Examples

Demonstrates how to retrieve a list of buckets for a given project.

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.

' This example uses a previously obtained access token having permission for the 
' scope "https://www.googleapis.com/auth/cloud-platform"

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set jsonToken = CreateObject("Chilkat.JsonObject")
success = jsonToken.LoadFile("qa_data/tokens/googleCloudStorage.json")
If (success = 0) Then
    outFile.WriteLine(jsonToken.LastErrorText)
    WScript.Quit
End If

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = CreateObject("Chilkat.Http")
http.AuthToken = jsonToken.StringOf("access_token")

' For more info see Cloud Storage Documentation - Buckets: list 
' 
success = http.SetUrlVar("PROJECT_ID","chilkattest-1050")
' resp is a Chilkat.HttpResponse
Set resp = http.QuickGetObj("https://www.googleapis.com/storage/v1/b?project={$PROJECT_ID}")
If (http.LastMethodSuccess = 0) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

responseCode = resp.StatusCode
If (responseCode = 401) Then
    outFile.WriteLine(resp.BodyStr)
    outFile.WriteLine("If invalid credentials, then it is likely the access token expired.")
    outFile.WriteLine("Your app should automatically fetch a new access token and re-try.")

    WScript.Quit
End If

outFile.WriteLine("Response code: " & responseCode)
outFile.WriteLine("Response body")

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = CreateObject("Chilkat.JsonObject")
success = json.Load(resp.BodyStr)

json.EmitCompact = 0

outFile.WriteLine(json.Emit())

' A response code = 200 indicates success, and the response body contains JSON such as this:

' {
'   "kind": "storage#buckets",
'   "items": [
'     {
'       "kind": "storage#bucket",
'       "id": "chilkat-bucket",
'       "selfLink": "https://www.googleapis.com/storage/v1/b/chilkat-bucket",
'       "projectNumber": "5332332985",
'       "name": "chilkat-bucket",
'       "timeCreated": "2018-10-23T00:04:44.507Z",
'       "updated": "2018-10-23T00:04:44.507Z",
'       "metageneration": "1",
'       "iamConfiguration": {
'         "bucketPolicyOnly": {
'           "enabled": false
'         }
'       },
'       "location": "US",
'       "storageClass": "MULTI_REGIONAL",
'       "etag": "CAE="
'     },
'     {
'       "kind": "storage#bucket",
'       "id": "chilkat-images",
'       "selfLink": "https://www.googleapis.com/storage/v1/b/chilkat-images",
'       "projectNumber": "5332332985",
'       "name": "chilkat-images",
'       "timeCreated": "2018-10-23T11:24:43.000Z",
'       "updated": "2018-10-23T11:24:43.000Z",
'       "metageneration": "1",
'       "iamConfiguration": {
'         "bucketPolicyOnly": {
'           "enabled": false
'         }
'       },
'       "location": "US",
'       "storageClass": "MULTI_REGIONAL",
'       "etag": "CAE="
'     }
'   ]
' }

' Use this online tool to generate parsing code from sample JSON: 
' Generate Parsing Code from JSON

kind = json.StringOf("kind")
i = 0
count_i = json.SizeOfArray("items")
Do While i < count_i
    json.I = i
    kind = json.StringOf("items[i].kind")
    id = json.StringOf("items[i].id")
    selfLink = json.StringOf("items[i].selfLink")
    projectNumber = json.StringOf("items[i].projectNumber")
    name = json.StringOf("items[i].name")
    timeCreated = json.StringOf("items[i].timeCreated")
    updated = json.StringOf("items[i].updated")
    metageneration = json.StringOf("items[i].metageneration")
    iamConfigurationBucketPolicyOnlyEnabled = json.BoolOf("items[i].iamConfiguration.bucketPolicyOnly.enabled")
    location = json.StringOf("items[i].location")
    storageClass = json.StringOf("items[i].storageClass")
    etag = json.StringOf("items[i].etag")
    i = i + 1
Loop

outFile.Close