PSHyperVTools

0.4.0

functions/public.ps1


#these are functions to be exported and visible to the user

#todo - Get-VHDSummary, Get-VMLastUse, New-HyperVReport
Function Expand-VMGroup {
    [cmdletbinding()]
    [outputtype("myGroupVM","String")]

    Param(
        [Parameter(Position = 0, ValueFromPipeline)]
        [string]$Name,
        [ValidateNotNullorEmpty()]
        [string]$Computername = $ENV:COMPUTERNAME,
        [pscredential]$Credential,
        [ValidateSet("VMCollectionType", "ManagementCollectionType")]
        [string]$GroupType,
        [switch]$List
    )
    Begin {
        Write-Verbose "[$((Get-Date).TimeofDay) BEGIN ] Starting $($myinvocation.mycommand)"
    } #begin

    Process {
        Write-Verbose "[$((Get-Date).TimeofDay) PROCESS] Getting VMGroups from $Computername"
        if ($Name) {
            Write-Verbose "[$((Get-Date).TimeofDay) PROCESS] Filtering groups by name: $Name"
        }

        #remove these from psboundparameters
        "list", "grouptype" | foreach-object {
            if ($PSBoundParameters.ContainsKey($_)) {
                [void]$PSBoundParameters.remove($_)
            }
        }
        Try {
            $groups = Get-VMGroup @PSBoundParameters -ErrorAction stop
            if ($GroupType) {
                Write-Verbose "[$((Get-Date).TimeofDay) PROCESS] Filtering groups by type: $GroupType"
                $groups = $groups.where( {$_.GroupType -eq $GroupType})
            }
        }
        Catch {
            throw $_
        }
        if ($Groups) {
            Write-Verbose "[$((Get-Date).TimeofDay) PROCESS] Found $($groups.count) matching VM group(s)"
            #initialize an array to keep track of vm names.
            $names = @()
            foreach ($group in $groups) {
                if ($group.grouptype -eq 'ManagementCollectionType') {
                    $members = $group.VMGroupMembers.VMMembers
                }
                else {
                    $members = $group.VMMembers
                }

                foreach ($item in $members) {
                    if ($List) {
                        #only write the VMName to the pipeline
                        #if it hasn't been used before
                        if ($names -notcontains $item.name) {
                            $item.name
                        }
                        $names += $item.name
                    }
                    else {
                        #write a custom object to the pipeline
                        [pscustomobject]@{
                            PSTypeName   = "myGroupVM"
                            VMGroup      = $group.name
                            Name         = $item.name
                            State        = $item.State
                            Uptime       = $item.Uptime
                            Status       = $item.Status
                            Computername = $item.Computername
                        }
                    } #else
                } #foreach item

            } #foreach Group
        } #if
        else {
            Write-Warning "No matching VM Groups found."
        }
    } #process

    End {
        Write-Verbose "[$((Get-Date).TimeofDay) END ] Ending $($myinvocation.mycommand)"
    } #end

} #close Expand-VMGroup

Function Start-VMGroup {
    [cmdletbinding(SupportsShouldProcess)]
    [Outputtype("None", "Microsoft.HyperV.PowerShell.VirtualMachine", "Microsoft.HyperV.PowerShell.Commands.VmJob")]
    Param(
        [Parameter(Position = 0, ValueFromPipeline, HelpMessage = "The name of your VM Group")]
        [string]$Name,
        [ValidateNotNullorEmpty()]
        [string]$Computername = $ENV:COMPUTERNAME,
        [pscredential]$Credential,
        [switch]$AsJob,
        [switch]$Passthru
    )
    Begin {
        Write-Verbose "[$((Get-Date).TimeofDay) BEGIN ] Starting $($myinvocation.mycommand)"
        #create a copy of original psboundparameters that can be used later
        $original = ($PSBoundParameters -as [hashtable]).clone()
    } #begin

    Process {
        Write-Verbose "[$((Get-Date).TimeofDay) PROCESS] Getting VMGroup $Name on $Computername"
        #remove these from psboundparameters
        "asjob", "passthru", "whatif", "confirm" | foreach-object {
            if ($PSBoundParameters.ContainsKey($_)) {
                [void]$PSBoundParameters.remove($_)
            }
        }

        Try {
            $groups = Get-VMGroup @PSBoundParameters -ErrorAction stop
        }
        Catch {
            throw $_
        }
        if ($Groups) {
            Write-Verbose "[$((Get-Date).TimeofDay) PROCESS] Found $($groups.count) matching group(s)"
            foreach ($group in $groups) {
                if ($group.grouptype -eq 'ManagementCollectionType') {
                    $members = $group.VMGroupMembers.VMMembers
                }
                else {
                    $members = $group.VMMembers
                }

                $members.where( {$_.state -ne 'running'}) | ForEach-Object {
                    Write-Verbose "[$((Get-Date).TimeofDay) PROCESS] Starting $($_.name)"
                    $original.Name = $_.Name
                    Start-VM @original
                }
            }
        }
        else {
            Write-Warning "No matching VM Groups found."
        }
    } #process

    End {
        Write-Verbose "[$((Get-Date).TimeofDay) END ] Ending $($myinvocation.mycommand)"

    } #end

} #close Start-VMGroup

Function Stop-VMGroup {
    [cmdletbinding(SupportsShouldProcess)]
    [Outputtype("None", "Microsoft.HyperV.PowerShell.VirtualMachine", "Microsoft.HyperV.PowerShell.Commands.VmJob")]
    Param(
        [Parameter(Position = 0, ValueFromPipeline)]
        [string]$Name,
        [ValidateNotNullorEmpty()]
        [string]$Computername = $ENV:COMPUTERNAME,
        [pscredential]$Credential,
        [switch]$Force,
        [switch]$Save,
        [switch]$TurnOff,
        [switch]$AsJob,
        [switch]$Passthru
    )
    Begin {
        Write-Verbose "[$((Get-Date).TimeofDay) BEGIN ] Starting $($myinvocation.mycommand)"
        #create a copy of original psboundparameters that can be used later
        $original = ($PSBoundParameters -as [hashtable]).clone()

    } #begin

    Process {
        Write-Verbose "[$((Get-Date).TimeofDay) PROCESS] Getting VMGroup $Name on $Computername"

        #remove these from psboundparameters
        "force", "save", "asjob","turnoff", "passthru", "whatif", "confirm" | foreach-object {
            if ($PSBoundParameters.ContainsKey($_)) {
                Write-Verbose "[$((Get-Date).TimeofDay) PROCESS] removing boundparameter $_"
                [void]$PSBoundParameters.remove($_)
            }
        }
        Try {
            $groups = Get-VMGroup @PSBoundParameters -ErrorAction stop
        }
        Catch {
            throw $_
        }
        if ($Groups) {
            Write-Verbose "[$((Get-Date).TimeofDay) PROCESS] Found $($groups.count) matching group(s)"
            foreach ($group in $groups) {
                if ($group.grouptype -eq 'ManagementCollectionType') {
                    $members = $group.VMGroupMembers.VMMembers
                }
                else {
                    $members = $group.VMMembers
                }

                $members.where( {$_.state -eq 'running'}) | ForEach-Object {
                    $original.Name = $_.Name
                    Stop-VM @original
                }
            }
        }
        else {
            Write-Warning "No matching VM Groups found."
        }
    } #process

    End {
        Write-Verbose "[$((Get-Date).TimeofDay) END ] Ending $($myinvocation.mycommand)"

    } #end

} #close Stop-VMGroup

Function Find-VMGroup {

    [CmdletBinding(DefaultParameterSetName = 'Name')]
    [Outputtype("Microsoft.HyperV.PowerShell.VMGroup")]
    Param(

        [Parameter(ParameterSetName = 'Id')]
        [Parameter(ParameterSetName = 'Name')]
        [ValidateNotNullOrEmpty()]
        [CimSession[]]$CimSession,

        [Parameter(ParameterSetName = 'Name')]
        [Parameter(ParameterSetName = 'Id')]
        [ValidateNotNullOrEmpty()]
        [string[]]$ComputerName,

        [Parameter(ParameterSetName = 'Name')]
        [Parameter(ParameterSetName = 'Id')]
        [ValidateNotNullOrEmpty()]
        [pscredential[]]$Credential,

        [Parameter(ParameterSetName = 'Name', Position = 0)]
        [ValidateNotNullOrEmpty()]
        [string[]]$Name,

        [Parameter(ParameterSetName = 'Id', Position = 0)]
        [ValidateNotNullOrEmpty()]
        [guid]$Id,

        [ValidateSet("VMCollectionType", "ManagementCollectionType")]
        [string]$GroupType
    )

    Begin {

        Write-Verbose "[$((Get-Date).TimeofDay) BEGIN ] Starting $($MyInvocation.Mycommand)"
        Write-Verbose "[$((Get-Date).TimeofDay) BEGIN ] Using parameter set $($PSCmdlet.ParameterSetName)"

        try {
            $outBuffer = $null
            if ($PSBoundParameters.TryGetValue('OutBuffer', [ref]$outBuffer)) {
                $PSBoundParameters['OutBuffer'] = 1
            }
            $wrappedCmd = $ExecutionContext.InvokeCommand.GetCommand('Hyper-V\Get-VMGroup', [System.Management.Automation.CommandTypes]::Cmdlet)
            if ($GroupType) {
                [void]$PSBoundParameters.Remove("GroupType")
                $scriptCmd = { & $wrappedCmd @PSBoundParameters | Where-Object {$_.Grouptype -eq $GroupType} }
            }
            else {
                $scriptCmd = {& $wrappedCmd @PSBoundParameters }
            }
            $steppablePipeline = $scriptCmd.GetSteppablePipeline($myInvocation.CommandOrigin)
            $steppablePipeline.Begin($PSCmdlet)
        }
        catch {
            throw
        }

    } #begin

    Process {
        Write-Verbose "[$((Get-Date).TimeofDay) PROCESS] Searching for VM group(s)"
        try {
            $steppablePipeline.Process($_)
        }
        catch {
            throw
        }

    } #process

    End {

        Write-Verbose "[$((Get-Date).TimeofDay) END ] Ending $($MyInvocation.Mycommand)"

        try {
            $steppablePipeline.End()
        }
        catch {
            throw
        }

    } #end

} #end function Find-VMGroup

Function Get-VMIPAddress {
    [cmdletbinding(DefaultParameterSetName = "computer")]
    [outputtype("vmIPAddress")]

    Param (
        [Parameter(Position = 0, Mandatory,
            HelpMessage = "Enter a Hyper-V virtual machine name",
            ValueFromPipeline, ValueFromPipelinebyPropertyName)]
        [ValidateNotNullorEmpty()]
        [alias("vm")]
        [object]$Name,
        [Parameter(ValueFromPipelinebyPropertyName, ParameterSetName = "computer")]
        [ValidateNotNullorEmpty()]
        [string]$Computername = $env:COMPUTERNAME,
        [Parameter(ParameterSetName = "computer")]
        [PSCredential]$Credential,
        [Parameter(ParameterSetName = "session")]
        [Microsoft.Management.Infrastructure.CimSession]$Cimsession
    )

    Begin {
        Write-Verbose -Message "Starting $($MyInvocation.Mycommand)"
    } #begin

    Process {
        if ($name -is [string]) {
            Write-Verbose -Message "Getting virtual machine(s)."
            $vms = Get-VM @PSBoundParameters
        }
        else {
            $vms = $name
        }
        #otherwise we'll assume $Name is a virtual machine object
        foreach ($vm in $vms) {
            Write-Verbose -Message "Getting network information from $($vm.name)"
            $data = $vm | Get-VMNetworkAdapter -PipelineVariable pv |
                Select-Object -ExpandProperty IPAddresses -first 1 |
                Select-Object -first 1 -Property @{Name = "IP"; Expression = {$_}},
            @{Name = "Switch"; Expression = {$pv.SwitchName}},
            @{Name = "MAC"; Expression = {$pv.macaddress}}

            [pscustomobject]@{
                PSTypename   = "vmIPAddress"
                Name         = $vm.name
                IPAddress    = $data.IP
                MACAddress   = $data.mac
                Switch       = $data.Switch
                Computername = $vm.computername
            }
        } #foreach
    } #process

    End {
        Write-Verbose -Message "Ending $($MyInvocation.Mycommand)"
    } #end

} #end Get-VMIPAddress

Function Open-VMRemoteDesktop {
    [cmdletbinding()]
    [Outputtype("None")]

    Param(
        [Parameter(Position = 0, Mandatory,
            HelpMessage = "Enter a Hyper-V virtual machine name",
            ValueFromPipeline, ValueFromPipelinebyPropertyName)]
        [ValidateNotNullOrEmpty()]
        [string]$Name,
        [Parameter(ValueFromPipelinebyPropertyName)]
        [ValidateNotNullorEmpty()]
        [string]$Computername = $env:COMPUTERNAME,
        [switch]$Admin,
        [switch]$FullScreen
    )

    Begin {
        Write-Verbose -Message "Starting $($MyInvocation.Mycommand)"
    } #begin
    Process {
        Write-Verbose "Getting IP address for $Name on $Computername"
        $IPAddress = (Get-VMIPAddress -Name $Name -ComputerName $Computername).IPAddress
        #use the first address found for the virtual machine if more than one
        if ($IPAddress -is [array]) {
            $IPAddress = $IPAddress[0]
        }
        #define a command string which will eventually be turned into a scriptblock
        $cmd = "mstsc -v $IPAddress"
        if ($admin) {
            Write-Verbose "Adding /Admin"
            $cmd += " /Admin"
        }
        if ($FullScreen) {
            Write-Verbose "Adding /f for full screen"
            $cmd += " /f"
        }
        Write-Verbose -Message ("Connecting to {0} [{1}]" -f $Name, $IPAddress)
        #create a scriptblock from the $cmd string
        $sb = [scriptblock]::Create($cmd)
        Invoke-Command -ScriptBlock $sb
    } #process
    End {
        Write-Verbose -Message "Ending $($MyInvocation.Mycommand)"
    } #end

} #end Open-VMRemoteDesktop

