Src/Private/Get-AbrWinDNSInfrastructure.ps1

function Get-AbrWinDNSInfrastructure {
    <#
    .SYNOPSIS
        Used by As Built Report to retrieve Microsoft Windows Domain Name System Infrastructure information.
    .DESCRIPTION
        Documents the configuration of Microsoft Windows Server in Word/HTML/Text formats using PScribo.
    .NOTES
        Version: 0.5.4
        Author: Jonathan Colon
        Twitter: @jcolonfzenpr
        Github: rebelinux
        Credits: Iain Brighton (@iainbrighton) - PScribo module
 
    .LINK
        https://github.com/AsBuiltReport/AsBuiltReport.Microsoft.Windows
    #>

    [CmdletBinding()]
    param (
    )

    begin {
        Write-PScriboMessage "DNS InfoLevel set at $($InfoLevel.DNS)."
        Write-PScriboMessage "Collecting Host DNS Server information."
    }

    process {
        try {
            $DNSSetting = Get-DnsServerSetting -CimSession $TempCIMSession
            if ($DNSSetting) {
                $OutObj = @()
                try {
                    $inObj = [ordered] @{
                        'Build Number' = $DNSSetting.BuildNumber
                        'IPv6' = ($DNSSetting.EnableIPv6)
                        'DnsSec' = ($DNSSetting.EnableDnsSec)
                        'ReadOnly DC' = ($DNSSetting.IsReadOnlyDC)
                        'Listening IP' = $DNSSetting.ListeningIPAddress
                        'All IPs' = $DNSSetting.AllIPAddress
                    }
                    $OutObj += [pscustomobject](ConvertTo-HashToYN $inObj)
                } catch {
                    Write-PScriboMessage -IsWarning " $($_.Exception.Message) (Infrastructure Summary)"
                }
            }

            $TableParams = @{
                Name = "DNS Servers Settings - $($System.toUpper().split(".")[0])"
                List = $true
                ColumnWidths = 40, 60
            }
            if ($Report.ShowTableCaptions) {
                $TableParams['Caption'] = "- $($TableParams.Name)"
            }
            $OutObj | Sort-Object -Property 'DC Name' | Table @TableParams
            #---------------------------------------------------------------------------------------------#
            # DNS IP Section #
            #---------------------------------------------------------------------------------------------#
            if ($InfoLevel.DNS -ge 2) {
                try {
                    $DNSIPSetting = Get-NetAdapter -CimSession $TempCIMSession | Get-DnsClientServerAddress -CimSession $TempCIMSession -AddressFamily IPv4
                    if ($DNSIPSetting) {
                        Section -Style Heading3 "DNS IP Configuration" {
                            Paragraph "The following table details DNS Server IP Configuration Settings"
                            BlankLine
                            $OutObj = @()
                            try {
                                $inObj = [ordered] @{
                                    'Interface' = $DNSIPSetting.InterfaceAlias
                                    'DNS IP 1' = $DNSIPSetting.ServerAddresses[0]
                                    'DNS IP 2' = $DNSIPSetting.ServerAddresses[1]
                                    'DNS IP 3' = $DNSIPSetting.ServerAddresses[2]
                                    'DNS IP 4' = $DNSIPSetting.ServerAddresses[3]
                                }
                                $OutObj = [pscustomobject](ConvertTo-HashToYN $inObj)

                                if ($HealthCheck.DNS.DP) {
                                    $OutObj | Where-Object { $_.'DNS IP 1' -eq "127.0.0.1" } | Set-Style -Style Warning -Property 'DNS IP 1'
                                }

                                $TableParams = @{
                                    Name = "IP Configuration - $($System.toUpper().split(".")[0])"
                                    List = $false
                                    ColumnWidths = 20, 20, 20, 20, 20
                                }
                                if ($Report.ShowTableCaptions) {
                                    $TableParams['Caption'] = "- $($TableParams.Name)"
                                }
                                $OutObj | Table @TableParams
                            } catch {
                                Write-PScriboMessage -IsWarning $_.Exception.Message
                            }
                        }
                    }
                } catch {
                    Write-PScriboMessage -IsWarning "$($_.Exception.Message) (DNS IP Configuration Table)"
                }
            }

            #---------------------------------------------------------------------------------------------#
            # DNS Scanvenging Section #
            #---------------------------------------------------------------------------------------------#
            if ($InfoLevel.DNS -ge 2) {
                try {
                    $DNSSetting = Get-DnsServerScavenging -CimSession $TempCIMSession
                    if ($DNSSetting) {
                        Section -Style Heading3 "Scavenging Options" {
                            Paragraph "The following table details scavenging configuration settings"
                            BlankLine
                            $OutObj = @()
                            try {
                                $inObj = [ordered] @{
                                    'NoRefresh Interval' = $DNSSetting.NoRefreshInterval
                                    'Refresh Interval' = $DNSSetting.RefreshInterval
                                    'Scavenging Interval' = $DNSSetting.ScavengingInterval
                                    'Last Scavenge Time' = Switch ([string]::IsNullOrEmpty($DNSSetting.LastScavengeTime)) {
                                        $true { "--" }
                                        $false { ($DNSSetting.LastScavengeTime.ToString("MM/dd/yyyy")) }
                                        default { 'Unknown' }
                                    }
                                    'Scavenging State' = Switch ($DNSSetting.ScavengingState) {
                                        "True" { "Enabled" }
                                        "False" { "Disabled" }
                                        default { $DNSSetting.ScavengingState }
                                    }
                                }

                                $OutObj += [pscustomobject](ConvertTo-HashToYN $inObj)
                                $TableParams = @{
                                    Name = "Scavenging - $($System.toUpper().split(".")[0])"
                                    List = $false
                                    ColumnWidths = 20, 20, 20, 20, 20
                                }
                                if ($Report.ShowTableCaptions) {
                                    $TableParams['Caption'] = "- $($TableParams.Name)"
                                }
                                $OutObj | Table @TableParams
                            } catch {
                                Write-PScriboMessage -IsWarning "$($_.Exception.Message) (Scavenging Item)"
                            }
                        }
                    }
                } catch {
                    Write-PScriboMessage -IsWarning "$($_.Exception.Message) (Scavenging Table)"
                }
            }
            #---------------------------------------------------------------------------------------------#
            # DNS Forwarder Section #
            #---------------------------------------------------------------------------------------------#
            try {
                Section -Style Heading3 "Forwarder Options" {
                    Paragraph "The following table details forwarder configuration settings"
                    BlankLine
                    $OutObj = @()
                    try {
                        $DNSSetting = Get-DnsServerForwarder -CimSession $TempCIMSession
                        $Recursion = Get-DnsServerRecursion -CimSession $TempCIMSession
                        $inObj = [ordered] @{
                            'IP Address' = $DNSSetting.IPAddress -join ","
                            'Timeout' = ("$($DNSSetting.Timeout)/s")
                            'Use Root Hint' = ($DNSSetting.UseRootHint)
                            'Use Recursion' = ($Recursion.Enable)
                        }
                        $OutObj += [pscustomobject](ConvertTo-HashToYN $inObj)
                        $TableParams = @{
                            Name = "Forwarders - $($System.toUpper().split(".")[0])"
                            List = $false
                            ColumnWidths = 25, 25, 25, 25
                        }
                        if ($Report.ShowTableCaptions) {
                            $TableParams['Caption'] = "- $($TableParams.Name)"
                        }
                        $OutObj | Table @TableParams
                    } catch {
                        Write-PScriboMessage -IsWarning "$($_.Exception.Message) (Forwarder Item)"
                    }
                }
            } catch {
                Write-PScriboMessage -IsWarning "$($_.Exception.Message) (Forwarder Table)"
            }
        } catch {
            Write-PScriboMessage -IsWarning "$($_.Exception.Message) (DNS Infrastructure Section)"
        }
    }

    end {}

}