Web.Contents throws error when trying to pass token: Credentials are required to connect to the Web

[OneWithQuestion]

Credentials are required to connect to the Web source. You'll need to refresh and provide credentials to continue. (Source at https://login.microsoftonline.com/***************************/oauth2/v2.0/token.)

I was following the guide to use Graph API with Power BI and everything was working fine up until this step where I obtain a token and go to pass it via M in PowerBI Desktop https://docs.microsoft.com/en-us/power-query/samples/mygraph/readme#implementing-the-oauth-interface

I am unsure how to get past this issue, as I can't resolve the error.

I go to login with Anonymous as instructed, but it just throws the error after that:

Here is the M query I'm using, maybe I'm making a mistake there?

-------------

let
client_id = "**myclientID***",
redirect_uri = "https://login.microsoftonline.com/common/oauth2/nativeclient",
token_uri = "https://login.microsoftonline.com/*****tenant*****/oauth2/v2.0/token",
authorize_uri = "https://login.microsoftonline.com/****tenant*****/oauth2/v2.0/authorize",
logout_uri = "https://login.microsoftonline.com/logout.srf",

scope_prefix = "https://graph.microsoft.com/",
scopes = {
"User.Read.All",
"Directory.Read.All",
"Organization.Read.All"
},

Value.IfNull = (a, b) => if a <> null then a else b,

GetScopeString = (scopes as list, optional scopePrefix as text) as text =>
let
prefix = Value.IfNull(scopePrefix, ""),
addPrefix = List.Transform(scopes, each prefix & _),
asText = Text.Combine(addPrefix, " ")
in
asText,

authorizeUrl = authorize_uri & "?" & Uri.BuildQueryString([
client_id = client_id,
redirect_uri = redirect_uri,
scope = GetScopeString(scopes, scope_prefix),
response_type = "code",
response_mode = "query",
login = "login"
]),

tokenResponse = Web.Contents(token_uri, [
Content = Text.ToBinary(Uri.BuildQueryString([
client_id = client_id,
code = "****token I get back manually****",
scope = GetScopeString(scopes, scope_prefix),
grant_type = "authorization_code",
redirect_uri = redirect_uri])),
Headers = [
#"Content-type" = "application/x-www-form-urlencoded",
#"Accept" = "application/json"
],
ManualStatusHandling = {400}
]),
body = Json.Document(tokenResponse),
result = if (Record.HasFields(body, {"error", "error_description"})) then
error Error.Record(body[error], body[error_description], body)
else
body
in

result

******************

I think I'm failing here in red:

[ImkeF · Accepted solution]

Basically everything has to go into the custom connector.

Easiest would probably be to use the one from the GitHub repo and expand further as needed.

[ImkeF]

Hi you cannot run this as a simple query, but have to use it via a custom connector: https://github.com/Microsoft/DataConnectors/tree/master/samples/MyGraph

some additional tips on how to use it here: https://www.thebiccountant.com/2019/04/17/graph-api-custom-connector-power-bi/

[OneWithQuestion]

Do you have an example of how it should be split up by chance?  Or could you post a screen shot?

I'm not clear what parts stay in PowerBI and what parts will only exist in the custom connector.

[ImkeF · Accepted solution]

Basically everything has to go into the custom connector.

Easiest would probably be to use the one from the GitHub repo and expand further as needed.

[OneWithQuestion]

Ah, interesting.  I thought it would require some parts to stay in PBI as M or whatnot.

So really, I can just compile the customer connector from GitHub and then use it in PBI and start consuming data?  I don't have to use the example article's M code?

[ImkeF · Accepted solution]

No, as I tried to express through the title of my article: "How to get more out of your Graph API custom connector in Power BI",

it just covers some special cases where the standard-connector from GitHub falls short 😉

The standard GitHub-connector returns a lot of good stuff already.