Function Open-VMConnect {
    [cmdletbinding()]
    [outputtype("None")]

    Param(
        [Parameter(Position = 0, Mandatory,
            HelpMessage = "Enter a Hyper-V virtual machine name",
            ValueFromPipeline, ValueFromPipelinebyPropertyName)]
        [ValidateNotNullOrEmpty()]
        [string]$Name,
        [Parameter(ValueFromPipelineByPropertyName)]
        [ValidateNotNullorEmpty()]
        [string]$Computername = $env:computername
    )

    Begin {
        Write-Verbose -Message "Starting $($MyInvocation.Mycommand)"
    } #begin
    Process {

        $cmdstring = "vmconnect $computername '$name'"

        $cmd = [scriptblock]::Create($cmdstring)

        Write-Verbose -Message "Connecting to $name on $computername"
        Invoke-Command -ScriptBlock $cmd
    } #process
    End {
        Write-Verbose -Message "Ending $($MyInvocation.Mycommand)"
    } #end

} #end Open-VMConnect

Function Get-VHDSummary {
    Param()

    #get all virtual machines
    $vms = Get-VM

    foreach ($vm in $vms) {
        Write-Host "Getting drive info from $($vm.name)" -foregroundcolor Cyan
        #get the hard drives foreach virtual machine
        $vm.HardDrives | ForEach-Object {
            #a VM might have multiple drives so for each one get the VHD
            $vhd = Get-VHD -path $_.path

            <#
       $_ is the hard drive object so select a few properties and
       include properties from the VHD
      #>
            $_ | Select-Object -property VMName, Path,
            @{Name = "Type"; Expression = {$vhd.VhdType}},
            @{Name = "Format"; Expression = {$vhd.VhdFormat}},
            @{Name = "SizeGB"; Expression = {[math]::Round(($vhd.Size) / 1GB, 2)}},
            @{Name = "FileSizeGB"; Expression = {[math]::Round(($vhd.FileSize) / 1GB, 2)}}
        } #foreach
    } #foreach vm

} #end Get-VHDSummary

Function Get-VMState {
    <#
    this is a proxy function to the Hyper-V Get-VM that
    allows you to retrieve virtual machines by their state,
    i.e. stopped or running. The default is Running
 
    #>
    [CmdletBinding(DefaultParameterSetName = 'Name')]
    [outputtype("Microsoft.HyperV.PowerShell.VirtualMachine")]
    Param(

        [Parameter(ParameterSetName = 'Name', Position = 0, ValueFromPipeline)]
        [Alias('VMName')]
        [ValidateNotNullOrEmpty()]
        [string[]]$Name,

        [Parameter(ParameterSetName = 'Name')]
        [Parameter(ParameterSetName = 'Id')]
        [ValidateNotNullOrEmpty()]
        [CimSession[]]$CimSession,

        [Parameter(ParameterSetName = 'Name')]
        [Parameter(ParameterSetName = 'Id')]
        [ValidateNotNullOrEmpty()]
        [string[]]$ComputerName,

        [Parameter(ParameterSetName = 'Name')]
        [Parameter(ParameterSetName = 'Id')]
        [ValidateNotNullOrEmpty()]
        [pscredential[]]$Credential,

        [Parameter(ParameterSetName = 'Id', Position = 0, ValueFromPipeline, ValueFromPipelineByPropertyName)]
        [ValidateNotNull()]
        [System.Nullable[guid]]$Id,

        [Parameter(ParameterSetName = 'ClusterObject', Mandatory, Position = 0, ValueFromPipeline )]
        [ValidateNotNullOrEmpty()]
        [PSTypeName('Microsoft.FailoverClusters.PowerShell.ClusterObject')]
        [psobject]$ClusterObject,

        [Microsoft.HyperV.PowerShell.VMState]$State = 'Running'
    )

    begin {
        try {
            $outBuffer = $null
            if ($PSBoundParameters.TryGetValue('OutBuffer', [ref]$outBuffer)) {
                $PSBoundParameters['OutBuffer'] = 1
            }
            $wrappedCmd = $ExecutionContext.InvokeCommand.GetCommand('Hyper-V\Get-VM', [System.Management.Automation.CommandTypes]::Cmdlet)
            $PSBoundParameters.Remove('State') | Out-Null
            $scriptCmd = {& $wrappedCmd @PSBoundParameters | Where-Object state -eq $state }
            $steppablePipeline = $scriptCmd.GetSteppablePipeline($myInvocation.CommandOrigin)
            $steppablePipeline.Begin($PSCmdlet)
        }
        catch {
            throw
        }
    }

    process {
        try {
            $steppablePipeline.Process($_)
        }
        catch {
            throw
        }
    }

    end {
        try {
            $steppablePipeline.End()
        }
        catch {
            throw
        }
    }

} #end Get-VMState

Function Get-VMMemorySummary {

    [CmdletBinding(DefaultParameterSetName = 'NamebyComputer')]
    [Outputtype("vmMemorySummary")]

    Param(

        [Parameter(ParameterSetName = 'NamebyComputer', Position = 0, ValueFromPipeline )]
        [Parameter(ParameterSetName = 'NamebySession')]
        [Alias('VMName')]
        [ValidateNotNullOrEmpty()]
        [string[]]$Name,

        [Parameter(ParameterSetName = "VM", ValueFromPipeline)]
        [Microsoft.HyperV.PowerShell.VirtualMachine[]]$VM,

        [Parameter(ParameterSetName = 'NamebySession')]
        [Parameter(ParameterSetName = 'IdbySession')]
        [ValidateNotNullOrEmpty()]
        [CimSession[]]$CimSession,

        [Parameter(ParameterSetName = 'NamebyComputer')]
        [Parameter(ParameterSetName = 'IdbyComputer')]
        [ValidateNotNullOrEmpty()]
        [string[]]$ComputerName,

        [Parameter(ParameterSetName = 'NamebyComputer')]
        [Parameter(ParameterSetName = 'IdbyComputer')]
        [ValidateNotNullOrEmpty()]
        [pscredential[]]$Credential,

        [Parameter(Position = 0, ValueFromPipeline, ValueFromPipelineByPropertyName, ParameterSetName = 'IdbySession')]
        [Parameter(Position = 0, ValueFromPipeline, ValueFromPipelineByPropertyName, ParameterSetName = 'IdbyComputer')]
        [ValidateNotNull()]
        [System.Nullable[guid]]$Id

    )

    Begin {
        Write-Verbose "[$((Get-Date).TimeofDay) BEGIN ] Starting $($myinvocation.mycommand)"

    } #begin

    Process {
        Write-Verbose "[$((Get-Date).TimeofDay) PROCESS] Using parameter set $($pscmdlet.ParameterSetName)"
        Write-Verbose "[$((Get-Date).TimeofDay) PROCESS] Retrieving virtual machines with these parameters"
        $psboundparameters | Out-String | Write-Verbose

        if ($pscmdlet.ParameterSetName -eq 'VM') {
            $vms = $VM
        }
        else {
            Try {
                $vms = Get-VM @psboundparameters
            }
            Catch {
                Throw $_
            }
        }

        #get memory values
        foreach ($vm in $vms) {

            $data = $vm | Get-VMMemory

            #all values are in MB
            [pscustomobject]@{
                PSTypeName   = "vmMemorySummary"
                Name         = $vm.Name
                Dynamic      = $vm.DynamicMemoryEnabled
                Assigned     = $vm.MemoryAssigned / 1MB
                Demand       = $vm.MemoryDemand / 1MB
                Startup      = $vm.MemoryStartup / 1MB
                Minimum      = $vm.MemoryMinimum / 1MB
                Maximum      = $vm.MemoryMaximum / 1MB
                Buffer       = $data.buffer
                Priority     = $data.priority
                Computername = $vm.ComputerName
                Date         = (Get-Date)
            } #custom object
        } #foreach VM

    } #process

    End {
        Write-Verbose "[$((Get-Date).TimeofDay) END ] Ending $($myinvocation.mycommand)"

    } #end
} #end Get-VMMemorySummary

Function Get-VMLastUse {

<#
.Synopsis
Find a virtual machine last use date.
.Description
This command will write a custom object to the pipeline which should indicate
when the virtual machine was last used. The command finds all hard drives that
are associated with a Hyper-V virtual machine and selects the first one. The
assumption is that if the virtual machine is running the hard drive file will
be changed and the first hard drive listed will most likely be the system drive.
The function retrieves the last write time property from the first VHD or VHDX
file to determine how long it has been since the file was last used. If the
virtual machine is currently running the last use time will be 0:00:00.
 
You can pipe a collection of Hyper-V virtual machines or specify a virtual
machine name. Wildcards are supported. The default is to display last use data
for all virtual machines.
 
You can run this on a Hyper-V server or from any domain member that has the
Hyper-V management tools installed, such as a Windows 8 computer. The command
uses PowerShell remoting to retrieve the disk information.
.Parameter Name
The name of a Hyper-V virtual machine or a VM object. You can pipe Get-VM
to this command.
.Parameter Computername
The name of the server to query. The default is the local host. If you pipe
a Get-VM command that queries a remote computer, the computer name will
automatically be used.
.Example
PS C:\> Get-vmlastuse xp*
 
VMName CreationTime LastUse LastUseAge
------ ------------ ------- ----------
XP Lab 3/3/2013 1:05:29 PM 7/14/2013 9:07:19 AM 33.00:57:04.8442216
 
Get last use information for any virtual machine starting with XP.
.Example
PS C>\> get-vmlastuse ubuntu* -computer HV01
 
VMName CreationTime LastUse LastUseAge
------ ------------ ------- ----------
Ubuntu 12 x86 3/3/2013 3:31:55 PM 6/25/2013 8:26:00 AM 52.01:47:42.9022213
 
Get the Ubuntu VM from server HV01.
.Example
PS C:\> get-vm -computer HV01 | where {$_.state -eq 'off'} | get-vmlastuse
 
VMName CreationTime LastUse LastUseAge
------ ------------ ------- ----------
10961A-LON-CL1 3/15/2013 6:08:54 AM 8/13/2013 5:06:02 PM 2.17:02:13.8564362
10961A-LON-DC1 3/15/2013 6:08:09 AM 8/13/2013 3:22:44 PM 2.18:45:32.0323689
10961A-LON-SVR1 3/15/2013 6:09:32 AM 8/13/2013 3:21:36 PM 2.18:46:40.0599579
CHI-APP01 6/5/2013 12:49:28 PM 8/16/2013 8:48:54 AM 01:19:21.9799246
CHI-Client02 3/3/2013 3:31:42 PM 8/3/2013 7:48:14 PM 12.14:20:02.4111888
CHI-DEV01 5/29/2013 4:18:21 PM 8/16/2013 9:32:30 AM 00:35:46.8916567
...
 
Get last use information for any virtual machine that is currently off on a remote
Hyper-V server.
.Example
PS C:\> get-vmlastuse -computer HV01 | Sort LastUseAge | Out-Gridview -title "Last Use Report"
 
Get last use information for all virtual machines on server HV01, sorted by age.
All results will be displayed with Out-Gridview.
.Notes
version 2.0
Brought to you by Altaro http://altaro.com/hyper-v
 
New to PowerShell? Try "Learn PowerShell 3 in a Month of Lunches"
 
****************************************************************
* DO NOT USE IN A PRODUCTION ENVIRONMENT UNTIL YOU HAVE TESTED *
* THOROUGHLY IN A LAB ENVIRONMENT. USE AT YOUR OWN RISK. IF *
* YOU DO NOT UNDERSTAND WHAT THIS SCRIPT DOES OR HOW IT WORKS, *
* DO NOT USE IT OUTSIDE OF A SECURE, TEST SETTING. *
****************************************************************
 
.Inputs
String or Hyper-V Virtual Machine
.Outputs
Custom object
.Link
Get-VM
Get-Item
#>

[cmdletbinding()]
Param (
[Parameter(Position=0,
HelpMessage="Enter a Hyper-V virtual machine name",
ValueFromPipeline,ValueFromPipelinebyPropertyName)]
[ValidateNotNullorEmpty()]
[alias("vm")]
[object]$Name="*",
[Parameter(ValueFromPipelinebyPropertyname)]
[alias("cn")]
[string]$Computername
)

Begin {
    Write-Verbose -Message "Starting $($MyInvocation.Mycommand)"

    #define a hashtable of parameters to splat to Get-VM
    $vmParams = @{
      ErrorAction="Stop"
    }
    #if computername is not the local host add it to the parameter set
    if ($Computername -AND ($Computername -ne $env:COMPUTERNAME)) {
        Write-Verbose "Searching on $computername"
        $vmParams.Add("Computername",$Computername)
        #create a PSSession for Invoke-Command
        Try {
            Write-Verbose "Creating temporary PSSession"
            $tmpSession = New-PSSession -ComputerName $Computername -ErrorAction Stop
        }
        Catch {
            Throw "Failed to create temporary PSSession to $computername."
        }
    }
} #begin

Process {
    if ($name -is [string]) {
        Write-Verbose -Message "Getting virtual machine(s)"
        $vmParams.Add("Name",$name)
        Try {
            $vms = Get-VM @vmParams
        }
        Catch {
            Write-Warning "Failed to find a VM or VMs with a name like $name"
            #bail out
            Return
        }
    }
    elseif ($name -is [Microsoft.HyperV.PowerShell.VirtualMachine] ) {
        #otherwise we'll assume $Name is a virtual machine object
        Write-Verbose "Found one or more virtual machines matching the name"
        $vms = $name
    }
    else {
        #invalid object type
        Write-Error "The input object was invalid."
        #bail out
        return
    }
    foreach ($vm in $vms) {

      #if VM is on a remote machine using PowerShell remoting to get the information
      Write-Verbose "Processing $($vm.name)"
      $sb = {
      param([string]$Path,[string]$vmname)
      Try {
          $diskfile = Get-Item -Path $Path -ErrorAction Stop
          $diskFile | Select-Object @{Name="LastUse";Expression={$diskFile.LastWriteTime}},
          @{Name="LastUseAge";Expression={(Get-Date) - $diskFile.LastWriteTime}}
      }
      Catch {
        Write-Warning "$($vmname): Could not find $path."
       }
      } #end scriptblock

      #get first drive file
      $diskpath= $vm.HardDrives[0].Path

      #only proceed if a hard drive path was found
      if ($diskpath) {
      $icmParam=@{
       ScriptBlock=$sb
       ArgumentList= @($diskpath,$vm.name)
      }
       Write-Verbose "Getting details for $(($icmParam.ArgumentList)[0])"
      if ($vmParams.computername) {
        $icmParam.Add("Session",$tmpSession)
      }

      $details = Invoke-Command @icmParam
      #write a custom object to the pipeline
      $objHash=[ordered]@{
        VMName=$vm.name
        CreationTime=$vm.CreationTime
        LastUse=$details.LastUse
        LastUseAge=$details.LastUseAge
      }

      #if VM is running set the LastUseAge to 0:00:00
      if ($vm.state -eq 'running') {
         $objHash.LastUseAge= New-TimeSpan -hours 0
      }

      #write the object to the pipeline
      New-Object -TypeName PSObject -Property $objHash

      } #if $diskpath
      Else {
            Write-Warning "$($vm.name): No hard drives defined."
      }
     }#foreach
} #process

End {
    #remove temp PSSession if found
    if ($tmpSession) {
        Write-Verbose "Removing temporary PSSession"
        $tmpSession | Remove-PSSession
    }

    Write-Verbose -Message "Ending $($MyInvocation.Mycommand)"
} #end

} #end function

