Perl
Perl
Azure Monitor - List Activity Logs
See more Azure Monitor Examples
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.
Chilkat Perl Downloads
use chilkat();
$success = 0;
# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
$http = chilkat::CkHttp->new();
# Load an OAuth2 access token previously fetched by this example: Get Azure OAuth2 Access Token
$jsonToken = chilkat::CkJsonObject->new();
$success = $jsonToken->LoadFile("qa_data/tokens/azureToken.json");
# Assuming success..
$http->put_AuthToken($jsonToken->stringOf("access_token"));
print "AuthToken: " . $http->authToken() . "\r\n";
$http->put_Accept("application/json");
$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpNoBody("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",$resp);
if ($success == 0) {
print $http->lastErrorText() . "\r\n";
exit;
}
print "Response Status Code: " . $resp->get_StatusCode() . "\r\n";
$jsonResponse = chilkat::CkJsonObject->new();
$jsonResponse->Load($resp->bodyStr());
$jsonResponse->put_EmitCompact(0);
print $jsonResponse->emit() . "\r\n";
if ($resp->get_StatusCode() != 200) {
print "Failed." . "\r\n";
exit;
}
# 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 = $jsonResponse->stringOf("nextLink");
$i = 0;
$count_i = $jsonResponse->SizeOfArray("value");
while ($i < $count_i) {
$jsonResponse->put_I($i);
$authorizationAction = $jsonResponse->stringOf("value[i].authorization.action");
$authorizationRole = $jsonResponse->stringOf("value[i].authorization.role");
$authorizationScope = $jsonResponse->stringOf("value[i].authorization.scope");
$caller = $jsonResponse->stringOf("value[i].caller");
$claimsAud = $jsonResponse->stringOf("value[i].claims.aud");
$claimsIss = $jsonResponse->stringOf("value[i].claims.iss");
$claimsIat = $jsonResponse->stringOf("value[i].claims.iat");
$claimsNbf = $jsonResponse->stringOf("value[i].claims.nbf");
$claimsExp = $jsonResponse->stringOf("value[i].claims.exp");
$claimsVer = $jsonResponse->stringOf("value[i].claims.ver");
$claims_identity_claims_tenantid = $jsonResponse->stringOf("value[i].claims.\"http://schemas.microsoft.com/identity/claims/tenantid\"");
$claims_claims_authnmethodsreferences = $jsonResponse->stringOf("value[i].claims.\"http://schemas.microsoft.com/claims/authnmethodsreferences\"");
$claims_identity_claims_objectidentifier = $jsonResponse->stringOf("value[i].claims.\"http://schemas.microsoft.com/identity/claims/objectidentifier\"");
$claims_ws_2005_05_identity_claims_upn = $jsonResponse->stringOf("value[i].claims.\"http://schemas.xmlsoap.org/ws/2005/05/identity/claims/upn\"");
$claimsPuid = $jsonResponse->stringOf("value[i].claims.puid");
$claims_ws_2005_05_identity_claims_nameidentifier = $jsonResponse->stringOf("value[i].claims.\"http://schemas.xmlsoap.org/ws/2005/05/identity/claims/nameidentifier\"");
$claims_ws_2005_05_identity_claims_givenname = $jsonResponse->stringOf("value[i].claims.\"http://schemas.xmlsoap.org/ws/2005/05/identity/claims/givenname\"");
$claims_ws_2005_05_identity_claims_surname = $jsonResponse->stringOf("value[i].claims.\"http://schemas.xmlsoap.org/ws/2005/05/identity/claims/surname\"");
$claimsName = $jsonResponse->stringOf("value[i].claims.name");
$claimsGroups = $jsonResponse->stringOf("value[i].claims.groups");
$claims_ws_2005_05_identity_claims_name = $jsonResponse->stringOf("value[i].claims.\"http://schemas.xmlsoap.org/ws/2005/05/identity/claims/name\"");
$claimsAppid = $jsonResponse->stringOf("value[i].claims.appid");
$claimsAppidacr = $jsonResponse->stringOf("value[i].claims.appidacr");
$claims_identity_claims_scope = $jsonResponse->stringOf("value[i].claims.\"http://schemas.microsoft.com/identity/claims/scope\"");
$claims_claims_authnclassreference = $jsonResponse->stringOf("value[i].claims.\"http://schemas.microsoft.com/claims/authnclassreference\"");
$correlationId = $jsonResponse->stringOf("value[i].correlationId");
$description = $jsonResponse->stringOf("value[i].description");
$eventDataId = $jsonResponse->stringOf("value[i].eventDataId");
$eventNameValue = $jsonResponse->stringOf("value[i].eventName.value");
$eventNameLocalizedValue = $jsonResponse->stringOf("value[i].eventName.localizedValue");
$httpRequestClientRequestId = $jsonResponse->stringOf("value[i].httpRequest.clientRequestId");
$httpRequestClientIpAddress = $jsonResponse->stringOf("value[i].httpRequest.clientIpAddress");
$httpRequestMethod = $jsonResponse->stringOf("value[i].httpRequest.method");
$id = $jsonResponse->stringOf("value[i].id");
$level = $jsonResponse->stringOf("value[i].level");
$resourceGroupName = $jsonResponse->stringOf("value[i].resourceGroupName");
$resourceProviderNameValue = $jsonResponse->stringOf("value[i].resourceProviderName.value");
$resourceProviderNameLocalizedValue = $jsonResponse->stringOf("value[i].resourceProviderName.localizedValue");
$operationId = $jsonResponse->stringOf("value[i].operationId");
$operationNameValue = $jsonResponse->stringOf("value[i].operationName.value");
$operationNameLocalizedValue = $jsonResponse->stringOf("value[i].operationName.localizedValue");
$propertiesStatusCode = $jsonResponse->stringOf("value[i].properties.statusCode");
$statusValue = $jsonResponse->stringOf("value[i].status.value");
$statusLocalizedValue = $jsonResponse->stringOf("value[i].status.localizedValue");
$subStatusValue = $jsonResponse->stringOf("value[i].subStatus.value");
$subStatusLocalizedValue = $jsonResponse->stringOf("value[i].subStatus.localizedValue");
$eventTimestamp = $jsonResponse->stringOf("value[i].eventTimestamp");
$submissionTimestamp = $jsonResponse->stringOf("value[i].submissionTimestamp");
$subscriptionId = $jsonResponse->stringOf("value[i].subscriptionId");
$i = $i + 1;
}