(PHP ActiveX) Group: Refresh OAuth2 Access Token

Refreshes an expired or non-expired OAuth2 access token for the Microsoft Group REST API.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows Note: The php_com_dotnet.dll may need to be enabled inside of php.ini.

<?php

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

// For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.JsonObject')
$json = new COM("Chilkat.JsonObject");
$success = $json->LoadFile('qa_data/tokens/msGraphGroup.json');
if ($success != 1) {
    exit;
}

// For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.HttpRequest')
$req = new COM("Chilkat.HttpRequest");
$req->AddParam('grant_type','refresh_token');
$req->AddParam('redirect_uri','http://localhost:3017/');
$req->AddParam('client_id','MICROSOFT-GRAPH-CLIENT-ID');
$req->AddParam('client_secret','MICROSOFT-GRAPH-CLIENT-SECRET');
$req->AddParam('refresh_token',$json->stringOf('refresh_token'));
$req->AddParam('scope','openid profile offline_access user.readwrite group.readwrite.all files.readwrite');

// For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.Http')
$http = new COM("Chilkat.Http");

// resp is a Chilkat.HttpResponse
$resp = $http->PostUrlEncoded('https://login.microsoftonline.com/common/oauth2/v2.0/token',$req);
if ($http->LastMethodSuccess != 1) {
    print $http->LastErrorText . "\n";
    exit;
}

// Load the JSON response.
$json->Load($resp->BodyStr);
$json->EmitCompact = 0;

// Show the JSON response.
print $json->emit() . "\n";

print 'Response status code: ' . $resp->StatusCode . "\n";

// If the response status code is not 200, then it's an error.
if ($resp->StatusCode != 200) {
    exit;
}

// Save the refreshed access token JSON to a file for future requests.
// For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.FileAccess')
$fac = new COM("Chilkat.FileAccess");
$fac->WriteEntireTextFile('qa_data/tokens/msGraphGroup.json',$json->emit(),'utf-8',0);

print 'Success.' . "\n";

?>