Function New-HyperVHealthReport {

<#
.Synopsis
Create an HTML Hyper-V health report.
.Description
This command will create an HTML-based Hyper-V health report. It is designed
to report on Hyper-V 3.0 servers or even Client Hyper-V on Windows 8. This
script requires the Hyper-V, Storage and NetAdapter modules. It can be run on
the Hyper-V server use PowerShell remoting or you can specify a remote computer
for the report with the -Computername parameter. But the machine you are running
from must have the required modules.
 
Another option is to use PowerShell remoting and run the script on the remote
computer. See examples.
 
The report only shows virtual machine information for any virtual machine that is
not powered off. If you include performance counters, you will only get data on
counters with a value other than 0. Data from resource metering will only be
available for running virtual machines with resource metering enabled.
 
If you don't specify a file name, the command will create a file in your Documents
folder called HyperV-Health.htm.
 
.Parameter Computername
The name of the Hyper-V server. You must have rights to administer the server.
.Parameter RecentCreated
The number of days to check for recently created virtual machines.
.Parameter Hours
The number of hours to check for recent event log entries. The default is 24.
.Parameter LastUsed
The number of days to check for last used virtual machines. The default is 30.
.Parameter Performance
Specify if you do want performance counters in the report.
.Parameter Path
.Parameter Metering
Specify if you do want to include resource metering in the report.
The path and filename for the HTML report.
.Example
PS C:\> New-HVHealthReport -computer HV01
 
Create a report for server HV01 with default values. The report will be saved locally
in the documents folder as HyperV-Health.htm
.Example
PS C:\> New-HVHealthReport -computer HV01 -performance -metering
 
Create a report for server HV01 with default values including performance and
resource meter data. The report will be saved locally in the documents folder
as HyperV-Health.htm.
 
.Link
Get-VM
Get-VHD
Measure-VM
Get-CimInstance
Get-Counter
Get-Eventlog
.Inputs
This command does not accept pipelined input.
.Outputs
an HTML file
.Notes
Version 0.9.5
 
****************************************************************
* DO NOT USE IN A PRODUCTION ENVIRONMENT UNTIL YOU HAVE TESTED *
* THOROUGHLY IN A LAB ENVIRONMENT. USE AT YOUR OWN RISK. IF *
* YOU DO NOT UNDERSTAND WHAT THIS SCRIPT DOES OR HOW IT WORKS, *
* DO NOT USE IT OUTSIDE OF A SECURE, TEST SETTING. *
****************************************************************
#>

[cmdletbinding()]

Param(
[Parameter(Position=0,HelpMessage="The name of the Hyper-V server. You must have rights to administer the server.")]
[ValidateNotNullorEmpty()]
[String]$Computername=$env:computername,
[Parameter(HelpMessage="The path and filename for the HTML report.")]
[ValidateNotNullorEmpty()]
[ValidateScript({
if (Test-Path (Split-Path $_)) {
 $True
 }
 else {
  Throw "Can't validate part of the path $_"
 }
})]
[String]$Path= (
Join-path -path ([environment]::GetFolderPath("mydocuments")) -child "HyperV-Health.htm"
),
[Parameter(HelpMessage="The number of days to check for recently created virtual machines.")]
[ValidateScript({$_ -ge 0})]
[int]$RecentCreated=30,
[Parameter(HelpMessage="The number of days to check for last used virtual machines.")]
[ValidateScript({$_ -ge 0})]
[int]$LastUsed=30,
[Parameter(HelpMessage="The number of hours to check for recent event log entries.")]
[ValidateScript({$_ -ge 0})]
[int]$Hours=24,
[Parameter(HelpMessage="Specify if you do want performance counters in the report.")]
[switch]$Performance,
[Parameter(HelpMessage="Specify if you do want resource metering in the report.")]
[switch]$Metering

)

#region initialize
$reportversion="0.9.5"

Import-Module Hyper-V,Storage,NetAdapter

#parameters for Write-Progress
$progParam=@{
Activity="Hyper-V Health Report: $($computername.ToUpper())"
Status="initializing"
PercentComplete=0
}

Write-Progress @progParam

#initialize a variable for HTML fragments
$fragments=@()
$fragments+="<a href='javascript:toggleAll();' title='Click to toggle all sections'>+/-</a>"

#endregion

#region get server information

$progParam.Status="Getting VM Host"
$progParam.currentOperation=$computername
Write-Progress @progParam

$vmhost = Get-VMHost -ComputerName $computername |
Select @{Name="Name";Expression={$_.name.toUpper()}},
@{Name="Domain";Expression={$_.FullyQualifiedDomainName}},
@{Name="MemGB";Expression={$_.MemoryCapacity/1GB -as [int]}},
@{Name="Max Migrations";Expression={$_.MaximumStorageMigrations}},
@{Name="Numa Spanning";Expression={$_.NumaSpanningEnabled}},
@{Name="IoV";Expression={$_.IoVSupport}},
@{Name="VHD Path";Expression={$_.VirtualHardDiskPath}},
@{Name="VM Path";Expression={$_.VirtualMachinePath}}

$Text="VM Host"
$div=$Text.Replace(" ","_")
$fragments+= "<a href='javascript:toggleDiv(""$div"");' title='click to collapse or expand this section'><h2>$Text</h2></a><div id=""$div"">"
$fragments+= $vmhost | ConvertTo-Html -Fragment
$fragments+="</div>"

$progParam.Status="Getting Server information"
$progParam.currentOperation="Operating System"
Write-Progress @progParam

$os = Get-CimInstance -ClassName Win32_OperatingSystem -ComputerName $computername
$osdetail = $os |
Select @{Name="OS";Expression={$_.caption}},
@{Name="ServicePack";Expression={$_.CSDVersion}},
LastBootUptime,
@{Name="Uptime";Expression={(Get-Date) - $_.LastBootUpTime}}

$Text="Operating System"
$div=$Text.Replace(" ","_")
$fragments+= "<a href='javascript:toggleDiv(""$div"");' title='click to collapse or expand this section'><h2>$Text</h2></a><div id=""$div"">"
$fragments+= $osdetail | Convertto-html -Fragment
$fragments+="</div>"
$progparam.PercentComplete= 5
$progParam.currentOperation="Computer System"
Write-Progress @progParam

$cs = Get-CimInstance -ClassName Win32_ComputerSystem -ComputerName $computername |
Select Manufacturer,Model,@{Name="TotalMemoryGB";Expression={[int]($_.TotalPhysicalMemory/1GB)}},
NumberOfProcessors,NumberOfLogicalProcessors

$Text="Computer System"
$div=$Text.Replace(" ","_")
$fragments+= "<a href='javascript:toggleDiv(""$div"");' title='click to collapse or expand this section'><h2>$Text</h2></a><div id=""$div"">"
$fragments+= $cs | ConvertTo-HTML -Fragment
$fragments+="</div>"
#endregion

#region memory

$text="Memory"
$fragments+= "<a href='javascript:toggleDiv(""$Text"");' title='click to collapse or expand this section'><h2>$Text</h2></a><div id=""$Text"">"

$mem = $os |
Select @{Name="FreeGB";Expression={[math]::Round(($_.FreePhysicalMemory/1MB),2)}},
@{Name="TotalGB";Expression={[math]::Round(($_.TotalVisibleMemorySize/1MB),2)}},
@{Name="Percent Free";Expression={[math]::Round(($_.FreePhysicalMemory/$_.TotalVisibleMemorySize)*100,2)}},
@{Name="FreeVirtualGB";Expression={[math]::Round(($_.FreeVirtualMemory/1MB),2)}},
@{Name="TotalVirtualGB";Expression={[math]::Round(($_.TotalVirtualMemorySize/1MB),2)}}

[xml]$html = $mem | ConvertTo-Html -fragment

#check each row, skipping the TH header row
for ($i=1;$i -le $html.table.tr.count-1;$i++) {
  $class = $html.CreateAttribute("class")
  #check the value of the percent free MB column and assign a class to the row
  if (($html.table.tr[$i].td[2] -as [double]) -le 10) {
    $class.value = "memalert"
    $html.table.tr[$i].ChildNodes[2].Attributes.Append($class) | Out-Null
  }
  elseif (($html.table.tr[$i].td[2] -as [double]) -le 20) {
    $class.value = "memwarn"
    $html.table.tr[$i].ChildNodes[2].Attributes.Append($class) | Out-Null
  }
}

$fragments+= $html.innerXML
$fragments+="</div>"
#endregion

#region network adapters
$progParam.currentOperation="Network Adapters"
$progparam.PercentComplete= 10
Write-Progress @progParam

$Text="Network Adapters"
$div=$Text.Replace(" ","_")
$fragments+= "<a href='javascript:toggleDiv(""$div"");' title='click to collapse or expand this section'><h2>$Text</h2></a><div id=""$div"">"

$fragments+= Get-NetAdapterStatistics -CimSession $computername |
Select Name,
@{Name="RcvdUnicastMB";Expression={[math]::Round(($_.ReceivedUnicastBytes/1MB),2)}},
@{Name="SentUnicastMB";Expression={[math]::Round(($_.SentUnicastBytes/1MB),2)}},
ReceivedUnicastPackets,SentUnicastPackets,
ReceivedDiscardedPackets,OutboundDiscardedPackets | ConvertTo-HTML -Fragment

$fragments+="</div>"
#endregion

#region check disk space

$progParam.Status="Getting Server Details"
$progParam.currentOperation="checking volumes"
$progparam.PercentComplete= 15
Write-Progress @progParam

$vols = Get-Volume -CimSession $computername |
Where drivetype -eq 'fixed' | Sort DriveLetter |
Select @{Name="Drive";Expression={
if ($_.DriveLetter) { $_.driveletter} else {"none"}
}},Path,HealthStatus,
@{Name="SizeGB";Expression={[math]::Round(($_.Size/1gb),2)}},
@{Name="FreeGB";Expression={[math]::Round(($_.SizeRemaining/1gb),4)}},
@{Name="PercentFree";Expression={[math]::Round((($_.SizeRemaining/$_.Size)*100),2)}}

$Text="Volumes"
$div=$Text.Replace(" ","_")
$fragments+= "<a href='javascript:toggleDiv(""$div"");' title='click to collapse or expand this section'><h2>$Text</h2></a><div id=""$div"">"

[xml]$html = $vols | ConvertTo-Html -Fragment

<#
I don't know why, but I can't add attributes to two different nodes
at the same time so we have to go through all the volumes once to
look at health and then a second time to look at percent free space.
#>

#check each row, skipping the TH header row
#add alert class if volume is not healthy
for ($i=1;$i -le $html.table.tr.count-1;$i++) {
  $class = $html.CreateAttribute("class")

  if ($html.table.tr[$i].td[2] -ne "Healthy") {
    $class.value = "alert"
    $html.table.tr[$i].ChildNodes[2].Attributes.Append($class) | Out-Null
  }
  else {
    $class.value = "green"
    $html.table.tr[$i].ChildNodes[2].Attributes.Append($class) | Out-Null
  }

}
#go through rows again and add class depending on % free space
for ($i=1;$i -le $html.table.tr.count-1;$i++) {
  $class = $html.CreateAttribute("class")

  if (($html.table.tr[$i].td[-1] -as [double]) -le 10) {
    $class.value = "memalert"
    $html.table.tr[$i].ChildNodes[5].Attributes.Append($class) | Out-Null
  }
  elseif (($html.table.tr[$i].td[-1] -as [double]) -le 20) {
    $class.value = "memwarn"
    $html.table.tr[$i].ChildNodes[5].Attributes.Append($class) | Out-Null
  }
} #for

$fragments+= $html.innerXML
$fragments+="</div>"
#endregion

#region check services

$progParam.currentOperation="Checking Hyper-V Services"
$progparam.PercentComplete= 20
Write-Progress @progParam

$services = Get-CimInstance win32_service -filter "name like 'vmi%' or name ='vmms'" -ComputerName $computername |
Select Name,Displayname,StartMode,State,Startname

$Text="Services"
$div=$Text.Replace(" ","_")
$fragments+= "<a href='javascript:toggleDiv(""$div"");' title='click to collapse or expand this section'><h2>$Text</h2></a><div id=""$div"">"

[xml]$html= $services | ConvertTo-HTML -Fragment
#find stopped services and add Alert style
for ($i=1;$i -le $html.table.tr.count-1;$i++) {
  $class = $html.CreateAttribute("class")
  #check the value of the State column and assign a class to the row
  if ($html.table.tr[$i].td[3] -eq 'running') {
    $class.value = "green"
    $html.table.tr[$i].Attributes.Append($class) | Out-Null
  }
}
#add the revised html to the fragment
$fragments+= $html.InnerXml
$fragments+="</div>"

#endregion

#region enum VM
$progParam.Status="Getting Virtual Machine information"
$progParam.currentOperation="Enumerating VMs"
$progparam.PercentComplete= 25
Write-Progress @progParam

$Text="Virtual Machines"
$div=$Text.Replace(" ","_")
$fragments+= "<a href='javascript:toggleDiv(""$div"");' title='click to collapse or expand this section'><h2>$Text</h2></a><div id=""$div"">"
Try {
    #get all VMs that are not turned off
    $allVMs = Get-VM -ComputerName $computername -ErrorAction Stop
    $runningVMs= $allVMS | Where State -ne 'off'
    $vmGroup = $runningVMs | sort State,Name | Group-Object -Property State | Sort Count

    #define a set of properties to display for each VM
    $vmProps="Name","Uptime","Status","CPUUsage","MemoryAssigned",
    "MemoryDemand","MemoryStatus","MemoryStartup","MemoryMiniumum",
    "MemoryMaximum","DynamicMemoryEnabled"

    foreach ($item in $vmGroup) {

     [xml]$html= $item.Group | Select $vmProps | ConvertTo-HTML -Fragment

      $caption = $html.CreateElement("caption")
      $html.table.AppendChild($caption) | Out-Null
      $html.table.caption= $item.Name

      for ($i=1;$i -le $html.table.tr.count-1;$i++) {
        $class = $html.CreateAttribute("class")
        #check the value of the MemoryStatus column and assign a class to the row
        if ($html.table.tr[$i].td[6] -eq "Low") {
        $class.value = "memalert"
        $html.table.tr[$i].ChildNodes[6].Attributes.Append($class) | Out-Null
        }
        elseif ($html.table.tr[$i].td[6] -eq "Warning") {
         $class.value = "memwarn"
         $html.table.tr[$i].ChildNodes[6].Attributes.Append($class) | Out-Null
        }

     } #for

      $fragments+= $html.InnerXml
    } #foreach
  } #try
Catch {
    $fragments+="<p style='color:red;'>No virtual machines detected</p>"
}

#region created in the last 30 days
$progParam.currentOperation="Virtual Machines Created in last $RecentCreated Days"
$progparam.PercentComplete= 28
Write-Progress @progParam

if ($allVMs) {
  $recent = $allVMS | where CreationTime -ge (Get-Date).AddDays(-$RecentCreated) |
  Select Name,CreationTime,Notes
  if ($recent) {
    [xml]$html= $recent | ConvertTo-HTML -Fragment
      $caption = $html.CreateElement("caption")
      $html.table.AppendChild($caption) | Out-Null
      $html.table.caption= "Created in last $RecentCreated days"
      $fragments+= $html.InnerXml
  }
  else {
    $fragments+="<table><caption>Created in last $RecentCreated days</caption><tr><td style='color:green'>No virtual machines created recently</td></tr></table>"
  }
}
else {
    $fragments+="<p style='color:red;'>No virtual machines detected</p>"
}

#endregion

#region last use
$progParam.currentOperation="Virtual Machines not used within last $LastUsed Days"
$progparam.PercentComplete= 30
Write-Progress @progParam
$last= New-Timespan -Days $LastUsed
$data = Get-VMLastUse -Computername $Computername | where {$_.lastuseage -gt $last } | sort LastUseAge

if ($data) {
 [xml]$html= $data | ConvertTo-HTML -Fragment
      $caption = $html.CreateElement("caption")
      $html.table.AppendChild($caption) | Out-Null
      $html.table.caption= "Not used in last $lastused days"
      $fragments+= $html.InnerXml

}
else {
 $fragments+="<table><caption>Not used in last $lastused days</caption><tr><td style='color:green'>No unused virtual machines detected for the last $lastused days.</td></tr></table>"
}
#endregion

#region Integrated Services Version
$progParam.currentOperation="Integrated Services Version"
$progparam.PercentComplete= 35
Write-Progress @progParam

if ($runningVMs) {
  $isv = $runningVMS | Sort IntegrationServicesVersion | Select Name,IntegrationServicesVersion

  [xml]$html= $isv | ConvertTo-HTML -Fragment
   $caption = $html.CreateElement("caption")
   $html.table.AppendChild($caption) | Out-Null
   $html.table.caption= "Integration Services Version"
   $fragments+=$html.InnerXml
}
else {
     $fragments+="<p style='color:red;'>No virtual machines detected</p>"
}
#endregion

#endregion

#region VHD Utilization
$progParam.currentOperation="Analyzing Virtual Disks"
$progparam.PercentComplete= 40
Write-Progress @progParam

$fragments+= "<h3>Virtual Disk Detail</h3>"

if ($runningVMs) {
    $progParam.Status="Getting Virtual Disk Detail"
    foreach ($vm in $runningVMs) {
        $progParam.currentOperation=$vm.name
        Write-Progress @progParam
        #get VHD details
        $vhdDetail = foreach ($drive in $vm.harddrives) {
        Try {
        $detail = Get-VHD -ComputerName $computername -path $drive.path -ErrorAction Stop
        $vhdHash=[ordered]@{
          ControllerType= $drive.ControllerType
          ControllerNumber= $drive.ControllerNumber
          ControllerLocation= $drive.ControllerLocation
          VHDFormat= $detail.VHDFormat
          VHDType= $detail.VHDType
          FileSizeMB= [math]::Round(($detail.FileSize/1MB),2)
          SizeMB= [math]::Round(($detail.Size/1MB),2)
          MinSizeMB= [math]::Round(($detail.MinimumSize/1MB),2)
          FragPercent= $detail.FragmentationPercentage
          Path= $drive.path
        }
          New-Object -TypeName PSObject -Property $vhdhash
        } #try
        Catch {
            $fragments+="<p style='color:red'>$($_.Exception.Message)</p>"
        }
    } #foreach drive
     if ($vhdDetail) {
        [xml]$html= $vhdDetail | ConvertTo-HTML -Fragment
        $caption = $html.CreateElement("caption")
          $html.table.AppendChild($caption) | Out-Null
          $html.table.caption= $vm.Name
          $fragments+= $html.InnerXml
    }
 } #foreach vm
}
else {
 $fragments+="<p style='color:red;'>No virtual disk files found</p>"
}

#endregion

#region Resource Metering
if ($Metering) {
$progParam.currentOperation="Gathering Resource Metering Data"
$progparam.PercentComplete= 43
Write-Progress @progParam

#region Resource Pool
$fragments+= "<h3>Resource Pool Metering</h3>"
#turn off error handling. There might be some resource pool data for some
#types
$data = Measure-VMResourcePool -name * -computer $computername -ErrorAction SilentlyContinue |
Select ResourcePoolname,AvgCPU,AvgRam,MinRam,MaxRam,TotalDisk,
 @{Name="NetworkInbound(M)";
 Expression= { ($_.NetworkMeteredTrafficReport |
 where direction -Eq 'inbound' | measure TotalTraffic -sum).Sum
 }},MeteringDuration

if ($data) {
$fragments+= $data | ConvertTo-Html -Fragment
}
else {
$fragments+="<p style='color:red;'>No VM Resource Pool data found</p>"
}
#endregion

#region VM metering

$fragments+= "<h3>VM Resource Metering</h3>"

if ($runningVMs) {
 $data = $runningVMs | where {$_.ResourceMeteringEnabled} |
 foreach {
     Measure-VM -name $_.vmname -ComputerName $computername |
     Select VMName,AvgCPU,AvgRAM,MinRam,MaxRam,TotalDisk,
     @{Name="NetworkInbound(M)";
     Expression= { ($_.NetworkMeteredTrafficReport |
     where direction -Eq 'inbound' | measure TotalTraffic -sum).Sum
     }},
     @{Name="NetworkOutbound(M)";
     Expression= { ($_.NetworkMeteredTrafficReport |
     where direction -Eq 'outbound' | measure TotalTraffic -sum).Sum
     }}, MeteringDuration
 } #foreach
 $fragments+= $data | ConvertTo-Html -Fragment
}
else {
    $fragments+="<p style='color:red;'>No virtual machines detected</p>"
}

#endregion
}
$fragments+="</div>"
#endregion

#region check for recent event log errors and warnings

$progParam.currentOperation="Checking System Event Log"
$progparam.PercentComplete= 60
Write-Progress @progParam

#hashtable of parameters for Get-Eventlog
$logParam=@{
Computername= $Computername
LogName= "System"
EntryType= "Error","Warning"
After= (Get-Date).AddHours(-$Hours)
}
$sysLog = Get-EventLog @logparam
<#
only get errors and warnings from these sources
 vmicheartbeat
 vmickvpexchange
 vmicrdv
 vmicshutdown
 vmictimesync
 vmicvss
#>
$progParam.currentOperation="Checking Application Event log"
$progparam.PercentComplete= 65
Write-Progress @progParam

$logParam.logName="Application"

$appLog = Get-EventLog @logparam -Source vmic*

$Text="Event Logs"
$div=$Text.Replace(" ","_")
$fragments+= "<a href='javascript:toggleDiv(""$div"");' title='click to collapse or expand this section'><h2>$Text</h2></a><div id=""$div"">"

$fragments+= "<h3>System</h3>"

if ($syslog) {
$syslog | Group-Object -Property Source |
Sort Count -Descending | Foreach {

 [xml]$html = $_.Group | Sort TimeWritten -Descending |
 Select TimeWritten,EntryType,InstanceID,Message |
 ConvertTo-Html -Fragment

 $caption = $html.CreateElement("caption")
 $html.table.AppendChild($caption) | Out-Null
 $html.table.caption= $_.Name

 #find errors and add Alert style
  for ($i=1;$i -le $html.table.tr.count-1;$i++) {
  $class = $html.CreateAttribute("class")
  #check the value of the entry type column and assign a class to the row
  if ($html.table.tr[$i].td[1] -eq 'error') {
    $class.value = "alert"
    $html.table.tr[$i].Attributes.Append($class) | Out-Null
  }
 } #for
  #add the revised html to the fragment
  $fragments+= $html.InnerXml
} #foreach
} #if System entries
else {
$fragments+= "<table></caption><tr><td style='color:green'>No relevant system errors or warnings found.</td></tr></table>"
}
$fragments+= "<h3>Application</h3>"
if ($applog) {
    $applog | Group-Object -Property Source |
    Sort Count -Descending | Foreach {
        $fragments+="<h4>$($_.Name)</h4>"
        [xml]$html= $_.Group | Sort TimeWritten -Descending |
        Select TimeWritten,EntryType,InstanceID,Message |
        ConvertTo-Html -Fragment

        $caption = $html.CreateElement("caption")
        $html.table.AppendChild($caption) | Out-Null
        $html.table.caption= $_.Name

        #find errors and add Alert style
        for ($i=1;$i -le $html.table.tr.count-1;$i++) {
          $class = $html.CreateAttribute("class")
          #check the value of the entry type column and assign a class to the row
          if ($html.table.tr[$i].td[1] -eq 'error') {
            $class.value = "alert"
            $html.table.tr[$i].Attributes.Append($class) | Out-Null
          }
         } #for
          #add the revised html to the fragment
          $fragments+= $html.InnerXml
    } #foreach
} #if
else {
  $fragments+= "<table></caption><tr><td style='color:green'>No relevant application errors or warnings found.</td></tr></table>"
}

#region check operational logs
$progParam.currentOperation="Checking operational event logs"
$progparam.PercentComplete= 68
Write-Progress @progParam

$fragments+= "<h3>Operational logs</h3>"

#define a hash table of parameters to splat to Get-WinEvent
$paramHash=@{
ErrorAction="Stop"
ErrorVariable="MyErr"
Computername=$Computername
}

$start = (Get-Date).AddHours(-$hours)

#construct a hash table for the -FilterHashTable parameter in Get-WinEvent
$filter= @{
Logname= "Microsoft-Windows-Hyper-V*"
Level=2,3
StartTime= $start
}

#add it to the parameter hash table
$paramHash.Add("FilterHashTable",$filter)

#search logs for errors and warnings
Try {
    #add a property for each entry that translates the SID into
    #the account name
    #hash table of parameters for Get-WSManInstance
    $script:newHash=@{
     ResourceURI="wmicimv2/win32_SID"
     SelectorSet=$null
     Computername=$Computername
     ErrorAction="Stop"
     ErrorVariable="myErr"
    }
    $oplogs = Get-WinEvent @paramHash  |
    Add-Member -MemberType ScriptProperty -Name Username -Value {
    Try {
        #resolve the SID
        $script:newHash.SelectorSet=@{SID="$($this.userID)"}
        $resolved = Get-WSManInstance @script:newhash
    }
    Catch {
       Write-Warning $myerr.ErrorRecord
    }
    if ($resolved.accountname) {
        #write the resolved name to the pipeline
        "$($Resolved.ReferencedDomainName)\$($Resolved.Accountname)"
    }
    else {
        #re-use the SID
        $this.userID
    }
    } -PassThru

}
Catch {
    Write-Warning $MyErr.errorRecord
}

if ($oplogs) {
 $oplogs | Group-Object -Property Logname |
    Sort Count -Descending | Foreach {
        [xml]$html= $_.Group | Sort TimeCreated -Descending |
        Select TimeCreated,@{Name="EntryType";Expression={$_.levelDisplayname}},
        ID,Username,Message |
        ConvertTo-Html -Fragment

        $caption = $html.CreateElement("caption")
        $html.table.AppendChild($caption) | Out-Null
        $html.table.caption= $_.Name

        #find errors and add Alert style
        for ($i=1;$i -le $html.table.tr.count-1;$i++) {
          $class = $html.CreateAttribute("class")
          #check the value of the entry type column and assign a class to the row
          if ($html.table.tr[$i].td[1] -eq 'error') {
            $class.value = "alert"
            $html.table.tr[$i].Attributes.Append($class) | Out-Null
          }
         } #for
          #add the revised html to the fragment
          $fragments+= $html.InnerXml
    } #foreach

}
else {
 $fragments+= "<table></caption><tr><td style='color:green'>No relevant application errors or warnings found.</td></tr></table>"
}
$fragments+="</div>"
#endregion

#endregion

#region get performance data
if ($Performance) {
$progParam.status="Gathering Performance Data"
$progparam.PercentComplete= 70
$progParam.currentOperation="..System"
Write-Progress @progParam

$Text="Performance"
$div=$Text.Replace(" ","_")
$fragments+= "<a href='javascript:toggleDiv(""$div"");' title='click to collapse or expand this section'><h2>$Text</h2></a><div id=""$div"">"

#system
$ctrs = "\System\Processes","\System\Threads","\System\Processor Queue Length"
$sysCounters = Get-Counter -counter $ctrs -computername $Computername

[xml]$html= $sysCounters | Select -expand CounterSamples |
Select Path,@{Name="Value";Expression={$_.CookedValue}} |
ConvertTo-HTML -Fragment

$caption = $html.CreateElement("caption")
$html.table.AppendChild($caption) | Out-Null
$html.table.caption= "System"
$fragments+=$html.InnerXml

#memory
$progParam.currentOperation="..Memory"
$progparam.PercentComplete= 72
Write-Progress @progParam

$ctrs="\Memory\Page Faults/sec",
"\Memory\% Committed Bytes In Use",
"\Memory\Available MBytes"
$memCounters = Get-Counter -counter $ctrs -computername $Computername

[xml]$html= $memCounters | Select -expand CounterSamples |
Select Path,@{Name="Value";Expression={$_.CookedValue}} |
ConvertTo-HTML -Fragment

$caption = $html.CreateElement("caption")
$html.table.AppendChild($caption) | Out-Null
$html.table.caption= "Memory"
$fragments+=$html.InnerXml

#cpu
$progParam.currentOperation="..Processor"
$progparam.PercentComplete= 75
Write-Progress @progParam

$ctrs="\Processor(*)\% Processor Time"
$procCounters = Get-Counter -counter $ctrs -computername $Computername

[xml]$html= $procCounters | Select -expand CounterSamples |
Select Path,@{Name="Value";Expression={$_.CookedValue}} |
ConvertTo-HTML -Fragment

$caption = $html.CreateElement("caption")
$html.table.AppendChild($caption) | Out-Null
$html.table.caption= "Processor"
$fragments+=$html.InnerXml

#physicaldisk
$progParam.currentOperation="..PhysicalDisk"
$progparam.PercentComplete= 77
Write-Progress @progParam

$ctrs="\PhysicalDisk(*)\Current Disk Queue Length",
"\PhysicalDisk(*)\Avg. Disk Queue Length",
"\PhysicalDisk(*)\Avg. Disk Read Queue Length",
"\PhysicalDisk(*)\Avg. Disk Write Queue Length",
"\PhysicalDisk(*)\% Disk Time",
"\PhysicalDisk(*)\% Disk Read Time",
"\PhysicalDisk(*)\% Disk Write Time"

Try {
    $diskCounters = Get-Counter -counter $ctrs -computername $Computername -ErrorAction Stop
    $data = $diskCounters | Select -ExpandProperty CounterSamples |
Where CookedValue -gt 0
}
Catch {
    $fragments+= "<table><caption>$($counterset.CounterSetName)</caption><tr><td style='color:red'>$($_.Exception.Message)</td></tr></table>"
}

if ($data) {
    #non zero data found
    [xml]$html= $data |
    Select Path,@{Name="Value";Expression={$_.CookedValue}} |
    ConvertTo-HTML -Fragment

    $caption = $html.CreateElement("caption")
    $html.table.AppendChild($caption) | Out-Null
    $html.table.caption= "Physical Disk"
    $fragments+=$html.InnerXml
}
else {
 $fragments+= "<table><caption>$($counterset.CounterSetName)</caption><tr><td style='color:green'>No non-zero values for this counter set.</td></tr></table>"
}
#Hyper-V Perf counters
$progParam.status="Getting Hyper-V Performance Counters"
$progparam.PercentComplete= 80
Write-Progress @progParam

$hvCounters = Get-Counter -ListSet Hyper-V* -ComputerName $computername

$data = foreach ($counterset in $hvcounters) {
    $progParam.currentOperation=$counterset.countersetname
    Write-Progress @progParam

    #create reports for any counter with a value greater than 0
    try {
        $data = Get-Counter -Counter $counterset.counter -Computername $computername -ErrorAction Stop |
        Select -ExpandProperty CounterSamples |
        Where CookedValue -gt 0 |
        Sort Path | Select Path,@{Name="Value";Expression={$_.CookedValue}}
        if ($data) {
            [xml]$html= $data  | ConvertTo-HTML -Fragment
            $caption= $html.CreateElement("caption")
            $html.table.AppendChild($caption) | Out-Null
            $html.table.caption= $counterset.CounterSetName
            $fragments+=$html.InnerXml
        }
        else {
            $fragments+= "<table><caption>$($counterset.CounterSetName)</caption><tr><td style='color:green'>No non-zero values for this counter set.</td></tr></table>"
        }
    } #try
    Catch {
        $fragments+= "<table><caption>$($counterset.CounterSetName)</caption><tr><td style='color:red'>$($_.Exception.Message)</td></tr></table>"
    }
}
$fragments+="</div>"
} #if not $NoPerformance

#endregion

#region create HTML report
$progParam.status="Creating HTML Report"
$progParam.currentOperation=$Path
$progParam.percentcomplete=90
Write-Progress @progParam

$title = "$($os.CSName) Hyper-V Health Report"
$head = @"
<Title>$($Title)</Title>
<style>
h2
{
width:95%;
background-color:#7BA7C7;
font-family:Tahoma;
font-size:12pt;
font-color:Black;
}
caption
{
background-color:#A9A9F5;
text-align:left;
font-weight:bold;
}
body
{
 background-color:#FFFFFF;
 font-family:Tahoma;
 font-size:9pt;
}
td, th
{
 border:1px solid black;
 border-collapse:collapse;
}
th
{
 color:black;
 background-color:#F2F5A9;
}
table, tr, td, th
{
padding: 3px;
margin: 0px;
border-spacing:0;
}
table
{
width:95%;
margin-left:5px;
margin-bottom:20px;
}
tr:nth-child(odd) {background-color: lightgray}
.alert {color:red}
.green {color:green}
.memalert {background-color: red}
.memwarn {background-color: yellow}
a:link { color: black ; text-decoration: underline}
a:visited { color: black ; text-decoration: underline}
a:hover {color:yellow}
</style>
<script type='text/javascript' src='https://ajax.googleapis.com/ajax/libs/jquery/1.4.4/jquery.min.js'>
</script>
<script type='text/javascript'>
function toggleDiv(divId) {
   `$("#"+divId).toggle();
}
function toggleAll() {
    var divs = document.getElementsByTagName('div');
    for (var i = 0; i < divs.length; i++) {
        var div = divs[i];
        `$("#"+div.id).toggle();
    }
}
</script>
<br>
<img src=data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAHsAAAB9CAIAAAAN/Is1AAAACXBIWXMAAAsTAAALEwEAmpwYAAAAIGNIUk0AAHolAACAgwAA+f8AAIDpAAB1MAAA6mAAADqYAAAXb5JfxUYAAD0SSURBVHja7L13mBzVlTZ+zg1VnaZ7kmakkVBOKIAACYExGZEsMEvyGj6SzZrFZs3+HHDCNmvvOuxicHoevPY+xuAPg41NBhNFEEEICaGcGEmj0Ugzo0nd06mq7j3n98cdtYeREGlky99ynoGn1V3VU/XWuSe+5w4yM3wo71UcZvh+TlUH/OIsAAIIArDAQASMGgRIDgAFgAYGRiAABgiBBRiAUBmrhABAYGuFYNRofEYQAhCBwVoqC0ESGCD9N0Ac94D+Pk490DrOAGAJiUFKQDAIEQABKI6YSEpUwAghhAXIZzmbLRe2lXN9UbaHSnmgkISVMeXFY4kxH9HpESIzEmI1BnwJgGTBEitv4E4Q/y6WxwFHPIJQWJSsASBkMECgSAIDak1Fkd0VdrXk2jeavp1+mJdBkOjq4qBIpZwMCxT0R+X+KCpZpoKpNpkGnDSn+qhT0zOOxfToEDQA+MzuFhARESuvDzBuxFagPEgRL2nwgUVkgZB8GQDnINtjWt/Mbttc3rFZFNtjOkpU+56ngyCI5SIISxAWIchDuR9KBSgWOQptyZSN2FUQnVgjpx094sSP1R93st8wwSPtbkEIAQDM7KA/sHjbSAj9/uz4X8GqlBE8SyIA8EUkTWd29Utbli4+ZPMSz5bTSQEZDQkfqjLWSweh8Irt1oRUynOQV6WyLAWiWMbQdFsw/WUZAFvVkqWtHK+Ze+Lhpy+sW3gNEQGAlNIhXkH/APomE0rpHaSIAxCTMYJ0kaKEh9C9+7++GN/0SHUmxolkmKw1yWpZlfG9OFpjg5Is93NYxkIBygUolyHIm6Bkw7AU+eUil0JZNlAIwlLIpRIWizRp4SUTrrg2fthHAiYAk0APrCnJIF4JChiJWAgFLAGAEQAYkQEIQAAIYACGkEFLACAAg4DAGtwhEgAJgACAGXHAlBBFQuiDIFapPL/KumZGiwQgQGoGNj3ttrdTaQSpUCghxIA1AAtsgZmImEgQoSUgA+SErY0iQmvBGLbWEgGBIIQH/+9dTRy78gdHxT0/YuQQOEQvlSQyBIgghQCUwADEQERaCdjzLwBCUIACAKQICCSAEuARAxAICSAIWAALZiJmISQzIALA+zTif43oEBlIEIIAlAxBacta6N3m+wBKg9RCahRKAgoGIgJrwEUgZIEMkmFLYIkIrLXEEBFZRkvstI4RxtSlU0oLkGQDwwWBMeUlohC0VgBABMzACAyAglAQMzNYF0MhIoNFEIAgwLcWmEEoQCSQEUFIELJJae0jqj26TYiCiASKgwjxtzguRAaBVlgETUFp0/JE0K3TEqQEqUApKaUQgpkFkWULxMAW2SITsCUiskAWAMGtH6eZBsAgGoC+QvbwKVMhNJQob9rxCoXhrLFHS7+BrQRmiYgoAGjPqQwg96mfaEEBgDIAEZEFlAKTAqpYBwzELNgCCnAOApEBDw4d32eQgIDIwgrwSn12y+oqHQL4ID2QGqVCpRARmYCsIIvEbBnIAkdAhsEyMzNGli2BdbaAwRJGhiKDanRj1Zixbb1dMT//h8d/vn7d66fMPefshVeNS09VKgEQtxEwCaUBUACFIHBw8sIMzAAIAs1A+sC+YOFeWwtWZwWkJCZQAdNfjCc6U3kw5pxknC0VAnjXm7qzRccEIQqhSUgQCoVARCBntS0QMxlwP+yMOJAFa8FaMJatEYGF0HBgRNlQasoRUD9CZmRXblt774Z+0/nY83e8sW3ZpWd/ZvzYGeNGzBG6GhnYOqVkBmZGYBiwyAgoLCKDUQN+UgCJYpE7dnSu2bZ9w6plLccd87GjZp/mK20okkBS+IhIbAR6ByXiQAKUACQo9axf7ud7oA5BxVkqkAqERJSICJbIWDQWiJDYkkUyYCOwA6AzgSEgi5EFIrSExNKSrJs8nzKZdNpb+sqyXG+PRNC+6S+9ecvvvnjYzHkfmXfG9PFHj0iNT6gaBTEEyVBElABCgABwNt0QGKN0xLkAevoKW1q73tjeuWpL64qtrc1vLqqbPXMuSEOglVJRWJCejyjx/ab5Bx5xiQOrzxZ7WjaPigIjhFI+SAFCghAscCDIsURkkYiJkBmZiHlAxwkQB4IEAMHAIASiEEo0TTlKxuIW8ls3rUmIZCnKZ6rjBoteE2/oXrz96SUja8ZNHXP0oWOPG103Jx1rSnmeEJ5ABYBENjKlyJStDbaWF3f3N/cW13UV1u3OtRbLJiAtMjJT442bNEahCMIo7kml1J48g/EgRJyZMVLsBWXl+zvb4tteSFYVCt6YmEgojKH2rO+hRogsmhCsYQJhChQV0JTREEVsWRrkMlgALABQBEDUb2yMoJSzPGuOGje+JjOup/Bca9/iXF+Hr1KByLEHCQLlg/KjHLy5smPLhr7747GqmBdvqJ4RiyV8PyYECiCGIIz6y0Eh8Fv6ww4Rx4K1gbUA6IWp7s25qSPnj6ufumtHm1YJVVvteR8UsQOv4wIZfATIbd8ggxwpLaWvEAABULpKCBGhdapNwMxMLqxjFwYzEGCpzMYASmmj0ANgC6FUY6ZOTaUSsTiu37qtN5sjIqWAGUAMrAkhUEqWCoRkFBGg3NW71PdisVhCax3zlecD6AhFGcEqLQ0ZZrYhUMQcYbHf1o4etbNtd67PjBo5TkpNxEIAEb3P/Of9edt3mQQNvBBAAJLLhfWvJMKc9eJCxAABULBAEAjETJZNxNaQjdhGbO0e881kwTCQZUPADCQxsuwRRCGV48mGmbNiKV/q4qbmNblsnhGEJBYg1QDiKEEpIT0UmlAYxnIsKb24kB5Lj9GzoC0rAzpitFIiGybD1gIZCPI2zMP0qUcV+g2TTCaqXCD7AStlYvjNyKCrYWbrllKpy25ZlsKy9ROMGphBaZTKHYyW0BqkCCgEa9AYtuRicQIkKwwJkAAWwogtoSJRDEA0NCbGTfRiWAh3bt+xMbQgFIA0UgoUTsGFkCAkux8UhjEi9gl8Rg+ETxgz7IVWlEJkiJjZWmsilgzCqP4uk/ZHHjJ6KlmZSqVjsZjzKAcX4vuoHRJLAOh4U/dskUKw8hARpGatQWlEicRoDZJFcoEKuQxoT+7DxECAEQNEGESWlAoi7rdQPWmaahhTlY7t7Nqwc/cWJgAEUFZ5GgCEQhaMyCwYgBAZpEvciyCKQgZCh9qPUJfRK6MXAJBlIkKKQIHmQPd1hOMaD0/G66OIk8mk9qQ1/MERG2bEhyg4MyOyCovlza/FghzouJRaSAK/CpRmKRjBqTMQIRm0IZAVxGwJCZxORRaNhZDQnUBKFUIua69h2qE6VZdIes3bXu/NdYQREIKQRijJAoQEKQElICIIZAREKVD5Gj0FKAjQWhsYG4QmNBSQYCYkq9hINjIocpBT08fP19oDgHhcCwHaQ/GBy8AHXMeVICjvzq57LSaZdEoJicKASrISgMLVrcAaYDvwQ4atGahfERhiazmyTIzKABCWiEoIuq6+YfJ0L1YdmMLG5uVh1G8YtAYQzGylRiFYSHCVMgSJoAVqlDGFcYUxT8QVxgTGgDWSRog5t2ECQlJhiYJ+9kT11HFHGGM8TyVTMQDjMqiDHXFgC0G2uHNLTHvkxaWQKCygz4CMwIzWWiYCYiAml3MyAzs7DkRs2VWyyIbGhFEpjFirVH199chRMT/Z3dfVtmsLCpACtY8owFqrlHI1EDlQnZSIAlEKoZgMg0GwAiyTYRsaWzZR2RhjLRtDzCIq26BsEn51Q+3Ycrkcj/vxmAaw1g5DZXvYEDcDvVYC5wA5EsKiMP3Cx7WL0v3bQEspbEkkiqoBvG6hUbBVQdkPA2FCsASE2mowIAEJOAAwEkgCIxGQtKlcPEE+xsuUDdk/6oRidWN9bWZz1+/yhUIxB/GYAKmsAFZGsUUFiIwMElCikFIIhaxISC1QAypEgcgorMRQiqKFsrGodCKXK2lZ3b4tPnvKGYgyjArpdDVAHMBHZFcx/CBNhWGLx/eUwwUAAzIgMLCxkBBQam3TZQLfR1ZxjoUiDRD1x5QkAGRkFIBIIQWFKMrHCv2SSUUcM4IjLhsZGQqIolLBWEFABoBVbOzEKYlEAkW0ZdvWfD7vUCBmrVF5LKVEpAGTgoiIlRfutZCAiFQJQhmJIAxDilApKPQGJsKJE6ZKKZVSnjdQP6m0lj5IrDKMiDMCVholDGCYLAJmm7u2rRwBeYgr8CPQkZCmjDYdJoEJwtAWylAgLLMIZZxirHJEGFouE5WsCELmSGmDLKOQmC2GwLp25KixE72YyuXbt2x5sxgUtS9BMoMVApQSjIQSUIIQA6bciUIhhEQphBBON5gtMxsi1/ExAWv2u3uilD96/LhJJozi8XgikagEvkT0AVt6w2ZV0DUJEFAKRrAAgEJLbbo3R327Yqk4aDQcAlildSyTAS6BLYEtCyJGsigixjIxhsChiYhKGsoehZoMExtCRGMotJy3onHqbFVdn8rEdnVt6OjexWA8TyklhQKQCAIILUpEhSgFSBDyL2oOAge8KRgCw0wWmBmtQQRtAgOh199lJh8yOxmrKQfFZDIZj8eHsTc5fDqODIBEMGDpDCklAKi4caXO5yGWMsZHzweRBKMhioEfQUhBEEUKsCotU1VhUFUulmIiDaUs5nd7UQgGLHFZQKiBi8wAkYUcqZmz5kReLJn0Nra8nM/3GyItrZAstEBlUaPWEiSBECwYUaD7DxFRAgtEJARw5cqBIJbDgE1oyYAtYr4HZsyfj9YDCFOpVIWU8QEt+IHpczq6EjsuEJtyMdz4dMJ0gMpYP66SGcOitbM7tyvY0S9RalA+YwyEEkICZIAslFsSJc4EUBeVYlHkh1E+CEzIJgQSKgTAdH31pEO5qiqE7Lptr5TDEiEwMiMJKQZ6yRJQIoiBF4goUApAiUIIwYgAZNkwWEACAEvALGxAHsa7+422NYeMnBkG4Ps6mUy+Y8vlb4W4ABAD18OkJAKHuc5W27utqi4RxjJr896OXd1ljqvacXWNU/Sso1JVNanqGhVLMAoiAmJmC8GuUkd7b8uWrpat2Nmqoi6l+uMy7CmFpYhKIYycPtUf2ZRoqN/Rt7S9b2NoI6VBSkRXx5UAAlCwECAVDjjPPWZcCIFKC4EAlpkMGyKyTNZaJsXMbCjXFYxtmlObHkklkcrEKyZloCBx8CDOzHtK2ABsAQ2YMNe9u31nsS+IcooL4+Y0Hjaz5pBpkD4EQASetdaWiYGFUFIrAdZYEyk1w586w5txkg27ox2bSmteDtcts7taEvF0Lt8fkp04fqJIVOlkvHnlpt5Ce2TA90EpYaWVUiiFWqPUAJIYseIzK4GKlFIIgIFmHsMAWYDDwDBjUI76+uCIWdMSfqZYMolETAhhjKmQYQ4ixJEtk7QSBPQC+cAJgFhqzAx7+hVhvKm2elpDalQg/H4GBsmobWCFkAzCAtgII5TJZDIR9xrjWdRevhwEQT2lDsExR+TnbGpe/7pd/ji0lUy/TUyfmqyu09GmHTueyoWhtT7qWEiB9jRIAGQUHhnhYb9CAiYEEIgoXMGWBAOitoIiCkPOExmygkwcqGxD5jBd6itOGjc/DI32qLq6mpkrXYhhoXoNn1URjOzCxBgKtFFBxlS6vua4C/+/ns58ew/1lEShDOVIWZMwoe7ul8ZCObDlki2GbCJLGACG9VWF+jqaMD41bXKyvomgNCJsPKRxzLH9o6c1L1+CpWjUlBMi47OFju0dtpd8L1BgkYxCcAwfhMjz9+SaUg554Um2tki2DBhqBdayQQLi0DBZb/fO8tiGQw9pnGRDIwASqeTwlz2Gr51JjGwMSRU3VCJZZEiUIZmzsfWdyc3NXbmCsSz9RDzmJwR5Ji7KIZUtB560iJGAcgBRYFs7MrwhsM90JfzNxx6ZPuOUiWObqlNNpeSY8zOzjyl1l/KQbqrzdnStbevcHpVA+KCE9WLK06iEFYo8BVIYAIUggHHwD4JQIJilABAAEdkgiMJAGKsMgsRE147c0eNm1sYaggImM1VSKuCDFnH0GCJfeUDAIKRObOmwazcUXl6ZzfeHSsarq0dUZZSKSeGLsBxG5bIJmUIEoyV7kgAtsYmkgmIAITd1d9S8+Ye2x/68+MTjqy48b079yHhNOiF2tZe6C1U15eXLnmnra6M4pFMAEoxlxYqFQm0tWCbwhcBBdrxizS34hJFhbUCwVKDIIpcNMUAUWEWp6ePmQBnI2OpMVUSo8aBFHCQiAVAQMAORTN5z37LXVniZETOVxExGCMXAZWAW1kMrFCQtgkUmQLLAFpAZADwIy1RiIwCFUHU7O+Cu33Y9/uirn/rM1NNPrhkxZlRNfWhMUZtqDlLWBBFEMV95cRWJ0JBNSK1iGjUKwc6SSCkHv4hURGiJo9CWQluIiCMLkYUqrbe29SfU2AnjptjIeFJX19aAEDDcvMxhyzmtBSaX6kexeDzbDxvf9EOYatF6MRH3wZfoC+WhFhbQQpEgIAgYSwBF4BKYEkSRMLmCQRv3yNNhKExeSlm0tZtaq77wuWd//KNFDEkVy8RE0yWnffmG//OTqfXHmLIu59ka9DwRSwDqyHLZQmlImf4vyYsqGciFJku2rABioD1K6CjVtVEWd8bGN86oy4wITaTiGhEjaw9eOy4VAQgilMISwOq1YU/Oj9XFhNerPIlCSoSYp7UAYxwBBRiAyVXFka0iI20k/KQo9oelIGQQwDIKrRS+FBCVMhz4YUglm63yExKrTpz/yZFNR/7+0Vs2Nr/ev7O1pkkkkzEUZeQo6SeZUQglhJJSS6ndCyGUBBBW+JxKqCobcdeuoP3NUtcuYzrqxtRNnzvrNJSJSERV1RkhUYMcdh0fRqsSWSsECu2pkGzzll2GPUDw/Iz0BAoCZaVGBrYWAT1lQ2sIDSgriRUzukp4d84zNipj0cioZG1khCBNxbyndhx71AItQ+NFu/NrM8aLp6aOGTvns//n1jfWPr9szUPrtz3Tmt1R0whVdR4p7WeEK/tprbXWnud5nqeUwsijAuT6crs7unduy2d3QkZPnlQ/+9h/WDiyfnQmNaLQb0DIeCppB/hD8iBF3IAvJWAZwOvNmZEvrY9DrKZahppRA8U0xDUKoSxDxBQxG+sZ4ghsIERkMWQoWQ4NSCQql3XBh0hLkTUiiqy0gkaO8KCup6NP1ia2LL7vS/m+3vnHXTjjyGuSVaOPm3PO5HFHbWu/dEvr8uaWJZ2b1+ZsLyfZT9hETRCrslKHkSkGRQwDoM5sVBYS6qQ9fGbDYTPPnF9XM7qqKsOyWOquzXWrWDyoH1lbk4kbLilM4MHjOYe27V1NRRMI3doWFPqNVKi1ktKKPVXTCu+PiIklDzBSgIiJ2HV2rbXWWkRBjGFgmBQbW+rvnXHs6JE1I6tjiZ1bNvZ1tHR3tD2d+9WqFatOO+Of60ZMGj96TEPt6PFNcw+bfl5vdnuh1JXdub5QzvXmdhd35xgo6SfqY1W+jlfNmlyTbKirakqK+pQXV1gul7sh31NQ2aaRE6pS9fEkKe0DaiTLDCgOVjuOQMgSZMDgr12XK5VkvEZKiUqyJ6VWKCUCDNAH7QDErndMRNJaJiIyTESGrGuBhgEjaTYhmb5pMxpjwsRFeefWFVjOVikI+9u76YkH7l43Y+bx02edUdN45PiR48c11PRkp/flsjj2lCgKSmEQ2RCBlWsvM1io8VSIYZ+2u2XQFpY2lIvby6XejZ0jF551WE0mhh5FrCIDWnlwAOZHhrMjAQDAURnTazd2A9ZpxQIcLQWUQqlgoJxBwhEiXGGaB3TctZQZXaOT2Bhi0mAkheWaGp55VDyeiAD7ens3hEEeWaR8LWTZo+atG3e0bf9zzYgJh4w/qqlpbl16St2YEUakLMXCwAuC0ERlNiU2ebKhjDaBbcuXVwvaHkVbybTHmLM9ha2bDkv+g0VNDIDoelkCDIA+mBFnsMjtfdC83Uo/qaXRSijJSrLSA6EtETAiMDABE1pGZmBCNkQEbMFay8yRMcZaIVQQmLDcNXOGl27AWFJk+9f35N4sW5AMvkwCR74kJUoaSqZvV+vqJTvWplOJhurqJp0e53sJ7aUlSA9IcElAEWzJRBuk6kl5vQLC/qAQWDBRur/DGzduXKKuLiqVijbyE7XCNRLxINZxMiwECIxt2lruyXmJGlSKtKe0NFIJJUEIIMtkgQksgGEgQGYkYnbmxTAbCgNDBMYYZkYQYVAA6p8+bURVVdWI2rrm9Wvy/Z0oQGoEGQGSEKAlxkjELCaU8HReQVYUNpcLCPGMiKVBaq3A1xTTIUoD3A+2QAYwqiqFaBjykerNQdPM2YXecHtbT6o2XudnpJDGhkp6w474sPkFIRRYIPBXru4MMak88BQoSUoLLVBKEAhEFNGeCQhnwS0zoaOm2IGRKjKRJSIDJjIhmSiRoFkzR1THlOZy6+alUSGPkfI9QizHPGEAUGghY8AekEQr3VNMxjkRM3G/HIuXY7GyFyujKhBnQcUBNRgZRIDCNwJ6iuVsxBxrenN7X18uyFRVJzypB1hEB5OODyldCiEgtKzklm27pd+gNCglAUhKFGLPPD0zM5AFGjDoaNkS4cAMEDMRAAgisMBEFIYhAGXS3rjxtTGZNfli966NMcCykcCGKdJCgRQWyGIBNYgYsJKg48pLeiR0FAPUyEr6UgICB4KLUZSTKiIfIlsMDfSHIpvPsGisHTmZbDwel8lElTWhVEII5ANgV4ZBxx0dGSxEsXB9G+3eMSajPaWyDAp1oMjGY0IIKAc2JGZAa8lGwITWAoBiEiayxhi21phQllBYjIwIA6MIbNHMOnRS/ehS3YiRzW2PhGGuUGSV8iJW2gMVkY/WB/KEVAKZAJGViEAUyCsZVQAd6JiVOgQugO0HKik0wFgOISxLDlBzbFd3vmb09JQYHQTdqQxJrQAlgELw4QAMu4r3BfG+qg1kAXjjpp6SQRkTWsdiHsRVTEopxVueDTtvycCErpFOg8QYYw0IkMTGWguYnTxNay+QGHZ3txaLRSGQIUBBEhGRKl3jwa0eCQMdskELkQaVgJgIpBIRcakM2T47cvRkIpJSOqLEEPbk3x5xRLmP6+DQAK5YnY1ETCcAQWsJPihP456RG2RCR94cFImTtWytHaDREjBYY4gss7EU2erqcMbhnq8ijjp3tW3I5/ul1AyhQBJCoQCFINygEToyitjDexuYzh0YT2YGtgDkbJe1YDkMifIFVY4yo0bNtNZqrdPpNLx1xP/g8JwM+7Bv0vbmaWsLykSahZEgFJInQMuB1gwQghVM0hAQVNIf3gP6wA+ANYbYMFhlSnbi+MzoJqqKJfp7N/d2b4siEEIoCVoCMgjtPAQ70AVChZcihJBiD2/CEdnZAhggBpaGoBgRgbe7V1TXzlCJJmOM53lDOvdwALaxEO/Xbe5dPNSbmotdWV/FgMHENfiSpAIlEQGI3FoemDLZY1j+MlhVsSqWImuttUyRjILizBkNcc/Wp2t3t60ISj1CACAqCUoCM0vpJpEBkREZEVHwICPjQGcAQleWIstgTSSYIbJgwd/VQU2HHGlkmpnj8fhfYZOW92fH91nJ0qvWhhElhQbJ5GuQSrC0WrIAN/TqRmQHQkOXDZEFR122lqxlshCGITKQjWxIyUT50BlVMYm+T+2tr1NYUmqAGaERJBJIEAhSkMABTZcoEFEOWBUY4GEBMFsEy2CJbBQSkUIBhZLI5v0RTdMNKillKpU6EIZ7WOz4Pt7sLtsNG4xOJDwFCRXz0SglUJMQKBCAKursgj8HtytjUSUSt9ZagwBgbWiiYPQ4GD+Zq1Iq37uhu3MjhQGilBIVADIoJYDlHmYhSOEGDv/SYHNju4gMSIDEzOBmcq1i61mrurtLVZkxqczIEMD3fYf4gd4W531ZlX1dya7dPW1tked7WkFMCyGMUqATSu6h/w6Mse2pFzLD4BDF6T4RA0tEtKZsbTjmEK++0STior1zdbnQY0LLjCAFMwKAVAgoEZ1JQUcEckBXBAAEomAXXxGzJQYhpCGMQu7NBg0NYz0/GZrA87x4PA4HXt5/dOjoqAxkuMwiWLe+GoVJAcQRUOasZPYBZShSItIQ+RZT1ksZP24SPlRpMJ61viDAMEJjGMGCKFjoLoNfLBcUJK3decQxY8tlUV2t2ltXFcJIedr32JOBkiwAJEcSwhiAxyiRQSC6qXOFQgAIFgolCiACtgKIwFiwxoCJikyFIoitfbGa8ScaTMYxX11dbQf12NwuOQfCyKj3ZVUkAAjhqoVCiTgDr9y8NVTajwOBScTitQmtIyh25jraKNffm811R1GAiEw6DDgoG103XslYzM8k2LOEYdlSGNegAmspCqP+0ugmf8I4ry6FXMi1b18bRRGR0cKpLUgJSgkthRD0F5pbRc2FGojNBTuLtmd9gSVkFoaoUFBC1FSlm4BjiFEsFhtMD6+YlGG3LR+kkmUqe/B0dvRvb5N+si4eBwqDnZs71rbstEEuliw31WFtbXrKoTXpTK1U6Kw2EbTssi2tm9u35CxXebFGD+uCwC9miZk89AvFXROP9EePimrSKte9Lbd7s4kCKdw0PSGikrCn0QGVuFsI6eBGRKU8IRxF3NkT19QDG+mIjSHd2U3p9JR01SGh0dqPJxIJRw8/0NtsfRDE2dhQyZi1sKN1d74t1l/avX39SoE7Zk/MnHzcyOmTJ9aPxIRf1FoKaY0tG1t2+QWCnEsCcGJ/QWzY1Lfk1R2bm1tMNCKTHLGrOxJhUmmcPqPO86JEUmxes9KaPDNJqZQEgSSBJQAyAwMioBhgGA4lqCACEINhiJitq8Uzg7FkQLXvDhsnz0aVtKGpTqWGl+p2oKq1e7YBA621V1w8a+yoSYfWTpk6d9wID6ICip0Bd0dRdVhmaw0AuSYvgI1MFNOd5cAm/PjRc0ceeeTcHTt48eLmJa88K9WMnnZbk7HTZzdKWZbKbGl7LYgigaAlSolC2IEBWQQ5MNKy5/+IbicLRBQgAQgoBAiQzQBRzwpCGzIUI8wW40eOPbxoQhQ6na4FAGttxbAcuHDlgyCOQii3S8nESaPv/J9P5MvFzt6dxWJnqS9Qwktm0kqOiqVrtNa+72vtSyndwgcWvigR2ZCjIDTlKKyp0U1No044IX7XfbmV/Z2HjC2NHCETOt6f29Tbt8laFADIJFEIBCXAWRgpUQjeU5t0saAzChJAgKvAs0E0zJYtWAOWyRJ09UEsMSlTN76vVK6qklXJpItNB0+cuCzfGFNR/7854qpSokpVSQxgd09fFIaj6kfXZdJaeqDjrNEbiA7/EsUzMAAIkxAaFEIiQcaGiNhUryeN8Q+ZOH7FsTviXqGpJmqqz+zYtqaUb4UgED4ICciEiFqiECQApDPfg4ZO3mJVeGAbNzfs41JZa4Ql2dnJjaOOBFEDysTjcS3igG/ZFq+i3cML9wdC3FoWEgHIUIDILOTIQ0Y2QpNWqICAgREjABzYHswtfCQO3eZ3rGKWLBIIZIkKUUjtx1KxTG12dCZTyHJP5/YqPWPn9tW2nFMEzpIAgARGFLgn9RX74hcOTM0iuk2e3AYBZNkatkYAJHp6ytMnTA2NLz3p+3FkDTiQ+xy8dtz15gGEFnEAAA3CWgASLAAFAwOzh8jMQmAUGSk1EQnhMTMCMrNEATi4OMagpaTq2mpRnRlZVVMfYg5UXXsulUzlM1qhRKkFSwpspDQqT1lkVgYFSSEkoAYlEZRk7ZNlC8iCAC0CS2IZARUBPR017wxITa4+ZCLpCAgXPf1sdnevjOv58+fPnTvXGXQp5UFoVfbdFRqiI26C2M0YVDKL/UVgGCpPA6vqTL3S8WOPudBD+fLih8rBGiGk9KSnQDIIZgXsSykEolAoPBSShGRQljUaFdOSjbGmICAPEhiUVUgKtu5SW3aCSjRVpxtLIFPx2Lhx49pYLl3x2sSJE6Mo8jzPXa0QIooirYe5mT+ce3oOXpJDtpp0WvO2gf1gPeI+YoWYjAwCkaciEKWNr7/y0rM/yua2KbGzoT6qS1NckCalwPN81Ap8H2Oe8LXSvqf9pFKe1BGZHEBRSC4b1dFlm1tLuzrsjt5MKnPY+EkLJ04/LVuyY8eOralO24hCE2QyGafabgzlAAXm+Lfd8b0ykDroabG1JUQPhQKGUtEm4rKYLe1oWdG2442Wlmd7u17T3NZYgyPrq6pisYxX0pp9TZ5H2kOtfCE9EF4gZRTZXH/Qtivf0hru7k2AHBuLj26YMW/0yJlVqYm9WSbmqdMmVldXO6AdcaOybc0+tOH/AcTf+ZEwIIK1UAwK+Wx3f0977+6t7a3LezpXhOUWhmxjuqQ1+76NeawkEmNkwVrc2e3n86ZY1n5sbN2IWfWjDq+pn5ZMjgjjIiwBGG1CW1ebGTt+tNbakEUGrbXb63I/kTgzR1HEzO7ggwXx3t7ejRs3TpgwobGxcXjsFXAIAYEM8qa3s7fQ18WmNwo7+/s7Onu2RmExLPebqAxsUQoUWqCqrh6fStZWVY9MpEYwJg0oQA1ClSKLhNXJqqpUorqmKpmMAxAKhW9dc/uUTZs23XvvvcuXLy8UCpdddtmll176PsyOGrzAX3jhhW3btgHARz/60cmTJ7+LANE+9thj3d3dyWTy5JNPrq+vB4ByufyNb3zjtttuO+ecc+64446ampphWImAyFKj8FJ+JtVUKtb254rZbD/Giqkmi8RI1g1vAoBhY5kkCle+CoAZUAgBSMzhhJGHVKWTsZinlEJkADCGlCC3M8tgRa5sgODkueeeu/rqq5ubm10QWVtbe/7557tO9PtEPIqiH/7wh48//jgAXHHFFbfddts71otffvnliy66KAiCmpqaBx988Pjjj3cK/sorrwDASy+91NXVNSyIA4BHmhgQiUXgJzCeSNc0ZILA9ud2RIGJSqEJDVkCJCUYwYaktSelFlKBp2NVyaqqRCbmxdBEoJDIAHJorJRaSslgrSGlVCXcGgJ3T0/PV77ylebm5qOPPvrzn/98qVSqqamp2HfnAN6tua90CYIgOPvss92b8Xj81Vdf5XeSf/zHf3TH19XVLV68eE+3gX73u9+ddNJJP/7xj4Mg4GESInKq517s4QFYZg7D0H1UKpWKxWIulyuVSkEQhGHoPnKnON9YOTEIAve++5L9yz333BOLxTzPq9ymk/b29htvvPGyyy5rbm5+lzfyFsQXLlxYcRpf+tKXHPnv7WT58uV1dXUVxF988cXKR8aYbDbr7nYYEXfX4xyXe22Mcf+sAFcBd/DDds/JQVz5nsGf7v9OmfkHP/gBAEyfPr1cLg9+//777weASZMmrV69+l3eiBgSq3meN23atHg8/tvf/ratrW0/i+M3v/lNd3f3hAkTUqlUpWOyJx2V6XR6eHMHN+BdKXS4127HmYFu1lt3IhxsFpy58DyvMij+FsM6KEHbf3K3d7Pf/XPwrjcVJEulUhRF75xzhmE4b968VCq1bNmyu++++ytf+crbee3HHnsMAM4999zbbrttCLjlcrlYLMbj8X16gp6enq6urkKhIIRIp9OjRo2KxWLuKvP5PDMnk0mlVKlUamlpkVKOGzdu8P0UCoWOjo58Pm+MSSQSDQ0NtbW1+7zIQqHQ1taWz+eVUjU1NaNGjdrb1BaLxfb29v7+fiJKJBIjRowY/G3MXCwWk8lkqVRyrq6/v19rXQG6UCi4Ky8UCsaYfD6fSqWiKHrkkUeam5sbGxsXLlw4YsSIt7XjH/vYxwDg3//932+66Sa3iPr7+/e5NL773e8CwIknnvjwww8PsSpRFN12223HHnvs3nZ8x44dt95664IFC1xUI4SYOHHipz/96fb2dmZ+8803P/WpT51++umbNm1avXr1eeedV1tb29TU9Nprr7nTi8Xi73//+wsvvPCQQw5x91xTU3Pqqaf+/Oc/z2azQ67wscceu+CCC9zdep43c+bMn/zkJ4MPCMPw7rvvvvjii8eOHevWR319/YIFC2677bbe3l53TLlc/ta3vnX22WcfeuihAJBOpxcuXHjWWWddfvnlV1111cc//nFXh0kkEieffPI//MM/nHHGGffff//69etvuumm888//9/+7d+eeOKJIX5i34i3traOHj0aAH71q1/tDff27dvnzZsHAH/4wx9efvnlIYgHQfCZz3wGAC655JJCoVA5a/Xq1SeffLJ7zKNGjTrppJPmzZvn+77W+qWXXmLmJUuWjBkzBgB+8YtfHHnkkRUD8uijjzJzLpe77rrrnLJnMpmPfOQjxx13XEUfP/7xj7vH5uSuu+6qrq4GgNra2pNPPnn27NkAcMQRR1QO6Onpufrqq91jS6fTxxxzzPHHH19xS5dccsnu3buZOZ/Pn3HGGXuvnlGjRjU1Ne1zYf3gBz9Yvnz5r3/96yuuuOLOO+985JFHhvizfSB+ww03MPNll10GAMcff3zFNVXkl7/8JQBMnjy5u7v72WefHYJ4GIaf+9znAODKK68slUoV7XaxY319/U9/+tPNmzfv3r17165dr7zyyg033PDGG28w87Jly8aNG+cc0ZgxY/74xz+uW7fu8ccf37Fjh7X2G9/4hrulf/3Xf129enVHR0dHR8fmzZu/+tWv+r4PAP/0T//kfld3d7dTyXPPPXfz5s1dXV07dux45JFHfvazn1U85L/8y7+4J/qlL31p3bp17e3tnZ2d69at+9rXvuYe8/XXX++Q2rRp0/r166+77joAmDp16pIlS5YtW7Zy5crVq1evWLHi5ptvBoBx48b96U9/Wrt27ZIlS3bv3t3W1vbDH/7w5ptvvummm9ytvQPiX/ziF5n5ueee01pXVVU98MADg0/o6upasGCBWwrM/OSTT74bxJ2ZSiQSDz300JArCMPQPdRly5aNHz/eHfbMM88MiYtcrvGlL31p72Duy1/+slPnF154gZlffPHF+vp6rfVTTz01JCZxkczTTz/tzNrXvva1SmxTCXic60okEkuXLq28/8Mf/hAA5syZM8ROPvLIIwBw6KGHbt68eXBY1d7evmrVqpaWlr2v9m0z2hNPPPG0007r7+//05/+NPj9pUuXPvXUU42Njeeff/5gXsd+pK2t7cEHHwSAz372s5WQvyJa6yEO7bzzzjvllFMGv/Pggw8Wi8XZs2d/5jOf2TsL//znPz969Oienh7nzF2PIoqiTZs2DYlJnBl57LHHurq6JkyY8IUvfGHvuYPLL798ypQpxWJx0aJFQ+gre1dEwjB01a7BYQkiNjY2zp49u+Ih3i1D6JprrgGARYsWuRzSefbbb78dAC666KLp06e/y8CupaVlxYoViPixj33sHeMwAHBraLBvf/XVVwHgyCOPnDJlyt7HjxkzxvmVdevWAcDhhx/ujOy3v/3tX/7yl93d3UOCk/Xr17vfUjHcg2XSpElHHHEEALz++usO0L8eJ+vUU0+dP39+W1ubC0gAYO3atffee291dfX555//7os4O3bscHcyatSod3P8EKdkjHHVnrFjx77dKc4BdHV15fP5RCLxne98Z/To0V1dXf/8z/98xhln3HzzzZ2dnZXY1D2DKVOm7PMWfN93T6K7u/vdrODhRDyVSrmo4/7779+8eTMAOJ952mmnnXDCCe+lI2pd+vAuc6IhRsZl5Ptv8rpvHpiPATj33HP/9Kc/XXrppYlEYvny5V/+8pcXLlz40ksvOTvgNHc/F7OHjntA6tjvUOE9/fTTZ8+evWHDhhdeeGHnzp333HNPPB6/8MIL341xGIJgR0dHLpd7l22Kt9SwPM9FgV1dXW93ys6dO10g5IYcAGD+/Pm33377s88+e/nll2utX3vttWuvvbanp6eurs4Fjh0dHW/3bS6vqa6uPhB/ke8dvnHMmDGf+MQnAOChhx762c9+ls/nDz/88HPOOec9/Y6xY8d6ntfZ2bl69er3c4lCuIB69erVvb29ex9QKpXWrFnjorchij9v3rw77rjjRz/6kVJqw4YNjz/+eCaTcVX7F1980e5r+5TW1tYNGzY4tzEkd9/PFb77Z/POxy1cuHDcuHGPPvroz3/+c8/z3FJ9T5BNmjTpox/9qDNK7e3t76jUe4sLW1988cWHHnpo70/vueeeNWvWpNNp53JdFDj4gE9+8pOjRo2Kosh5lNNOO01KuXjx4nvvvXfvb1u0aNGrr74qhBgSL+1nOVprjTHDhrhTamttPp8fO3bsJZdc8l6VtL6+/qqrrkLEF1980eUvFeXavn37bbfd5pzEfuSss85asGCBMeZb3/rWXXfd5Va9M8oPPvjgt771LSI655xzXH746quv/vjHP25ubq6c/sQTT3R1dcVisRkzZgDAxRdf/JGPfMRlHn/84x+LxaI7LAiC++6775vf/CYAfOYznznqqKPe8dZc9b+1tfXFF1900Pf397/bjoSL/yuObrBccMEF9957b0dHx6WXXjqkbFQJVAf7GfemSy4qWrZx48bvfe97v//975cuXfrRj3501KhRfX19S5Ys2bRp05NPPjlt2rSh2yu91Yffcsstl1xyyerVq6+++uo777zz0EMPlVJu2rRp8eLF2Wx2wYIFrqDqnuKNN9545513zp07t76+vqOj4+GHHy6VSuecc85pp53m0vof/ehHV1xxxfr166+88srjjz/e5ajNzc1PPfVUqVQ65ZRTbrzxxsEmpXJHe6vjtGnTNm7c+N3vfvf111/P5/OnnXbaVVdd9W47Eueddx4AfP3rX9+7lnLJJZc0NDRs2bJlyPtPP/00ADQ2Nr7yyiuV1O76668HgKuvvrqSc7qq0K9//euZM2cOuYDzzz+/s7OTmd94442JEye6db3P8tnmzZuvvPJKV2isSENDw1e/+tVdu3ZVDlu5cqUry1QkkUhcc801bW1tg79tzZo1V1111ZDhtvr6+m9+85uDSzRObrnlFgA4+uij9+6xPPjgg4PD2R/84Af7r4+/ZdfhlpaWnp6epqamkSNHDsHFlTQnTZo0xEXk8/nm5mal1IQJEyr7dO/atWvnzp2NjY1jxowZEvN2dnauWrWqtbXV1VpnzJgxZcoUN4BTLpe3bt0ahuHkyZP3nvKr1IGbm5vXrFnjFm9jY+OsWbPGjRs3+KqIqLOzc+3atdu2bbPWVlVVzZo1a/r06XuHg0EQvPnmm2vXrs1ms0IIlyiOHj167zC0q6urtbU1lUpNnjx5yB25qufrr7+ezWYbGhoGV8T+LtkT/++J+BCCDxH/EPEP5UPEP0T8Q3kPooYUKMIwjMViro+1T3FEHKXUX2ffgAMh1lqXtTrSz/4PDoKgVCr5vo+IhULBWptKpRKJhKO+ONLze/rt0vXDXBn6lltu+Y//+I8gCFyBf5/y5JNPXnfdddu2bTvqqKOGJCN/L5LP52+88cZf/OIXbW1trvv6dlIsFr/+9a/feuutQoixY8f+6Ec/Wr58+erVq33fX7ly5YYNG6ZNm/ZeEReDn/yiRYuee+651157bT8nbNy48fnnn1+0aFGlHPF3J+l0uq2t7YknnvjZz362ZcuW/Ry5fPnyH//4xy+88EKhUBg5cmQmk5k5c2ZnZ+fPf/7zn/zkJ+vWrXsfq/wviCOi09n9Fx5dZbwyuvF3Kpdddlk8Hu/s7HSt0beT++67DwBmz57t2rOjR49uamo69thjlVKJRGLy5Mn2vW+XreB/pSxYsGDSpElr1qx5/PHHHTNib+nr63PF4Qq3+5xzznF2/4QTTjDGJJPJ99Gy+BvHKpU+2TAe+W4kmUyeddZZALBmzZrly5fv85hFixZt3bo1nU6feeaZ7p3a2tpUKpVKperq6hobG92fw/pr6/iqVauy2WxjY+M+G7XFYnH16tVENHXq1Lq6uvXr1/f09EyYMKGpqam7u/v5559ftWpVEARNTU3HHHPMYYcdts8Yqa2tbenSpWvWrMnn86NGjZo3b97cuXMHH5nNZjds2KC1njVrlrX25ZdfXrFiRV1d3cUXX/x2FTEAuPDCC2+99daWlpbnn39+n6Xw++67j5knTZo0hFswDFo2hM38qU99aj/Fxp/+9KduWbmS5hVXXAEAc+fO3bZt294H/8///A8AjBkzZt26ddbaY445BgBuvfXWN95447DDDht8GfF4/IYbbqgQ/gbXQufMmTP4SM/zrrrqqsGl10cffVRrPWbMmJUrV1aoqel0es2aNfu5kSAITjrpJABYuHChY5gOlq1btzp+wDe+8Q0eVtmHju+f6z8kIrzkkkvuuOOOZcuWLV261F3iYPnDH/4AAMcee+yhhx5aKBScWXj55Zf/+7//u6ur67rrrps0aVI2m33yySdffvnl//zP/3RzGpWy6u9+97trr702l8sdffTRZ599dnV19Zo1a+69997bb789m83efffdzqq64R1r7c033/zb3/52/vz506dPb29v3/+S9zzvoosueu6551599dWVK1e6rlBF/vznP7vy7AUXXDD8lnSIjp9++unPPPPMU0899fhb5Yknnli0aNFnP/vZwTre3d193HHHAcC11147hKG4dOnSESNGKKUcjy6fz8+fP98FRXPmzBmsgDt37rz88stdIPTkk0+6N1etWjVhwgQAuPLKK1tbWysH33777bFYTGv9m9/8pkJFc9YjkUh8/etf7+/vj6Kovb29WCzuX92am5td2+z73//+kI/OPfdcADjzzDN5uGUfiLvQJ74vSSQSTgEriFf6IxMnThzSIXK51Zw5c9xcQQXx6upqRxAc0t9x7aHrr7/eteu++tWvutN37tw55GBHwPv4xz8+BPGzzz77PQ1mFItFR2g95ZRTHJnWyWuvvebW669//ethR3wfBiSRSDQ1NQ1pXQ5ENkJ0d3fv3r178JunnnrqqFGjtmzZsnTpUqeVLq9zDblPfvKTQ/zhSSedtHemN3ny5JNPPtnRU8Mw7O/vf+655wDgE5/4xKhRo9z8jjtSaz1//vz77rtv27Ztu3fvdgxxN4t+3nnn7T074K528DA1IjY0NLityM4666zf/va3ixcv3rp1q6N/AsDixYtbWloaGxv3SWUezrqKk3PPPff222+31g4ZqnAp0q233uq4rBWZMWPGmWeeefvttz/88MPnnXeew3fx4sWrVq1KJpNOH4ccv89LcURGp9HZbNbxNF944YWOjo4K/4+ZY7GY472USqVsNusQJ6J0Oj1r1qy9I7yLL7548PBKFEWxWOyBBx5whnvevHkzZ85cu3bt448/PnfuXETMZrPPPPOMw6GhoeGvgbjv+0oppdQ+Y7W9B02UUmeeeeZvfvObhx9+uKOjw7EDn3766Vwud+WVV+7tTt+O7jL4fTf/4TzYn//8530eP2Q/X6WU65cO+c4JEya4v3ZVKR95nle5tcmTJ5966qlr16594IEHrr/++nQ6vXbt2hdeeMGFj8O+ucq+Ed9/53OfaciJJ544f/78JUuW/PnPf77mmmu2bNlSMSnvfv7K8a0c57iC5uc///l58+a5MZzBYoypra19x5no+fPnP/roo4O/0N3d4BNPO+20X/3qV6+//vobb7xxwgknPPvss/39/UcfffThhx9+wKu171saGxsXLFiwZMmS++6775prrlm+fPmqVauOPfZYRwseInvD58TxhMaPH++WV11dXXt7+/z5898HJ2nwitwPI9fJMcccc8QRR7z88ssPP/zwzJkz3ZJauHDhcI24H6gs/2Mf+1hjY+NLL720fv16N6py/vnnDx3zAgCAZcuW7f3mli1b3EjRcccdJ6XMZDKOa/jkk0++3RMaLhkxYoRLhZ544onnn3/+pZdeSqVS74YC9zdGfP78+W75/+QnP3nqqacaGhocAWpveeGFFxztf3Ch+Fe/+tWqVat833fhQU1NjUPh7rvvdpMfQ7oiK1asyGazw3Xxp59++ogRIzZs2OAi3ZNOOsk974PXqji5+OKLn3766TvuuKNcLl9xxRVD8vjB+H7xi1/s6+s788wzfd/v6en5wx/+4G71c5/7nKsEuGz2vvvuW758+bXXXtvS0nLKKafU1NREUdTa2vrQQw898MADzzzzTCaTGZYrP/HEE6dPn7548WLHMV+wYEGFFX1AqncVlprTyiuvvHI/Afytt97qNHrHjh1DPspmsy6L8TzvnnvuGfJpJQP69Kc/7apxI0aMmDlzZmWrhEsvvXRwGuJmqKZNm1ap282aNWvixInOFR922GGVIsz999+vta6vr1+2bNn7Tkz+67/+y8UzkydPXrVqFR8wUYNbDaeffrqUckiFYYgceuihZ5xxxjHHHLN3KJZOp4899ti1a9ceccQRp5566tt9w8yZM7/3ve99//vff/DBB1taWlKp1BlnnHHBBRdcfPHFQ3T2uOOOe/jhh++6664nnniiubl5+/btyWTyhBNOOPnkk8877zxHvHfO9uKLL06lUpUU5n3IRRddtGHDhu7u7uOPP/7AmZS36LhT8/7+/v1vGOEi5VKpNGQuz2mxo1jedNNNe59Y0fHvfOc7rqiwc+fOrVu3bt++fe+J4yF7IOzevbulpWXbtm2tra19fX1DfrUbz3Zt3w+ifcViMZ/PD+8GDu+Q5fu+v58ufiXf2Vu7nTzyyCNvvPHGyJEj984z985cPM97l4NYiLh/5ZVS7qcO/p5Cyb9CE0YM41q58847iejEE088sKvy71w+aKzS3d0dBIHv+7fccsuTTz6ZTqe/8IUvfAjrAUTcTWQh4urVq40x3/72t48++uj9OAzY1wzGh4i/BykWiytWrACAqVOn3nDDDVdeeeXb2i8hamtrK3+S5H+tfFDGfj6f7+7uRsREIlFbW7sfNoFrGJXL5erq6v/NoH84I/HXlg+5tX9t+f8HABOwDQwRgmWRAAAAAElFTkSuQmCC alt="Microsoft Hyper-V" style='float:Left'/>
<br><br>
<H1>Health Report: $($Computername.ToUpper())</H1>
<br><br><br>
"@

$footer=@"
<p style='color:green'><i>Created $(Get-Date) by $($env:userdomain)\$($env:username)
<br>Brought to you by <a href='http://www.altaro.com/hyper-v/' target='_blank'>
Altaro</a></i>
<br><i>v$reportversion</i>
"@

$paramHash=@{
Head= $head
Body = $fragments
Postcontent= $footer
}

ConvertTo-Html @paramHash | Out-File -FilePath $path -encoding ASCII

$progParam.status="Creating HTML Report"
$progParam.currentOperation="Finished"
$progParam.percentcomplete=100
Write-Progress @progParam -Completed

Write-Host "Report complete. Please see $(Resolve-Path $path)" -ForegroundColor Green

#endregion

} #close new report function