Visual Basic 6.0

Dynamics CRM Oauth2 Client Credentials

See more Dynamics CRM Examples

Get an OAuth2 access token for Dynamics CRM using client credentials. Visual Basic 6.0

Dim success As Long
success = 0

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

Dim http As New ChilkatHttp

' Pass the client ID/secret using Basic HTTP authentication.
http.Login = "CLIENT_ID"
http.Password = "CLIENT_SECRET"
http.BasicAuth = 1

Dim req As New ChilkatHttpRequest
req.AddParam "client_secret","CLIENT_SECRET"
req.AddParam "client_id","CLIENT_ID"
req.AddParam "scope","https://yourdynamicsdomain.crm3.dynamics.com/.default"
req.AddParam "grant_type","client_credentials"

' Use your own tenant ID, for example 4d8fdd66-66d1-43b0-ae5c-e31b4b7de5cd
Dim url As String
url = "https://login.microsoftonline.com/TENANT_ID/oauth2/v2.0/token"
req.HttpVerb = "POST"
req.ContentType = "application/x-www-form-urlencoded"

Dim resp As New ChilkatHttpResponse
success = http.HttpReq(url,req,resp)
If (success = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Dim statusCode As Long
statusCode = resp.StatusCode
Debug.Print "Response status code = " & statusCode

Dim json As New ChilkatJsonObject
success = json.Load(resp.BodyStr)

json.EmitCompact = 0
Debug.Print json.Emit()

If (statusCode = 200) Then
    success = json.WriteFile("qa_data/tokens/dynamicsCrmClientCredentialsToken.json")
    Debug.Print "Success."
Else
    Debug.Print "Failed."
End If