(Tcl) 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 Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

# Load an OAuth2 access token previously fetched by this example:  Get Azure OAuth2 Access Token
set jsonToken [new_CkJsonObject]

set success [CkJsonObject_LoadFile $jsonToken "qa_data/tokens/azureToken.json"]
# Assuming success..
CkHttp_put_AuthToken $http [CkJsonObject_stringOf $jsonToken "access_token"]
puts "AuthToken: [CkHttp_authToken $http]"

CkHttp_put_Accept $http "application/json"

# resp is a CkHttpResponse
set resp [CkHttp_QuickRequest $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_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $jsonToken
    exit
}

puts "Response Status Code: [CkHttpResponse_get_StatusCode $resp]"

set jsonResponse [new_CkJsonObject]

CkJsonObject_Load $jsonResponse [CkHttpResponse_bodyStr $resp]
CkJsonObject_put_EmitCompact $jsonResponse 0
puts [CkJsonObject_emit $jsonResponse]

if {[CkHttpResponse_get_StatusCode $resp] != 200} then {
    puts "Failed."
    delete_CkHttpResponse $resp

    delete_CkHttp $http
    delete_CkJsonObject $jsonToken
    delete_CkJsonObject $jsonResponse
    exit
}

delete_CkHttpResponse $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=######"
# }
# 

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

delete_CkHttp $http
delete_CkJsonObject $jsonToken
delete_CkJsonObject $jsonResponse