So with his much improved code I set about writing a script to query the Program Neighbourhood Agent’s applications and launching them too with powershell.

By default, when Program Neighbourhood Agent launches, it populates the Application Model key(s) in HKEY_CURRENT_USERSoftwareCitrixPNAgent.

After the launch, we can use powershell to convert these binary keys into useable data, stick them all together then pull the application details.

With the below script, you can:

Query applications published:


Filter query published applications:



Launch Published applications:



And if you’re crazy, auto launch all applications:



The script can be found after the jump below:

[sourcecode language=”powershell”]
function get-pnapplication {
param(
[switch]$showdisabled)

$bytesin=@()
$reg = [Microsoft.Win32.RegistryKey]::OpenRemoteBaseKey("CurrentUser", [String]::Empty)
# Read our Key (with write access)
$key = $Reg.OpenSubKey("SoftwareCitrixPNAgent", $true)

# Read value as Byte Array
$key.GetValueNames() | where {$_ -like "application model*"} | %{
$bytesIn += $Key.GetValue("$_")}

# Copy the Bytes to a String
$encode = New-Object System.Text.ASCIIEncoding
$rawData = $Encode.GetString($bytesIn)

# Replace spaces in element names with underscores
$data = $rawData | Foreach-Object {
[regex]::replace($_,‘<([^>]+)>’,{$args[0] -replace ‘ ‘,‘ ’})
}

# Add dummy Root element
$data = "<root>$data</root>"

# Load the data into XML Object
$xml = New-Object Xml.XmlDocument
$xml.LoadXml($data)

foreach ($app in $xml.root.appdata){

if ($app.details.settings.appisdesktop -eq "true"){$type="Desktop"}
Else{$type="Application"}
if ($showdisabled -ne $true){
if ($app.details.settings.appisdisabled -eq $true){continue}
}
$item=new-object PSObject -Property @{
Name=$app.FName;
InName=$app.inname;
Description=$app.details.settings.Description
Type=$type
}#end report
$report+=@($item)
}#end for

return $report
}#end function

function start-pnapplication{
param(
[Parameter(
Position=0,
Mandatory=$true,
ValueFromPipeline=$true,
ValueFromPipelineByPropertyName=$true)]
[string]$InName,
[string]$PnAgentPath="C:Program Files (x86)CitrixICA Clientpnagent.exe")

if (!(test-path $Pnagentpath)){write-warning "cannot find Pnagent, breaking"}

start-process $pnagentpath -ArgumentList "/qlaunch ""$inname"""
}

[/sourcecode]