From 294863d49549bcfb1b97edb831529019704ae0df Mon Sep 17 00:00:00 2001
From: Rasmus Sjoerslev <badedyr@gmail.com>
Date: Wed, 5 Apr 2017 21:06:18 +0200
Subject: [PATCH 1/2] Added Get-HVPodSessions function to VMware.Hv.Helper.psm1
 which will show all connections across a Pod Federation. See Synopsis and
 Description for more details

---
 .../VMware.Hv.Helper/VMware.HV.Helper.psm1    | 67 ++++++++++++++++++-
 1 file changed, 66 insertions(+), 1 deletion(-)

diff --git a/Modules/VMware.Hv.Helper/VMware.HV.Helper.psm1 b/Modules/VMware.Hv.Helper/VMware.HV.Helper.psm1
index 7c06a99..9d7167f 100644
--- a/Modules/VMware.Hv.Helper/VMware.HV.Helper.psm1
+++ b/Modules/VMware.Hv.Helper/VMware.HV.Helper.psm1
@@ -5256,5 +5256,70 @@ function Get-HVMachineSummary {
   return $machineList
 }
 
-Export-ModuleMember Add-HVDesktop,Add-HVRDSServer,Connect-HVEvent,Disconnect-HVEvent,Get-HVEvent,Get-HVFarm,Get-HVFarmSummary,Get-HVPool,Get-HVPoolSummary,Get-HVMachine,Get-HVMachineSummary,Get-HVQueryResult,Get-HVQueryFilter,New-HVFarm,New-HVPool,Remove-HVFarm,Remove-HVPool,Set-HVFarm,Set-HVPool,Start-HVFarm,Start-HVPool
+function Get-HVPodSessions {
+<#
+.Synopsis
+   Gets the total amount of sessions for all Pods in a Federation
+
+.DESCRIPTION
+   Gets the total amout of current sessions (connected and disconnected) for all Pods in a Federation (CPA)
+   based on the global query service.
+   The default object response is used which contains both success and fault information as well as the
+   session count per pod and the ID of each pod.
+
+.PARAMETER HvServer
+    Reference to Horizon View Server to query the virtual machines from. If the value is not passed or null then
+    first element from global:DefaultHVServers would be considered inplace of hvServer
+
+.EXAMPLE
+   Get-HVPodSessions
+
+.OUTPUTS
+  Returns list of objects of type GlobalSessionPodSessionCounter
+
+.NOTES
+    Author                      : Rasmus Sjoerslev
+    Author email                : rasmus.sjorslev@vmware.com
+    Version                     : 1.0
+
+    ===Tested Against Environment====
+    Horizon View Server Version : 7.0.2
+    PowerCLI Version            : PowerCLI 6.5
+    PowerShell Version          : 5.0
+#>
+
+  [CmdletBinding(
+    SupportsShouldProcess = $true,
+    ConfirmImpact = 'High'
+  )]
+
+  param(
+    [Parameter(Mandatory = $false)]
+    $HvServer = $null
+  )
+
+  $services = Get-ViewAPIService -hvServer $hvServer
+  if ($null -eq $services) {
+    Write-Error "Could not retrieve ViewApi services from connection object"
+    break
+  }
+
+  $query_service_helper = New-Object VMware.Hv.GlobalSessionQueryServiceService
+  $count_spec = New-Object VMware.Hv.GlobalSessionQueryServiceCountSpec
+  $queryResults = @()
+
+  foreach ($pod in $services.Pod.Pod_List()) {
+	  $count_spec.Pod = $pod.Id
+	  $info = $query_service_helper.GlobalSessionQueryService_GetCountWithSpec($services,$count_spec)
+	  
+	  foreach ($res in $info) {
+		  if ($pod.Id.Id -eq $res.Id.Id) {
+			  $queryResults += $res
+		  }
+	  }
+  }
+  return $queryResults
+}
+
+Export-ModuleMember Add-HVDesktop,Add-HVRDSServer,Connect-HVEvent,Disconnect-HVEvent,Get-HVEvent,Get-HVFarm,Get-HVFarmSummary,Get-HVPool,Get-HVPoolSummary,Get-HVMachine,Get-HVMachineSummary,Get-HVQueryResult,Get-HVQueryFilter,New-HVFarm,New-HVPool,Remove-HVFarm,Remove-HVPool,Set-HVFarm,Set-HVPool,Start-HVFarm,Start-HVPool,Get-HVPodSessions
 

From d1fc624c57361b1f962ed2fa5254d117acd73bbd Mon Sep 17 00:00:00 2001
From: Rasmus Sjoerslev <badedyr@gmail.com>
Date: Thu, 6 Apr 2017 11:47:20 +0200
Subject: [PATCH 2/2] Changed the name of the cmdlet from Get-HVPodSessions to
 Get-HVPodSession

---
 Modules/VMware.Hv.Helper/VMware.HV.Helper.psm1 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Modules/VMware.Hv.Helper/VMware.HV.Helper.psm1 b/Modules/VMware.Hv.Helper/VMware.HV.Helper.psm1
index 9d7167f..7a3f909 100644
--- a/Modules/VMware.Hv.Helper/VMware.HV.Helper.psm1
+++ b/Modules/VMware.Hv.Helper/VMware.HV.Helper.psm1
@@ -5256,7 +5256,7 @@ function Get-HVMachineSummary {
   return $machineList
 }
 
-function Get-HVPodSessions {
+function Get-HVPodSession {
 <#
 .Synopsis
    Gets the total amount of sessions for all Pods in a Federation
@@ -5272,7 +5272,7 @@ function Get-HVPodSessions {
     first element from global:DefaultHVServers would be considered inplace of hvServer
 
 .EXAMPLE
-   Get-HVPodSessions
+   Get-HVPodSession
 
 .OUTPUTS
   Returns list of objects of type GlobalSessionPodSessionCounter
@@ -5321,5 +5321,5 @@ function Get-HVPodSessions {
   return $queryResults
 }
 
-Export-ModuleMember Add-HVDesktop,Add-HVRDSServer,Connect-HVEvent,Disconnect-HVEvent,Get-HVEvent,Get-HVFarm,Get-HVFarmSummary,Get-HVPool,Get-HVPoolSummary,Get-HVMachine,Get-HVMachineSummary,Get-HVQueryResult,Get-HVQueryFilter,New-HVFarm,New-HVPool,Remove-HVFarm,Remove-HVPool,Set-HVFarm,Set-HVPool,Start-HVFarm,Start-HVPool,Get-HVPodSessions
+Export-ModuleMember Add-HVDesktop,Add-HVRDSServer,Connect-HVEvent,Disconnect-HVEvent,Get-HVEvent,Get-HVFarm,Get-HVFarmSummary,Get-HVPool,Get-HVPoolSummary,Get-HVMachine,Get-HVMachineSummary,Get-HVQueryResult,Get-HVQueryFilter,New-HVFarm,New-HVPool,Remove-HVFarm,Remove-HVPool,Set-HVFarm,Set-HVPool,Start-HVFarm,Start-HVPool,Get-HVPodSession