test

SET OrgUrl TO $'''https://org362aa0a6.crm8.dynamics.com'''

SET WorkQueueId TO $'''2ff3dc7e-9e73-f111-ab0d-6045bdce39cc'''

SET TenantId TO $'''5a2c87d9-ad1d-4d88-85ef-f5a3c30ca040'''

Scripting.RunPowershellScript.RunScript Script: $'''$ErrorActionPreference = \'Stop\'

$WarningPreference = \'SilentlyContinue\'

$ProgressPreference = \'SilentlyContinue\'

$res = \'%OrgUrl%\'

$tenant = \'%TenantId%\'

try {

    Import-Module Az.Accounts -ErrorAction Stop

    $ctx = Get-AzContext -ListAvailable | Where-Object { $_.Tenant.Id -eq $tenant } | Select-Object -First 1

    if (-not $ctx) {

        # Use browser sign-in (no console prompts) so it works from a desktop flow

        Update-AzConfig -LoginExperienceV2 Off -EnableLoginByWam $false -Scope CurrentUser | Out-Null

        Connect-AzAccount -Tenant $tenant -SkipContextPopulation 6>$null | Out-Null

        $ctx = Get-AzContext -ListAvailable | Where-Object { $_.Tenant.Id -eq $tenant } | Select-Object -First 1

    }

    if (-not $ctx) {

        Write-Output \"ERROR: Sign-in to tenant $tenant did not complete.\"

        return

    }

    $t = Get-AzAccessToken -ResourceUrl $res -TenantId $tenant -DefaultProfile $ctx

    if ($t.Token -is [System.Security.SecureString]) {

        Write-Output ([System.Net.NetworkCredential]::new(\'\', $t.Token).Password)

    } else {

        Write-Output $t.Token

    }

} catch {

    Write-Output (\"ERROR: \" + $_.Exception.Message)

}''' ScriptOutput=> PowershellOutput

Text.Trim Text: PowershellOutput TrimOption: Text.TrimOption.Both TrimmedText=> AccessToken

IF StartsWith(AccessToken, $'''ERROR''', True) THEN

    Display.ShowMessageDialog.ShowMessage Title: $'''ITSM work queue - sign-in failed''' Message: AccessToken Icon: Display.Icon.ErrorIcon Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: True ButtonPressed=> ButtonPressed

    EXIT Code: 0

END

Web.InvokeWebService.InvokeWebService Url: $'''%OrgUrl%/api/data/v9.2/workqueueitems?$filter=_workqueueid_value eq %WorkQueueId%''' Method: Web.Method.Get Accept: $'''application/json''' ContentType: $'''application/json''' CustomHeaders: $'''Authorization: Bearer %AccessToken%

OData-MaxVersion: 4.0

OData-Version: 4.0

Prefer: odata.maxpagesize=5000''' ConnectionTimeout: 60 FollowRedirection: True ClearCookies: False FailOnErrorStatus: False EncodeRequestBody: False UserAgent: $'''Mozilla/5.0 (Windows NT 10.0; Win64; x64)''' Encoding: Web.Encoding.AutoDetect AcceptUntrustedCertificates: False ResponseHeaders=> WebServiceResponseHeaders Response=> WebServiceResponse StatusCode=> StatusCode

Variables.ConvertJsonToCustomObject Json: WebServiceResponse CustomObject=> JsonAsCustomObject

SET WorkQueueItems TO JsonAsCustomObject['value']

SET ItemCount TO WorkQueueItems.Count

SET ItemDetails TO $''''''

LOOP FOREACH CurrentItem IN WorkQueueItems

    SET ItemDetails TO $'''%ItemDetails%%CurrentItem['name']%  |  State: %CurrentItem['statecode']%  |  %CurrentItem['input']%

'''

END

Display.ShowMessageDialog.ShowMessage Title: $'''Invoice Processing Queue''' Message: $'''HTTP status: %StatusCode%   Items: %ItemCount%

(State: 0=Queued, 1=Processing, 2=Processed, 3=OnHold, 4=Error)

%ItemDetails%''' Icon: Display.Icon.Information Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: True ButtonPressed=> ButtonPressed

Folder.GetSpecialFolder SpecialFolder: Folder.SpecialFolder.DesktopDirectory SpecialFolderPath=> DesktopPath

File.WriteText File: $'''%DesktopPath%\\InvoiceProcessingQueue_Items.json''' TextToWrite: WebServiceResponse AppendNewLine: False IfFileExists: File.IfFileExists.Overwrite Encoding: File.FileEncoding.UTF8

Display.ShowMessageDialog.ShowMessage Message: $'''%DesktopPath%\\InvoiceProcessingQueue_Items.json''' Icon: Display.Icon.None Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: False ButtonPressed=> ButtonPressed2

===

@@'InputSummaryValue:WORKQUEUE': 'Invoice Processing Queue'

WorkQueues.GetWorkQueueItems WorkQueue: $'''2ff3dc7e-9e73-f111-ab0d-6045bdce39cc''' FilterRows: $'''<attribute name=\"name\" />

<attribute name=\"input\" />

<attribute name=\"statecode\" />

<attribute name=\"statuscode\" />

<attribute name=\"priority\" />

<attribute name=\"expirydate\" />

<attribute name=\"processingresult\" />

<attribute name=\"createdon\" />

<attribute name=\"workqueueitemid\" />

<order attribute=\"createdon\" descending=\"false\" />''' RowsToReturn: 5000 ThrowIfWorkQueueNotFound: True WorkQueueItems=> WorkQueueItems2

SET QueueItemsJson TO $'''['''

SET JsonSeparator TO $''''''

LOOP FOREACH QueueItem IN WorkQueueItems2

    SET QueueItemsJson TO $'''%QueueItemsJson%%JsonSeparator%{\"id\":\"%QueueItem.Id%\",\"name\":\"%QueueItem.Name%\",\"value\":%QueueItem.Value%}'''

    SET JsonSeparator TO $''','''

END

SET QueueItemsJson TO $'''%QueueItemsJson%]'''

SET QueueItemCount TO WorkQueueItems2.Count

Folder.GetSpecialFolder SpecialFolder: Folder.SpecialFolder.DesktopDirectory SpecialFolderPath=> DesktopFolder

File.WriteText File: $'''%DesktopFolder%\\InvoiceProcessingQueue_BuiltIn.json''' TextToWrite: QueueItemsJson AppendNewLine: False IfFileExists: File.IfFileExists.Overwrite Encoding: File.FileEncoding.UTF8

Display.ShowMessageDialog.ShowMessage Title: $'''Invoice Processing Queue (built-in action)''' Message: $'''Items: %QueueItemCount%

%QueueItemsJson%''' Icon: Display.Icon.Information Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: True ButtonPressed=> ButtonPressed

===