(PureBasic) Azure Monitor - List Activity Logs

Provides the list of records from the activity logs.

Note: The $filter criteria cannot specify a time range that begins more than 90 days in the past.

For more information, see https://docs.microsoft.com/en-us/rest/api/monitor/activitylogs/list

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

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

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Load an OAuth2 access token previously fetched by this example:  Get Azure OAuth2 Access Token
    jsonToken.i = CkJsonObject::ckCreate()
    If jsonToken.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i = CkJsonObject::ckLoadFile(jsonToken,"qa_data/tokens/azureToken.json")
    ; Assuming success..
    CkHttp::setCkAuthToken(http, CkJsonObject::ckStringOf(jsonToken,"access_token"))
    Debug "AuthToken: " + CkHttp::ckAuthToken(http)

    CkHttp::setCkAccept(http, "application/json")

    resp.i = CkHttp::ckQuickRequest(http,"GET","https://management.azure.com/subscriptions/{subscriptionId}/providers/microsoft.insights/eventtypes/management/values?api-version=2015-04-01&$filter=eventTimestamp%20ge%20%272019-05-16T04%3A36%3A37.6407898Z%27%20and%20eventTimestamp%20le%20%272019-06-12T04%3A36%3A37.6407898Z%27")
    If CkHttp::ckLastMethodSuccess(http) <> 1
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkJsonObject::ckDispose(jsonToken)
        ProcedureReturn
    EndIf

    Debug "Response Status Code: " + Str(CkHttpResponse::ckStatusCode(resp))

    jsonResponse.i = CkJsonObject::ckCreate()
    If jsonResponse.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckLoad(jsonResponse,CkHttpResponse::ckBodyStr(resp))
    CkJsonObject::setCkEmitCompact(jsonResponse, 0)
    Debug CkJsonObject::ckEmit(jsonResponse)

    If CkHttpResponse::ckStatusCode(resp) <> 200
        Debug "Failed."
        CkHttpResponse::ckDispose(resp)

        CkHttp::ckDispose(http)
        CkJsonObject::ckDispose(jsonToken)
        CkJsonObject::ckDispose(jsonResponse)
        ProcedureReturn
    EndIf

    CkHttpResponse::ckDispose(resp)

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

    ; {
    ;   "value": [
    ;     {
    ;       "authorization": {
    ;         "action": "microsoft.support/supporttickets/write",
    ;         "role": "Subscription Admin",
    ;         "scope": "/subscriptions/089bd33f-d4ec-47fe-8ba5-0753aa5c5b33/resourceGroups/MSSupportGroup/providers/microsoft.support/supporttickets/115012112305841"
    ;       },
    ;       "caller": "admin@contoso.com",
    ;       "claims": {
    ;         "aud": "https://management.core.windows.net/",
    ;         "iss": "https://sts.windows.net/72f988bf-86f1-41af-91ab-2d7cd011db47/",
    ;         "iat": "1421876371",
    ;         "nbf": "1421876371",
    ;         "exp": "1421880271",
    ;         "ver": "1.0",
    ;         "http://schemas.microsoft.com/identity/claims/tenantid": "1e8d8218-c5e7-4578-9acc-9abbd5d23315 ",
    ;         "http://schemas.microsoft.com/claims/authnmethodsreferences": "pwd",
    ;         "http://schemas.microsoft.com/identity/claims/objectidentifier": "2468adf0-8211-44e3-95xq-85137af64708",
    ;         "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/upn": "admin@contoso.com",
    ;         "puid": "20030000801A118C",
    ;         "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/nameidentifier": "9vckmEGF7zDKk1YzIY8k0t1_EAPaXoeHyPRn6f413zM",
    ;         "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/givenname": "John",
    ;         "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/surname": "Smith",
    ;         "name": "John Smith",
    ;         "groups": "cacfe77c-e058-4712-83qw-f9b08849fd60,7f71d11d-4c41-4b23-99d2-d32ce7aa621c,31522864-0578-4ea0-9gdc-e66cc564d18c",
    ;         "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/name": " admin@contoso.com",
    ;         "appid": "c44b4083-3bq0-49c1-b47d-974e53cbdf3c",
    ;         "appidacr": "2",
    ;         "http://schemas.microsoft.com/identity/claims/scope": "user_impersonation",
    ;         "http://schemas.microsoft.com/claims/authnclassreference": "1"
    ;       },
    ;       "correlationId": "1e121103-0ba6-4300-ac9d-952bb5d0c80f",
    ;       "description": "",
    ;       "eventDataId": "44ade6b4-3813-45e6-ae27-7420a95fa2f8",
    ;       "eventName": {
    ;         "value": "EndRequest",
    ;         "localizedValue": "End request"
    ;       },
    ;       "httpRequest": {
    ;         "clientRequestId": "27003b25-91d3-418f-8eb1-29e537dcb249",
    ;         "clientIpAddress": "192.168.35.115",
    ;         "method": "PUT"
    ;       },
    ;       "id": "/subscriptions/089bd33f-d4ec-47fe-8ba5-0753aa5c5b33/resourceGroups/MSSupportGroup/providers/microsoft.support/supporttickets/115012112305841/events/44ade6b4-3813-45e6-ae27-7420a95fa2f8/ticks/635574752669792776",
    ;       "level": "Informational",
    ;       "resourceGroupName": "MSSupportGroup",
    ;       "resourceProviderName": {
    ;         "value": "microsoft.support",
    ;         "localizedValue": "microsoft.support"
    ;       },
    ;       "operationId": "1e121103-0ba6-4300-ac9d-952bb5d0c80f",
    ;       "operationName": {
    ;         "value": "microsoft.support/supporttickets/write",
    ;         "localizedValue": "microsoft.support/supporttickets/write"
    ;       },
    ;       "properties": {
    ;         "statusCode": "Created"
    ;       },
    ;       "status": {
    ;         "value": "Succeeded",
    ;         "localizedValue": "Succeeded"
    ;       },
    ;       "subStatus": {
    ;         "value": "Created",
    ;         "localizedValue": "Created (HTTP Status Code: 201)"
    ;       },
    ;       "eventTimestamp": "2015-01-21T22:14:26.9792776Z",
    ;       "submissionTimestamp": "2015-01-21T22:14:39.9936304Z",
    ;       "subscriptionId": "089bd33f-d4ec-47fe-8ba5-0753aa5c5b33"
    ;     }
    ;   ],
    ;   "nextLink": "https://management.azure.com/########-####-####-####-############$skiptoken=######"
    ; }
    ; 

    nextLink.s
    i.i
    count_i.i
    authorizationAction.s
    authorizationRole.s
    authorizationScope.s
    caller.s
    claimsAud.s
    claimsIss.s
    claimsIat.s
    claimsNbf.s
    claimsExp.s
    claimsVer.s
    claims_identity_claims_tenantid.s
    claims_claims_authnmethodsreferences.s
    claims_identity_claims_objectidentifier.s
    claims_ws_2005_05_identity_claims_upn.s
    claimsPuid.s
    claims_ws_2005_05_identity_claims_nameidentifier.s
    claims_ws_2005_05_identity_claims_givenname.s
    claims_ws_2005_05_identity_claims_surname.s
    claimsName.s
    claimsGroups.s
    claims_ws_2005_05_identity_claims_name.s
    claimsAppid.s
    claimsAppidacr.s
    claims_identity_claims_scope.s
    claims_claims_authnclassreference.s
    correlationId.s
    description.s
    eventDataId.s
    eventNameValue.s
    eventNameLocalizedValue.s
    httpRequestClientRequestId.s
    httpRequestClientIpAddress.s
    httpRequestMethod.s
    id.s
    level.s
    resourceGroupName.s
    resourceProviderNameValue.s
    resourceProviderNameLocalizedValue.s
    operationId.s
    operationNameValue.s
    operationNameLocalizedValue.s
    propertiesStatusCode.s
    statusValue.s
    statusLocalizedValue.s
    subStatusValue.s
    subStatusLocalizedValue.s
    eventTimestamp.s
    submissionTimestamp.s
    subscriptionId.s

    nextLink = CkJsonObject::ckStringOf(jsonResponse,"nextLink")
    i = 0
    count_i = CkJsonObject::ckSizeOfArray(jsonResponse,"value")
    While i < count_i
        CkJsonObject::setCkI(jsonResponse, i)
        authorizationAction = CkJsonObject::ckStringOf(jsonResponse,"value[i].authorization.action")
        authorizationRole = CkJsonObject::ckStringOf(jsonResponse,"value[i].authorization.role")
        authorizationScope = CkJsonObject::ckStringOf(jsonResponse,"value[i].authorization.scope")
        caller = CkJsonObject::ckStringOf(jsonResponse,"value[i].caller")
        claimsAud = CkJsonObject::ckStringOf(jsonResponse,"value[i].claims.aud")
        claimsIss = CkJsonObject::ckStringOf(jsonResponse,"value[i].claims.iss")
        claimsIat = CkJsonObject::ckStringOf(jsonResponse,"value[i].claims.iat")
        claimsNbf = CkJsonObject::ckStringOf(jsonResponse,"value[i].claims.nbf")
        claimsExp = CkJsonObject::ckStringOf(jsonResponse,"value[i].claims.exp")
        claimsVer = CkJsonObject::ckStringOf(jsonResponse,"value[i].claims.ver")
        claims_identity_claims_tenantid = CkJsonObject::ckStringOf(jsonResponse,"value[i].claims." + Chr(34) + "http://schemas.microsoft.com/identity/claims/tenantid" + Chr(34))
        claims_claims_authnmethodsreferences = CkJsonObject::ckStringOf(jsonResponse,"value[i].claims." + Chr(34) + "http://schemas.microsoft.com/claims/authnmethodsreferences" + Chr(34))
        claims_identity_claims_objectidentifier = CkJsonObject::ckStringOf(jsonResponse,"value[i].claims." + Chr(34) + "http://schemas.microsoft.com/identity/claims/objectidentifier" + Chr(34))
        claims_ws_2005_05_identity_claims_upn = CkJsonObject::ckStringOf(jsonResponse,"value[i].claims." + Chr(34) + "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/upn" + Chr(34))
        claimsPuid = CkJsonObject::ckStringOf(jsonResponse,"value[i].claims.puid")
        claims_ws_2005_05_identity_claims_nameidentifier = CkJsonObject::ckStringOf(jsonResponse,"value[i].claims." + Chr(34) + "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/nameidentifier" + Chr(34))
        claims_ws_2005_05_identity_claims_givenname = CkJsonObject::ckStringOf(jsonResponse,"value[i].claims." + Chr(34) + "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/givenname" + Chr(34))
        claims_ws_2005_05_identity_claims_surname = CkJsonObject::ckStringOf(jsonResponse,"value[i].claims." + Chr(34) + "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/surname" + Chr(34))
        claimsName = CkJsonObject::ckStringOf(jsonResponse,"value[i].claims.name")
        claimsGroups = CkJsonObject::ckStringOf(jsonResponse,"value[i].claims.groups")
        claims_ws_2005_05_identity_claims_name = CkJsonObject::ckStringOf(jsonResponse,"value[i].claims." + Chr(34) + "http://schemas.xmlsoap.org/ws/2005/05/identity/claims/name" + Chr(34))
        claimsAppid = CkJsonObject::ckStringOf(jsonResponse,"value[i].claims.appid")
        claimsAppidacr = CkJsonObject::ckStringOf(jsonResponse,"value[i].claims.appidacr")
        claims_identity_claims_scope = CkJsonObject::ckStringOf(jsonResponse,"value[i].claims." + Chr(34) + "http://schemas.microsoft.com/identity/claims/scope" + Chr(34))
        claims_claims_authnclassreference = CkJsonObject::ckStringOf(jsonResponse,"value[i].claims." + Chr(34) + "http://schemas.microsoft.com/claims/authnclassreference" + Chr(34))
        correlationId = CkJsonObject::ckStringOf(jsonResponse,"value[i].correlationId")
        description = CkJsonObject::ckStringOf(jsonResponse,"value[i].description")
        eventDataId = CkJsonObject::ckStringOf(jsonResponse,"value[i].eventDataId")
        eventNameValue = CkJsonObject::ckStringOf(jsonResponse,"value[i].eventName.value")
        eventNameLocalizedValue = CkJsonObject::ckStringOf(jsonResponse,"value[i].eventName.localizedValue")
        httpRequestClientRequestId = CkJsonObject::ckStringOf(jsonResponse,"value[i].httpRequest.clientRequestId")
        httpRequestClientIpAddress = CkJsonObject::ckStringOf(jsonResponse,"value[i].httpRequest.clientIpAddress")
        httpRequestMethod = CkJsonObject::ckStringOf(jsonResponse,"value[i].httpRequest.method")
        id = CkJsonObject::ckStringOf(jsonResponse,"value[i].id")
        level = CkJsonObject::ckStringOf(jsonResponse,"value[i].level")
        resourceGroupName = CkJsonObject::ckStringOf(jsonResponse,"value[i].resourceGroupName")
        resourceProviderNameValue = CkJsonObject::ckStringOf(jsonResponse,"value[i].resourceProviderName.value")
        resourceProviderNameLocalizedValue = CkJsonObject::ckStringOf(jsonResponse,"value[i].resourceProviderName.localizedValue")
        operationId = CkJsonObject::ckStringOf(jsonResponse,"value[i].operationId")
        operationNameValue = CkJsonObject::ckStringOf(jsonResponse,"value[i].operationName.value")
        operationNameLocalizedValue = CkJsonObject::ckStringOf(jsonResponse,"value[i].operationName.localizedValue")
        propertiesStatusCode = CkJsonObject::ckStringOf(jsonResponse,"value[i].properties.statusCode")
        statusValue = CkJsonObject::ckStringOf(jsonResponse,"value[i].status.value")
        statusLocalizedValue = CkJsonObject::ckStringOf(jsonResponse,"value[i].status.localizedValue")
        subStatusValue = CkJsonObject::ckStringOf(jsonResponse,"value[i].subStatus.value")
        subStatusLocalizedValue = CkJsonObject::ckStringOf(jsonResponse,"value[i].subStatus.localizedValue")
        eventTimestamp = CkJsonObject::ckStringOf(jsonResponse,"value[i].eventTimestamp")
        submissionTimestamp = CkJsonObject::ckStringOf(jsonResponse,"value[i].submissionTimestamp")
        subscriptionId = CkJsonObject::ckStringOf(jsonResponse,"value[i].subscriptionId")
        i = i + 1
    Wend


    CkHttp::ckDispose(http)
    CkJsonObject::ckDispose(jsonToken)
    CkJsonObject::ckDispose(jsonResponse)


    ProcedureReturn
EndProcedure