Sample code for 30+ languages & platforms
Visual FoxPro

Azure Fetch OpenID Connect metadata document

See more OIDC Examples

Downloads the OpenID Connect self-discovery document for an Azure OIDC enabled app.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro
Visual FoxPro 
LOCAL lnSuccess
LOCAL loHttp
LOCAL loResp
LOCAL loJson
LOCAL lcStrVal
LOCAL lcToken_endpoint
LOCAL lcJwks_uri
LOCAL lcIssuer
LOCAL lnRequest_uri_parameter_supported
LOCAL lcUserinfo_endpoint
LOCAL lcAuthorization_endpoint
LOCAL lcDevice_authorization_endpoint
LOCAL lnHttp_logout_supported
LOCAL lnFrontchannel_logout_supported
LOCAL lcEnd_session_endpoint
LOCAL lcKerberos_endpoint
LOCAL lcTenant_region_scope
LOCAL lcCloud_instance_name
LOCAL lcCloud_graph_host_name
LOCAL lcMsgraph_host
LOCAL lcRbac_url
LOCAL i
LOCAL lnCount_i

lnSuccess = 0

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

loHttp = CreateObject('Chilkat.Http')

loHttp.Accept = "application/json"

* See the Microsoft Azure OIDC documentation at https://docs.microsoft.com/en-us/azure/active-directory/develop/v2-protocols-oidc
* The "tenant" can take one of four values described in the documentation at the link above.

