(PowerBuilder) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Http
oleobject loo_JsonToken
integer li_Success
oleobject loo_Resp
oleobject loo_JsonResponse
string ls_NextLink
integer i
integer li_Count_i
string ls_AuthorizationAction
string ls_AuthorizationRole
string ls_AuthorizationScope
string ls_Caller
string ls_ClaimsAud
string ls_ClaimsIss
string ls_ClaimsIat
string ls_ClaimsNbf
string ls_ClaimsExp
string ls_ClaimsVer
string ls_Claims_identity_claims_tenantid
string ls_Claims_claims_authnmethodsreferences
string ls_Claims_identity_claims_objectidentifier
string ls_Claims_ws_2005_05_identity_claims_upn
string ls_ClaimsPuid
string ls_Claims_ws_2005_05_identity_claims_nameidentifier
string ls_Claims_ws_2005_05_identity_claims_givenname
string ls_Claims_ws_2005_05_identity_claims_surname
string ls_ClaimsName
string ls_ClaimsGroups
string ls_Claims_ws_2005_05_identity_claims_name
string ls_ClaimsAppid
string ls_ClaimsAppidacr
string ls_Claims_identity_claims_scope
string ls_Claims_claims_authnclassreference
string ls_CorrelationId
string ls_Description
string ls_EventDataId
string ls_EventNameValue
string ls_EventNameLocalizedValue
string ls_HttpRequestClientRequestId
string ls_HttpRequestClientIpAddress
string ls_HttpRequestMethod
string ls_Id
string ls_Level
string ls_ResourceGroupName
string ls_ResourceProviderNameValue
string ls_ResourceProviderNameLocalizedValue
string ls_OperationId
string ls_OperationNameValue
string ls_OperationNameLocalizedValue
string ls_PropertiesStatusCode
string ls_StatusValue
string ls_StatusLocalizedValue
string ls_SubStatusValue
string ls_SubStatusLocalizedValue
string ls_EventTimestamp
string ls_SubmissionTimestamp
string ls_SubscriptionId

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

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat_9_5_0.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Load an OAuth2 access token previously fetched by this example:  Get Azure OAuth2 Access Token
loo_JsonToken = create oleobject
li_rc = loo_JsonToken.ConnectToNewObject("Chilkat_9_5_0.JsonObject")

li_Success = loo_JsonToken.LoadFile("qa_data/tokens/azureToken.json")
// Assuming success..
loo_Http.AuthToken = loo_JsonToken.StringOf("access_token")
Write-Debug "AuthToken: " + loo_Http.AuthToken

loo_Http.Accept = "application/json"

