(VB.NET UWP/WinRT) Microsoft Graph -- List Users

See more Microsoft Graph Examples

Retrieve a list of Microsoft Graph user objects.

Note: This example requires Chilkat v9.5.0.67 or greater.

For more information, see https://docs.microsoft.com/en-us/graph/api/user-list?view=graph-rest-1.0&tabs=http

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

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


' Get an access token with the required scope using client credentials...
Dim http As New Chilkat.Http
Dim req As New Chilkat.HttpRequest
req.AddParam("client_secret","CLIENT_SECRET")
req.AddParam("client_id","CLIENT_ID")
req.AddParam("scope","https://graph.microsoft.com/.default")
req.AddParam("grant_type","client_credentials")

' Use your own tenant ID, for example 4d8fdd66-66d1-43b0-ae5c-e31b4b7de5cd
Dim url As String = "https://login.microsoftonline.com/TENANT_ID/oauth2/v2.0/token"
Dim resp As Chilkat.HttpResponse = Await http.PostUrlEncodedAsync(url,req)
If (http.LastMethodSuccess <> True) Then
    Debug.WriteLine(http.LastErrorText)
    Exit Sub
End If


Dim statusCode As Integer = resp.StatusCode
Debug.WriteLine("Response status code = " & statusCode)

Dim json As New Chilkat.JsonObject
json.Load(resp.BodyStr)






' -----------------------------------------------------
' Use the access token obtained from above.
' Note: We don't need to re-fetch a new access token every time.  An access token is valid 
' for some amount of time, typically an hour (3600 seconds)


' Use your previously obtained access token here:
http.AuthToken = json.StringOf("access_token")

Debug.WriteLine("access token: " & http.AuthToken)

Dim sbResponse As New Chilkat.StringBuilder

Dim success As Boolean = Await http.QuickGetSbAsync("https://graph.microsoft.com/v1.0/users",sbResponse)
If (success <> True) Then
    Debug.WriteLine(http.LastErrorText)
    Exit Sub
End If


json.LoadSb(sbResponse)
json.EmitCompact = False

Debug.WriteLine("Status code = " & http.LastStatus)
If (http.LastStatus <> 200) Then
    Debug.WriteLine(json.Emit())
    Debug.WriteLine("Failed.")
End If


Debug.WriteLine(json.Emit())


' Sample output
' {
'   "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users",
'   "value": [
'     {
'       "@odata.id": "https://graph.microsoft.com/v2/6d8ddd66-68d1-43b0-af5c-e31b4b7dd5cd/directoryObjects/fca490d8-5918-4201-8079-c5dcbeafcdc9/Microsoft.DirectoryServices.User",
'       "businessPhones": [
'       ],
'       "displayName": "Joe Sample",
'       "givenName": "Joe",
'       "jobTitle": null,
'       "mail": null,
'       "mobilePhone": null,
'       "officeLocation": null,
'       "preferredLanguage": null,
'       "surname": "Sample",
'       "userPrincipalName": "admin_chilkatsoft.com#EXT#@adminchilkatsoft.onmicrosoft.com",
'       "id": "fca490d8-5918-4201-8079-c5dcbeafcdc9"
'     }
'   ]
' }

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

Dim odata_id As String
Dim displayName As String
Dim givenName As String
Dim jobTitle As String
Dim mail As String
Dim mobilePhone As String
Dim officeLocation As String
Dim preferredLanguage As String
Dim surname As String
Dim userPrincipalName As String
Dim id As String
Dim j As Integer
Dim count_j As Integer

Dim odata_context As String = json.StringOf("""@odata.context""")
Dim i As Integer = 0
Dim count_i As Integer = json.SizeOfArray("value")
While i < count_i
    json.I = i
    odata_id = json.StringOf("value[i].""@odata.id""")
    displayName = json.StringOf("value[i].displayName")
    givenName = json.StringOf("value[i].givenName")
    jobTitle = json.StringOf("value[i].jobTitle")
    mail = json.StringOf("value[i].mail")
    mobilePhone = json.StringOf("value[i].mobilePhone")
    officeLocation = json.StringOf("value[i].officeLocation")
    preferredLanguage = json.StringOf("value[i].preferredLanguage")
    surname = json.StringOf("value[i].surname")
    userPrincipalName = json.StringOf("value[i].userPrincipalName")
    id = json.StringOf("value[i].id")
    j = 0
    count_j = json.SizeOfArray("value[i].businessPhones")
    While j < count_j
        json.J = j
        j = j + 1
    End While
    i = i + 1
End While