lnSuccess = loHttp.SetUrlVar("tenant","6d8ddd66-68d1-44b0-af5c-e31b4b7ee5cd")
loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpNoBody("GET","https://login.microsoftonline.com/{$tenant}/v2.0/.well-known/openid-configuration",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loResp
    CANCEL
ENDIF

? "Response Status Code: " + STR(loResp.StatusCode)

loJson = CreateObject('Chilkat.JsonObject')
loJson.Load(loResp.BodyStr)
loJson.EmitCompact = 0
? loJson.Emit()

IF (loResp.StatusCode <> 200) THEN
    ? "Failed."
    RELEASE loHttp
    RELEASE loResp
    RELEASE loJson
    CANCEL
ENDIF

* Sample output...
* (See the parsing code below..)
* 
* Use the this online tool to generate parsing code from sample JSON: 
* Generate Parsing Code from JSON

* {
*   "token_endpoint": "https://login.microsoftonline.com/6d8ddd66-68d1-44b0-af5c-e31b4b7ee5cd/oauth2/v2.0/token",
*   "token_endpoint_auth_methods_supported": [
*     "client_secret_post",
*     "private_key_jwt",
*     "client_secret_basic"
*   ],
*   "jwks_uri": "https://login.microsoftonline.com/6d8ddd66-68d1-44b0-af5c-e31b4b7ee5cd/discovery/v2.0/keys",
*   "response_modes_supported": [
*     "query",
*     "fragment",
*     "form_post"
*   ],
*   "subject_types_supported": [
*     "pairwise"
*   ],
*   "id_token_signing_alg_values_supported": [
*     "RS256"
*   ],
*   "response_types_supported": [
*     "code",
*     "id_token",
*     "code id_token",
*     "id_token token"
*   ],
*   "scopes_supported": [
*     "openid",
*     "profile",
*     "email",
*     "offline_access"
*   ],
*   "issuer": "https://login.microsoftonline.com/6d8ddd66-68d1-44b0-af5c-e31b4b7ee5cd/v2.0",
*   "request_uri_parameter_supported": false,
*   "userinfo_endpoint": "https://graph.microsoft.com/oidc/userinfo",
*   "authorization_endpoint": "https://login.microsoftonline.com/6d8ddd66-68d1-44b0-af5c-e31b4b7ee5cd/oauth2/v2.0/authorize",
*   "device_authorization_endpoint": "https://login.microsoftonline.com/6d8ddd66-68d1-44b0-af5c-e31b4b7ee5cd/oauth2/v2.0/devicecode",
*   "http_logout_supported": true,
*   "frontchannel_logout_supported": true,
*   "end_session_endpoint": "https://login.microsoftonline.com/6d8ddd66-68d1-44b0-af5c-e31b4b7ee5cd/oauth2/v2.0/logout",
*   "claims_supported": [
*     "sub",
*     "iss",
*     "cloud_instance_name",
*     "cloud_instance_host_name",
*     "cloud_graph_host_name",
*     "msgraph_host",
*     "aud",
*     "exp",
*     "iat",
*     "auth_time",
*     "acr",
*     "nonce",
*     "preferred_username",
*     "name",
*     "tid",
*     "ver",
*     "at_hash",
*     "c_hash",
*     "email"
*   ],
*   "kerberos_endpoint": "https://login.microsoftonline.com/6d8ddd66-68d1-44b0-af5c-e31b4b7ee5cd/kerberos",
*   "tenant_region_scope": "NA",
*   "cloud_instance_name": "microsoftonline.com",
*   "cloud_graph_host_name": "graph.windows.net",
*   "msgraph_host": "graph.microsoft.com",
*   "rbac_url": "https://pas.windows.net"
* }

lcToken_endpoint = loJson.StringOf("token_endpoint")
lcJwks_uri = loJson.StringOf("jwks_uri")
lcIssuer = loJson.StringOf("issuer")
lnRequest_uri_parameter_supported = loJson.BoolOf("request_uri_parameter_supported")
lcUserinfo_endpoint = loJson.StringOf("userinfo_endpoint")
lcAuthorization_endpoint = loJson.StringOf("authorization_endpoint")
lcDevice_authorization_endpoint = loJson.StringOf("device_authorization_endpoint")
lnHttp_logout_supported = loJson.BoolOf("http_logout_supported")
lnFrontchannel_logout_supported = loJson.BoolOf("frontchannel_logout_supported")
lcEnd_session_endpoint = loJson.StringOf("end_session_endpoint")
lcKerberos_endpoint = loJson.StringOf("kerberos_endpoint")
lcTenant_region_scope = loJson.StringOf("tenant_region_scope")
lcCloud_instance_name = loJson.StringOf("cloud_instance_name")
lcCloud_graph_host_name = loJson.StringOf("cloud_graph_host_name")
lcMsgraph_host = loJson.StringOf("msgraph_host")
lcRbac_url = loJson.StringOf("rbac_url")
i = 0
lnCount_i = loJson.SizeOfArray("token_endpoint_auth_methods_supported")
DO WHILE i < lnCount_i
    loJson.I = i
    lcStrVal = loJson.StringOf("token_endpoint_auth_methods_supported[i]")
    i = i + 1
ENDDO
i = 0
lnCount_i = loJson.SizeOfArray("response_modes_supported")
DO WHILE i < lnCount_i
    loJson.I = i
    lcStrVal = loJson.StringOf("response_modes_supported[i]")
    i = i + 1
ENDDO
i = 0
lnCount_i = loJson.SizeOfArray("subject_types_supported")
DO WHILE i < lnCount_i
    loJson.I = i
    lcStrVal = loJson.StringOf("subject_types_supported[i]")
    i = i + 1
ENDDO
i = 0
lnCount_i = loJson.SizeOfArray("id_token_signing_alg_values_supported")
DO WHILE i < lnCount_i
    loJson.I = i
    lcStrVal = loJson.StringOf("id_token_signing_alg_values_supported[i]")
    i = i + 1
ENDDO
i = 0
lnCount_i = loJson.SizeOfArray("response_types_supported")
DO WHILE i < lnCount_i
    loJson.I = i
    lcStrVal = loJson.StringOf("response_types_supported[i]")
    i = i + 1
ENDDO
i = 0
lnCount_i = loJson.SizeOfArray("scopes_supported")
DO WHILE i < lnCount_i
    loJson.I = i
    lcStrVal = loJson.StringOf("scopes_supported[i]")
    i = i + 1
ENDDO
i = 0
lnCount_i = loJson.SizeOfArray("claims_supported")
DO WHILE i < lnCount_i
    loJson.I = i
    lcStrVal = loJson.StringOf("claims_supported[i]")
    i = i + 1
ENDDO

RELEASE loHttp
RELEASE loResp
RELEASE loJson