loo_Resp = loo_Http.QuickRequest("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 loo_Http.LastMethodSuccess <> 1 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_JsonToken
    return
end if

Write-Debug "Response Status Code: " + string(loo_Resp.StatusCode)

loo_JsonResponse = create oleobject
li_rc = loo_JsonResponse.ConnectToNewObject("Chilkat_9_5_0.JsonObject")

loo_JsonResponse.Load(loo_Resp.BodyStr)
loo_JsonResponse.EmitCompact = 0
Write-Debug loo_JsonResponse.Emit()

if loo_Resp.StatusCode <> 200 then
    Write-Debug "Failed."
    destroy loo_Resp
    destroy loo_Http
    destroy loo_JsonToken
    destroy loo_JsonResponse
    return
end if

destroy loo_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=######"
// }
// 

ls_NextLink = loo_JsonResponse.StringOf("nextLink")
i = 0
li_Count_i = loo_JsonResponse.SizeOfArray("value")
do while i < li_Count_i
    loo_JsonResponse.I = i
    ls_AuthorizationAction = loo_JsonResponse.StringOf("value[i].authorization.action")
    ls_AuthorizationRole = loo_JsonResponse.StringOf("value[i].authorization.role")
    ls_AuthorizationScope = loo_JsonResponse.StringOf("value[i].authorization.scope")
    ls_Caller = loo_JsonResponse.StringOf("value[i].caller")
    ls_ClaimsAud = loo_JsonResponse.StringOf("value[i].claims.aud")
    ls_ClaimsIss = loo_JsonResponse.StringOf("value[i].claims.iss")
    ls_ClaimsIat = loo_JsonResponse.StringOf("value[i].claims.iat")
    ls_ClaimsNbf = loo_JsonResponse.StringOf("value[i].claims.nbf")
    ls_ClaimsExp = loo_JsonResponse.StringOf("value[i].claims.exp")
    ls_ClaimsVer = loo_JsonResponse.StringOf("value[i].claims.ver")
    ls_Claims_identity_claims_tenantid = loo_JsonResponse.StringOf("value[i].claims.\"http://schemas.microsoft.com/identity/claims/tenantid\"")
    ls_Claims_claims_authnmethodsreferences = loo_JsonResponse.StringOf("value[i].claims.\"http://schemas.microsoft.com/claims/authnmethodsreferences\"")
    ls_Claims_identity_claims_objectidentifier = loo_JsonResponse.StringOf("value[i].claims.\"http://schemas.microsoft.com/identity/claims/objectidentifier\"")
    ls_Claims_ws_2005_05_identity_claims_upn = loo_JsonResponse.StringOf("value[i].claims.\"http://schemas.xmlsoap.org/ws/2005/05/identity/claims/upn\"")
    ls_ClaimsPuid = loo_JsonResponse.StringOf("value[i].claims.puid")
    ls_Claims_ws_2005_05_identity_claims_nameidentifier = loo_JsonResponse.StringOf("value[i].claims.\"http://schemas.xmlsoap.org/ws/2005/05/identity/claims/nameidentifier\"")
    ls_Claims_ws_2005_05_identity_claims_givenname = loo_JsonResponse.StringOf("value[i].claims.\"http://schemas.xmlsoap.org/ws/2005/05/identity/claims/givenname\"")
    ls_Claims_ws_2005_05_identity_claims_surname = loo_JsonResponse.StringOf("value[i].claims.\"http://schemas.xmlsoap.org/ws/2005/05/identity/claims/surname\"")
    ls_ClaimsName = loo_JsonResponse.StringOf("value[i].claims.name")
    ls_ClaimsGroups = loo_JsonResponse.StringOf("value[i].claims.groups")
    ls_Claims_ws_2005_05_identity_claims_name = loo_JsonResponse.StringOf("value[i].claims.\"http://schemas.xmlsoap.org/ws/2005/05/identity/claims/name\"")
    ls_ClaimsAppid = loo_JsonResponse.StringOf("value[i].claims.appid")
    ls_ClaimsAppidacr = loo_JsonResponse.StringOf("value[i].claims.appidacr")
    ls_Claims_identity_claims_scope = loo_JsonResponse.StringOf("value[i].claims.\"http://schemas.microsoft.com/identity/claims/scope\"")
    ls_Claims_claims_authnclassreference = loo_JsonResponse.StringOf("value[i].claims.\"http://schemas.microsoft.com/claims/authnclassreference\"")
    ls_CorrelationId = loo_JsonResponse.StringOf("value[i].correlationId")
    ls_Description = loo_JsonResponse.StringOf("value[i].description")
    ls_EventDataId = loo_JsonResponse.StringOf("value[i].eventDataId")
    ls_EventNameValue = loo_JsonResponse.StringOf("value[i].eventName.value")
    ls_EventNameLocalizedValue = loo_JsonResponse.StringOf("value[i].eventName.localizedValue")
    ls_HttpRequestClientRequestId = loo_JsonResponse.StringOf("value[i].httpRequest.clientRequestId")
    ls_HttpRequestClientIpAddress = loo_JsonResponse.StringOf("value[i].httpRequest.clientIpAddress")
    ls_HttpRequestMethod = loo_JsonResponse.StringOf("value[i].httpRequest.method")
    ls_Id = loo_JsonResponse.StringOf("value[i].id")
    ls_Level = loo_JsonResponse.StringOf("value[i].level")
    ls_ResourceGroupName = loo_JsonResponse.StringOf("value[i].resourceGroupName")
    ls_ResourceProviderNameValue = loo_JsonResponse.StringOf("value[i].resourceProviderName.value")
    ls_ResourceProviderNameLocalizedValue = loo_JsonResponse.StringOf("value[i].resourceProviderName.localizedValue")
    ls_OperationId = loo_JsonResponse.StringOf("value[i].operationId")
    ls_OperationNameValue = loo_JsonResponse.StringOf("value[i].operationName.value")
    ls_OperationNameLocalizedValue = loo_JsonResponse.StringOf("value[i].operationName.localizedValue")
    ls_PropertiesStatusCode = loo_JsonResponse.StringOf("value[i].properties.statusCode")
    ls_StatusValue = loo_JsonResponse.StringOf("value[i].status.value")
    ls_StatusLocalizedValue = loo_JsonResponse.StringOf("value[i].status.localizedValue")
    ls_SubStatusValue = loo_JsonResponse.StringOf("value[i].subStatus.value")
    ls_SubStatusLocalizedValue = loo_JsonResponse.StringOf("value[i].subStatus.localizedValue")
    ls_EventTimestamp = loo_JsonResponse.StringOf("value[i].eventTimestamp")
    ls_SubmissionTimestamp = loo_JsonResponse.StringOf("value[i].submissionTimestamp")
    ls_SubscriptionId = loo_JsonResponse.StringOf("value[i].subscriptionId")
    i = i + 1
loop


destroy loo_Http
destroy loo_JsonToken
destroy loo_JsonResponse