(VBScript) Google People API - List the User's Contacts

Gets a list of people in the user's contacts.

For more information, see https://developers.google.com/people/v1/contacts

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 assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' It is assumed we previously obtained an OAuth2 access token.
' This example loads the JSON access token file 

' originally obtained by this example: Get Google People API OAuth2 Access Token
' or refreshed by this example: Refresh Google People API OAuth2 Access Token

' 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/googlePeople.json")
If (success <> 1) Then
    outFile.WriteLine("Failed to load googleContacts.json")
    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 versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbResponseBody = CreateObject("Chilkat.StringBuilder")
success = http.QuickGetSb("https://people.googleapis.com/v1/people/me/connections?personFields=names,addresses,emailAddresses",sbResponseBody)
If (success = 0) Then
    outFile.WriteLine(http.LastErrorText)
    outFile.WriteLine(sbResponseBody.GetAsString())
    WScript.Quit
End If

' Sample JSON Response

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

' {
'   "connections": [
'     {
'       "resourceName": "people/c8871101035606120608",
'       "etag": "%EgkBAj0JQhBANy4aBAECBQciDERLSGdVTFNPbzNJPQ==",
'       "names": [
'         {
'           "metadata": {
'             "primary": true,
'             "source": {
'               "type": "CONTACT",
'               "id": "7b1c7b6409e718a0"
'             }
'           },
'           "displayName": "Chilkat Cloud",
'           "familyName": "Cloud",
'           "givenName": "Chilkat",
'           "displayNameLastFirst": "Cloud, Chilkat",
'           "unstructuredName": "Chilkat Cloud"
'         }
'       ],
'       "emailAddresses": [
'         {
'           "metadata": {
'             "primary": true,
'             "source": {
'               "type": "CONTACT",
'               "id": "7b1c7b6409e718a0"
'             }
'           },
'           "value": "support@***.com"
'         }
'       ]
'     },
'     {
'       "resourceName": "people/c7607335470312011517",
'       "etag": "%EgkBAj0JQhBANy4aBAECBQciDGZETUtHVTVMazI4PQ==",
'       "names": [
'         {
'           "metadata": {
'             "primary": true,
'             "source": {
'               "type": "CONTACT",
'               "id": "6992af4e0b2d36fd"
'             }
'           },
'           "displayName": "Matt Smith",
'           "familyName": "Smith",
'           "givenName": "Matt",
'           "displayNameLastFirst": "Smith, Matt",
'           "unstructuredName": "Matt Smith"
'         }
'       ],
'       "addresses": [
'         {
'           "metadata": {
'             "primary": true,
'             "source": {
'               "type": "CONTACT",
'               "id": "6992af4e0b2d36fd"
'             }
'           },
'           "formattedValue": "2222 E Foorest Ave\nWheaton, IL 60999\nUS",
'           "streetAddress": "2222 E Foorest Ave",
'           "city": "Wheaton",
'           "region": "IL",
'           "postalCode": "60999",
'           "country": "US",
'           "countryCode": "US"
'         }
'       ],
'       "emailAddresses": [
'         {
'           "metadata": {
'             "primary": true,
'             "source": {
'               "type": "CONTACT",
'               "id": "6992af4e0b2d36fd"
'             }
'           },
'           "value": "matt@***.com"
'         },
'         {
'           "metadata": {
'             "source": {
'               "type": "CONTACT",
'               "id": "6992af4e0b2d36fd"
'             }
'           },
'           "value": "admin@***.com"
'         }
'       ]
'     }
'   ],
'   "totalPeople": 2,
'   "totalItems": 2
' }

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = CreateObject("Chilkat.JsonObject")
json.EmitCompact = 0
success = json.Load(sbResponseBody.GetAsString())
outFile.WriteLine(json.Emit())

totalPeople = json.IntOf("totalPeople")
totalItems = json.IntOf("totalItems")
i = 0
count_i = json.SizeOfArray("connections")
Do While i < count_i
    json.I = i
    resourceName = json.StringOf("connections[i].resourceName")
    etag = json.StringOf("connections[i].etag")
    j = 0
    count_j = json.SizeOfArray("connections[i].names")
    Do While j < count_j
        json.J = j
        metadataPrimary = json.BoolOf("connections[i].names[j].metadata.primary")
        metadataSourceType = json.StringOf("connections[i].names[j].metadata.source.type")
        metadataSourceId = json.StringOf("connections[i].names[j].metadata.source.id")
        displayName = json.StringOf("connections[i].names[j].displayName")
        familyName = json.StringOf("connections[i].names[j].familyName")
        givenName = json.StringOf("connections[i].names[j].givenName")
        displayNameLastFirst = json.StringOf("connections[i].names[j].displayNameLastFirst")
        unstructuredName = json.StringOf("connections[i].names[j].unstructuredName")
        j = j + 1
    Loop
    j = 0
    count_j = json.SizeOfArray("connections[i].emailAddresses")
    Do While j < count_j
        json.J = j
        metadataPrimary = json.BoolOf("connections[i].emailAddresses[j].metadata.primary")
        metadataSourceType = json.StringOf("connections[i].emailAddresses[j].metadata.source.type")
        metadataSourceId = json.StringOf("connections[i].emailAddresses[j].metadata.source.id")
        value = json.StringOf("connections[i].emailAddresses[j].value")
        j = j + 1
    Loop
    j = 0
    count_j = json.SizeOfArray("connections[i].addresses")
    Do While j < count_j
        json.J = j
        metadataPrimary = json.BoolOf("connections[i].addresses[j].metadata.primary")
        metadataSourceType = json.StringOf("connections[i].addresses[j].metadata.source.type")
        metadataSourceId = json.StringOf("connections[i].addresses[j].metadata.source.id")
        formattedValue = json.StringOf("connections[i].addresses[j].formattedValue")
        streetAddress = json.StringOf("connections[i].addresses[j].streetAddress")
        city = json.StringOf("connections[i].addresses[j].city")
        region = json.StringOf("connections[i].addresses[j].region")
        postalCode = json.StringOf("connections[i].addresses[j].postalCode")
        country = json.StringOf("connections[i].addresses[j].country")
        countryCode = json.StringOf("connections[i].addresses[j].countryCode")
        j = j + 1
    Loop
    i = i + 1
Loop

outFile.Close