Src/Private/Get-AbrVbrCloudConnectTenant.ps1


function Get-AbrVbrCloudConnectTenant {
    <#
    .SYNOPSIS
        Used by As Built Report to retrieve Veeam Cloud Connect Gateway Tenants
    .DESCRIPTION
        Documents the configuration of Veeam VBR in Word/HTML/Text formats using PScribo.
    .NOTES
        Version: 0.8.13
        Author: Jonathan Colon
        Twitter: @jcolonfzenpr
        Github: rebelinux
        Credits: Iain Brighton (@iainbrighton) - PScribo module
 
    .LINK
        https://github.com/AsBuiltReport/AsBuiltReport.Veeam.VBR
    #>

    [CmdletBinding()]
    param (

    )

    begin {
        Write-PScriboMessage "Discovering Veeam VBR Cloud Tenants information from $System."
    }

    process {
        try {
            if ($VbrLicenses | Where-Object { $_.CloudConnect -ne "Disabled" }) {
                if ($CloudObjects = Get-VBRCloudTenant | Sort-Object -Property Name) {
                    Section -Style Heading3 'Tenants' {
                        Paragraph "The following table provides status information about Cloud Connect Tenants."
                        BlankLine
                        $OutObj = @()
                        foreach ($CloudObject in $CloudObjects) {
                            try {
                                Write-PScriboMessage "Discovered $($CloudObject.Name) Cloud Tenants information."
                                $inObj = [ordered] @{
                                    'Name' = $CloudObject.Name
                                    'Type' = Switch ($CloudObject.Type) {
                                        'Ad' { 'Active Directory' }
                                        'General' { 'Standalone' }
                                        'vCD' { 'vCloud Director' }
                                        default { 'Unknown' }
                                    }
                                    'Last Active' = $CloudObject.LastActive
                                    'Last Result' = $CloudObject.LastResult
                                }

                                $OutObj += [pscustomobject](ConvertTo-HashToYN $inObj)
                            } catch {
                                Write-PScriboMessage -IsWarning "Tenants $($CloudObject.Name) Section: $($_.Exception.Message)"
                            }
                        }

                        if ($HealthCheck.CloudConnect.Tenants) {
                            $OutObj | Where-Object { $_.'Last Result' -ne 'Success' } | Set-Style -Style Warning -Property 'Last Result'
                            $OutObj | Where-Object { $Null -like $_.'Last Active' } | Set-Style -Style Warning -Property 'Last Active'
                        }

                        $TableParams = @{
                            Name = "Tenants Summary - $($VeeamBackupServer)"
                            List = $false
                            ColumnWidths = 40, 20, 25, 15
                        }

                        if ($Report.ShowTableCaptions) {
                            $TableParams['Caption'] = "- $($TableParams.Name)"
                        }
                        $OutObj | Sort-Object -Property 'Name' | Table @TableParams
                        if ($HealthCheck.CloudConnect.BestPractice) {
                            if ($OutObj | Where-Object { $Null -like $_.'Last Active' }) {
                                Paragraph "Health Check:" -Bold -Underline
                                BlankLine
                                Paragraph {
                                    Text "Best Practice:" -Bold
                                    Text "Validate if the tenant's resources are being utilized"
                                }
                                BlankLine
                            }
                        }
                        #---------------------------------------------------------------------------------------------#
                        # Tenants Configuration Section #
                        #---------------------------------------------------------------------------------------------#
                        if ($InfoLevel.CloudConnect.Tenants -ge 2) {
                            try {
                                Section -Style Heading4 'Tenants Configuration' {
                                    Paragraph "The following section provides detailed configuration information about Cloud Connect Tenants."
                                    BlankLine
                                    foreach ($CloudObject in $CloudObjects) {
                                        Section -Style Heading5 $CloudObject.Name {
                                            $OutObj = @()
                                            try {
                                                Section -ExcludeFromTOC -Style NOTOCHeading6 'General Information' {
                                                    Write-PScriboMessage "Discovered $($CloudObject.Name) Cloud Tenants information."
                                                    $inObj = [ordered] @{
                                                        'Name' = $CloudObject.Name
                                                        'Type' = Switch ($CloudObject.Type) {
                                                            'Ad' { 'Active Directory' }
                                                            'General' { 'Standalone' }
                                                            'vCD' { 'vCloud Director' }
                                                            default { 'Unknown' }
                                                        }
                                                        'Status' = Switch ($CloudObject.Enabled) {
                                                            'True' { 'Enabled' }
                                                            'False' { 'Disabled' }
                                                            default { 'Unknown' }
                                                        }
                                                        'Expiration Date' = Switch ([string]::IsNullOrEmpty($CloudObject.LeaseExpirationDate)) {
                                                            $true { 'Never' }
                                                            $false {
                                                                & {
                                                                    if ($CloudObject.LeaseExpirationDate -lt (Get-Date)) {
                                                                        "$($CloudObject.LeaseExpirationDate.ToShortDateString()) (Expired)"
                                                                    } else { $CloudObject.LeaseExpirationDate.ToShortDateString() }
                                                                }
                                                            }
                                                            default { '--' }
                                                        }
                                                        'Backup Storage (Cloud Backup Repository)' = $CloudObject.ResourcesEnabled
                                                        'Replication Resource (Cloud Host)' = Switch ($CloudObject.ReplicationResourcesEnabled -or $CloudObject.vCDReplicationResourcesEnabled) {
                                                            'True' { 'Yes' }
                                                            'False' { 'No' }
                                                            default { '--' }
                                                        }
                                                        'Description' = $CloudObject.Description
                                                    }

                                                    if ($CloudObject.Type -eq 'Ad') {
                                                        $inObj.add('Domain', $CloudObject.DomainUrl)
                                                        $inObj.add('Domain Username', $CloudObject.Name)
                                                    }

                                                    $OutObj = [pscustomobject](ConvertTo-HashToYN $inObj)

                                                    if ($HealthCheck.CloudConnect.BestPractice) {
                                                        $OutObj | Where-Object { $_.'Description' -eq "--" } | Set-Style -Style Warning -Property 'Description'
                                                        $OutObj | Where-Object { $_.'Description' -match "Created by" } | Set-Style -Style Warning -Property 'Description'
                                                        $OutObj | Where-Object { $_.'Expiration Date' -match '(Expired)' } | Set-Style -Style Warning -Property 'Expiration Date'
                                                    }

                                                    $TableParams = @{
                                                        Name = "Tenant - $($CloudObject.Name)"
                                                        List = $true
                                                        ColumnWidths = 40, 60
                                                    }

                                                    if ($Report.ShowTableCaptions) {
                                                        $TableParams['Caption'] = "- $($TableParams.Name)"
                                                    }
                                                    $OutObj | Sort-Object -Property 'Name' | Table @TableParams
                                                    if ($HealthCheck.Jobs.BestPractice) {
                                                        if ($OutObj | Where-Object { $_.'Description' -match 'Created by' -or $_.'Description' -eq '--' }) {                                                            Paragraph "Health Check:" -Bold -Underline
                                                            BlankLine
                                                            Paragraph {
                                                                Text "Best Practice:" -Bold
                                                                Text "It is a general rule of good practice to establish well-defined descriptions. This helps to speed up the fault identification process, as well as enabling better documentation of the environment."
                                                            }
                                                            BlankLine
                                                        }
                                                    }
                                                }
                                                try {
                                                    Section -ExcludeFromTOC -Style NOTOCHeading6 'Bandwidth' {
                                                        $OutObj = @()
                                                        try {
                                                            Write-PScriboMessage "Discovered $($CloudObject.Name) Bandwidth information."
                                                            $inObj = [ordered] @{
                                                                'Max Concurrent Task' = $CloudObject.MaxConcurrentTask
                                                            }

                                                            if ($CloudObject.ThrottlingEnabled) {
                                                                $inObj.add('Limit network traffic from this tenant?', ($CloudObject.ThrottlingEnabled))
                                                                Switch ($CloudObject.ThrottlingUnit) {
                                                                    'MbytePerSec' { $inObj.add('Throttling network traffic to', "$($CloudObject.ThrottlingValue) MB/s") }
                                                                    'KbytePerSec' { $inObj.add('Throttling network traffic to', "$($CloudObject.ThrottlingValue) KB/s") }
                                                                    'MbitPerSec' { $inObj.add('Throttling network traffic to', "$($CloudObject.ThrottlingValue) Mbps") }
                                                                }
                                                            }

                                                            if ($CloudObject.GatewaySelectionType -eq 'StandaloneGateways') {
                                                                $inObj.add('Gateway Pool', 'Automatic')
                                                            } else {
                                                                $GatewayPool = Switch ([string]::IsNullOrEmpty($CloudObject.GatewayPool.Name)) {
                                                                    $true { '--' }
                                                                    $false { $CloudObject.GatewayPool.Name }
                                                                    default { 'Unknown' }
                                                                }
                                                                $inObj.add('Gateway Type', 'Gateway Pool')
                                                                $inObj.add('Gateway Pool', $GatewayPool)
                                                                $inObj.add('Gateway Failover', ($CloudObject.GatewayFailoverEnabled))
                                                            }

                                                            $OutObj = [pscustomobject](ConvertTo-HashToYN $inObj)

                                                            $TableParams = @{
                                                                Name = "Bandwidth - $($CloudObject.Name)"
                                                                List = $true
                                                                ColumnWidths = 40, 60
                                                            }

                                                            if ($Report.ShowTableCaptions) {
                                                                $TableParams['Caption'] = "- $($TableParams.Name)"
                                                            }
                                                            $OutObj | Table @TableParams
                                                        } catch {
                                                            Write-PScriboMessage -IsWarning "Bandwidth $($CloudObject.Name) Section: $($_.Exception.Message)"
                                                        }
                                                    }
                                                } catch {
                                                    Write-PScriboMessage -IsWarning "Bandwidth $($CloudObject.Name) Section: $($_.Exception.Message)"
                                                }
                                                if ($CloudObject.ResourcesEnabled -and $CloudObject.Resources) {
                                                    try {
                                                        Section -ExcludeFromTOC -Style NOTOCHeading6 'Backup Resources' {
                                                            $OutObj = @()
                                                            foreach ($CloudBackupRepo in $CloudObject.Resources) {
                                                                try {
                                                                    Write-PScriboMessage "Discovered $($CloudBackupRepo.RepositoryFriendlyName) Backup Resources information."
                                                                    $inObj = [ordered] @{
                                                                        'Repository' = $CloudBackupRepo.Repository.Name
                                                                        'Friendly Name' = $CloudBackupRepo.RepositoryFriendlyName
                                                                        'Quota' = ConvertTo-FileSizeString -Size $CloudBackupRepo.RepositoryQuota
                                                                        'Quota Path' = $CloudBackupRepo.RepositoryQuotaPath
                                                                        'Use Wan Acceleration' = $CloudBackupRepo.WanAccelerationEnabled
                                                                    }

                                                                    if ($CloudBackupRepo.WanAccelerationEnabled) {
                                                                        $inObj.add('Wan Accelerator', ($CloudBackupRepo.WanAccelerator).Name)
                                                                    }
                                                                    if ($CloudObject.BackupProtectionEnabled) {
                                                                        $inObj.add('Keep deleted backup file for', "$($CloudObject.BackupProtectionPeriod) days")
                                                                    }

                                                                    $OutObj = [pscustomobject](ConvertTo-HashToYN $inObj)

                                                                    $TableParams = @{
                                                                        Name = "Backup Resources - $($CloudBackupRepo.RepositoryFriendlyName)"
                                                                        List = $true
                                                                        ColumnWidths = 40, 60
                                                                    }

                                                                    if ($Report.ShowTableCaptions) {
                                                                        $TableParams['Caption'] = "- $($TableParams.Name)"
                                                                    }
                                                                    $OutObj | Table @TableParams
                                                                } catch {
                                                                    Write-PScriboMessage -IsWarning "Backup Resources $($CloudBackupRepo.RepositoryFriendlyName) Section: $($_.Exception.Message)"
                                                                }
                                                            }
                                                        }
                                                    } catch {
                                                        Write-PScriboMessage -IsWarning "Backup Resources Section: $($_.Exception.Message)"
                                                    }
                                                }
                                                if ($CloudObject.ReplicationResourcesEnabled -and $CloudObject.ReplicationResources.HardwarePlanOptions) {
                                                    try {
                                                        Section -ExcludeFromTOC -Style NOTOCHeading6 'Replication Resources' {
                                                            $OutObj = @()
                                                            foreach ($CloudRepliRes in $CloudObject.ReplicationResources) {
                                                                try {
                                                                    Write-PScriboMessage "Discovered $($CloudRepliRes.RepositoryFriendlyName) Replication Resources information."
                                                                    $inObj = [ordered] @{
                                                                        'Hardware Plans' = (Get-VBRCloudHardwarePlan  | Where-Object { $_.SubscribedTenantId -contains $CloudObject.Id }).Name -join ', '
                                                                        'Use Veeam Network Extension Capabilities during Partial and Full Site Failover' = $CloudRepliRes.NetworkFailoverResourcesEnabled
                                                                    }

                                                                    $OutObj = [pscustomobject](ConvertTo-HashToYN $inObj)

                                                                    $TableParams = @{
                                                                        Name = "Replication Resources - $($CloudObject.Name)"
                                                                        List = $true
                                                                        ColumnWidths = 40, 60
                                                                    }

                                                                    if ($Report.ShowTableCaptions) {
                                                                        $TableParams['Caption'] = "- $($TableParams.Name)"
                                                                    }
                                                                    $OutObj | Table @TableParams
                                                                } catch {
                                                                    Write-PScriboMessage -IsWarning "Replication Resources $($CloudObject.Name) Section: $($_.Exception.Message)"
                                                                }
                                                            }
                                                        }
                                                    } catch {
                                                        Write-PScriboMessage -IsWarning "Replication Resources Section: $($_.Exception.Message)"
                                                    }
                                                }
                                                if ($CloudObject.vCDReplicationResourcesEnabled) {
                                                    try {
                                                        Section -ExcludeFromTOC -Style NOTOCHeading6 'Replication Resources (vCD)' {
                                                            $OutObj = @()
                                                            foreach ($CloudRepliRes in $CloudObject.vCDReplicationResource.OrganizationvDCOptions) {
                                                                try {
                                                                    Write-PScriboMessage "Discovered $($CloudRepliRes.RepositoryFriendlyName) Replication Resources information."
                                                                    $inObj = [ordered] @{
                                                                        'Organization vDC Name' = $CloudRepliRes.OrganizationvDCName
                                                                        'Allocation Model' = $CloudRepliRes.AllocationModel
                                                                        'WAN Accelaration?' = $CloudRepliRes.WANAccelarationEnabled
                                                                    }

                                                                    if ($CloudRepliRes.WANAccelarationEnabled) {
                                                                        $inObj.add('WAN Accelerator', $CloudRepliRes.WANAccelerator.Name)
                                                                    }

                                                                    $OutObj = [pscustomobject](ConvertTo-HashToYN $inObj)

                                                                    $TableParams = @{
                                                                        Name = "Replication Resources (vCD) - $($CloudObject.Name)"
                                                                        List = $true
                                                                        ColumnWidths = 40, 60
                                                                    }

                                                                    if ($Report.ShowTableCaptions) {
                                                                        $TableParams['Caption'] = "- $($TableParams.Name)"
                                                                    }
                                                                    $OutObj | Table @TableParams
                                                                } catch {
                                                                    Write-PScriboMessage -IsWarning "Replication Resources (vCD) $($CloudObject.Name) Section: $($_.Exception.Message)"
                                                                }
                                                            }
                                                        }
                                                    } catch {
                                                        Write-PScriboMessage -IsWarning "Replication Resources (vCD) Section: $($_.Exception.Message)"
                                                    }
                                                }
                                                if ($CloudObject.ReplicationResources.NetworkFailoverResourcesEnabled -or $CloudObject.vCDReplicationResource.TenantNetworkAppliance) {
                                                    try {
                                                        if ($TenantNetworkAppliances = Get-VBRCloudTenantNetworkAppliance -Tenant $CloudObject) {
                                                            Section -ExcludeFromTOC -Style NOTOCHeading6 'Network Extension' {
                                                                $OutObj = @()
                                                                foreach ($TenantNetworkAppliance in $TenantNetworkAppliances) {
                                                                    try {
                                                                        Write-PScriboMessage "Discovered $($TenantNetworkAppliance.Name) Network Extension information."
                                                                        $inObj = [ordered] @{
                                                                            'Name' = $TenantNetworkAppliance.Name
                                                                            'Platform' = $TenantNetworkAppliance.Platform
                                                                        }

                                                                        if (-Not $CloudObject.vCDReplicationResource.TenantNetworkAppliance) {
                                                                            $inObj.add('Hardware Plan', (Get-VBRCloudHardwarePlan -Id $TenantNetworkAppliance.HardwarePlanId).Name)
                                                                        }

                                                                        $inObj.add('Production Network', $TenantNetworkAppliance.ProductionNetwork.Name)
                                                                        $inObj.add('Obtain Ip Address Automatically', ($TenantNetworkAppliance.ObtainIpAddressAutomatically))

                                                                        if (-Not $TenantNetworkAppliance.ObtainIpAddressAutomatically) {
                                                                            $inObj.add('Ip Address', $TenantNetworkAppliance.IpAddress)
                                                                            $inObj.add('Subnet Mask', $TenantNetworkAppliance.SubnetMask)
                                                                            $inObj.add('Default Gateway', $TenantNetworkAppliance.DefaultGateway)
                                                                        }

                                                                        $OutObj = [pscustomobject](ConvertTo-HashToYN $inObj)

                                                                        $TableParams = @{
                                                                            Name = "Network Extension - $($CloudObject.Name)"
                                                                            List = $true
                                                                            ColumnWidths = 40, 60
                                                                        }

                                                                        if ($Report.ShowTableCaptions) {
                                                                            $TableParams['Caption'] = "- $($TableParams.Name)"
                                                                        }
                                                                        $OutObj | Table @TableParams
                                                                    } catch {
                                                                        Write-PScriboMessage -IsWarning "Network Extension $($CloudObject.Name) Section: $($_.Exception.Message)"
                                                                    }
                                                                }
                                                            }
                                                        }
                                                    } catch {
                                                        Write-PScriboMessage -IsWarning "Network Extension Section: $($_.Exception.Message)"
                                                    }
                                                }
                                                try {
                                                    if ($CloudSubTenants = Get-VBRCloudSubTenant | Where-Object { $_.TenantId -eq $CloudObject.Id } | Sort-Object -Property Name) {
                                                        Section -ExcludeFromTOC -Style NOTOCHeading6 'Sub-Tenants' {
                                                            $OutObj = @()
                                                            foreach ($CloudSubTenant in $CloudSubTenants) {
                                                                try {
                                                                    Write-PScriboMessage "Discovered $($CloudSubTenant.Name) Subtenant information."
                                                                    $inObj = [ordered] @{
                                                                        'Name' = $CloudSubTenant.Name
                                                                        'Type' = $CloudSubTenant.Type
                                                                        'Mode' = $CloudSubTenant.Mode
                                                                        'Repository Name' = $CloudSubTenant.Resources.RepositoryFriendlyName
                                                                        'Quota' = ConvertTo-FileSizeString -Size $CloudSubTenant.Resources.RepositoryQuota
                                                                        'Quota Path' = $CloudSubTenant.Resources.RepositoryQuotaPath
                                                                        'Used Space %' = $CloudSubTenant.Resources.UsedSpacePercentage
                                                                        'Status' = Switch ($CloudSubTenant.Enabled) {
                                                                            'True' { 'Enabled' }
                                                                            'False' { 'Disabled' }
                                                                            default { '--' }
                                                                        }
                                                                    }

                                                                    $OutObj = [pscustomobject](ConvertTo-HashToYN $inObj)

                                                                    if ($HealthCheck.CloudConnect.Tenants) {
                                                                        $OutObj | Where-Object { $_.'Used Space %' -gt 85 } | Set-Style -Style Warning -Property 'Used Space %'
                                                                        $OutObj | Where-Object { $_.'Status' -eq 'Disabled' } | Set-Style -Style Warning -Property 'Status'
                                                                    }

                                                                    $TableParams = @{
                                                                        Name = "Subtenant - $($CloudSubTenant.Name)"
                                                                        List = $true
                                                                        ColumnWidths = 40, 60
                                                                    }

                                                                    if ($Report.ShowTableCaptions) {
                                                                        $TableParams['Caption'] = "- $($TableParams.Name)"
                                                                    }
                                                                    $OutObj | Table @TableParams
                                                                } catch {
                                                                    Write-PScriboMessage -IsWarning "Subtenant $($CloudSubTenant.Name) Section: $($_.Exception.Message)"
                                                                }
                                                            }
                                                        }
                                                    }
                                                } catch {
                                                    Write-PScriboMessage -IsWarning "Subtenant Section: $($_.Exception.Message)"
                                                }
                                                try {
                                                    Section -ExcludeFromTOC -Style NOTOCHeading6 'Licenses Utilization' {
                                                        $OutObj = @()
                                                        Write-PScriboMessage "Discovered $($CloudObject.Name) License Utilization information."
                                                        $inObj = [ordered] @{
                                                            'New VM Backup' = $CloudObject.NewVMBackupCount
                                                            'New Workstation Backup' = $CloudObject.NewWorkstationBackupCount
                                                            'New Server Backup' = $CloudObject.NewServerBackupCount
                                                            'New Replica' = $CloudObject.NewReplicaCount
                                                            'Rental VM Backup' = $CloudObject.RentalVMBackupCount
                                                            'Rental Workstation Backup' = $CloudObject.RentalWorkstationBackupCount
                                                            'Rental Server Backup' = $CloudObject.RentalServerBackupCount
                                                            'Rental Replica' = $CloudObject.RentalReplicaCount
                                                        }

                                                        $OutObj = [pscustomobject](ConvertTo-HashToYN $inObj)

                                                        $TableParams = @{
                                                            Name = "Licenses Utilization - $($CloudObject.Name)"
                                                            List = $true
                                                            ColumnWidths = 40, 60
                                                        }

                                                        if ($Report.ShowTableCaptions) {
                                                            $TableParams['Caption'] = "- $($TableParams.Name)"
                                                        }
                                                        $OutObj | Table @TableParams
                                                    }
                                                } catch {
                                                    Write-PScriboMessage -IsWarning "Licenses Utilization $($CloudObject.Name) Section: $($_.Exception.Message)"
                                                }
                                            } catch {
                                                Write-PScriboMessage -IsWarning "Tenants $($CloudObject.Name) Configuration Section: $($_.Exception.Message)"
                                            }
                                        }
                                    }
                                }
                            } catch {
                                Write-PScriboMessage -IsWarning "Tenants Configuration Section: $($_.Exception.Message)"
                            }
                        }
                    }
                }
            }
        } catch {
            Write-PScriboMessage -IsWarning "Tenants Section: $($_.Exception.Message)"
        }
    }
    end {}

}