Src/Private/Get-AbrADDHCPInfrastructure.ps1
|
function Get-AbrADDHCPInfrastructure { <# .SYNOPSIS Used by As Built Report to retrieve Microsoft AD DHCP Servers from Domain Controller .DESCRIPTION .NOTES Version: 0.3.0 Author: Jonathan Colon Twitter: @jcolonfzenpr Github: rebelinux .EXAMPLE .LINK #> [CmdletBinding()] param ( [Parameter ( Position = 0, Mandatory)] [string] $Domain, $Session, [PSCredential] $Cred ) begin { Write-PscriboMessage "Discovering Active Directory DHCP Servers information on $($Domain.ToString().ToUpper())." } process { Section -Style Heading5 'DHCP Servers In Active Directory Summary' { Paragraph "The following section provides a summary of the DHCP servers information on $($Domain.ToString().ToUpper())." BlankLine $OutObj = @() if ($Domain) { try { $DHCPinDC = Invoke-Command -Session $Session { Get-DhcpServerInDC | Where-Object {$_.DnsName.split(".", 2)[1] -eq $using:Domain} } if ($DHCPinDC) {Write-PScriboMessage "Discovered '$(($DHCPinDC | Measure-Object).Count)' DHCP Servers in forest $($Domain)."} foreach ($DHCPServers in $DHCPinDC) { Write-PScriboMessage "Collecting DHCP Server Setting information from $($DHCPServers.DnsName.split(".", 2)[0])" $Setting = Invoke-Command -Session $Session { Get-DhcpServerSetting -ComputerName ($using:DHCPServers).DnsName } $inObj = [ordered] @{ 'DC Name' = $DHCPServers.DnsName.Split(".", 2)[0] 'IP Address' = $DHCPServers.IPAddress 'Domain Name' = $DHCPServers.DnsName.Split(".", 2)[1] 'Domain Joined' = ConvertTo-TextYN $Setting.IsDomainJoined 'Authorized' = ConvertTo-TextYN $Setting.IsAuthorized 'Conflict Detection Attempts' = ConvertTo-TextYN $Setting.ConflictDetectionAttempts } $OutObj += [pscustomobject]$inobj } } catch { Write-PScriboMessage -IsWarning "Error: Retreiving Dhcp Server Setting from $($DHCPServers.DnsName.Split(".", 2)[0])." Write-PScriboMessage -IsDebug $_.Exception.Message } } $TableParams = @{ Name = "DHCP Servers In Active Directory Information - $($Domain.ToString().ToUpper())" List = $false ColumnWidths = 20, 15, 20, 15, 15 ,15 } if ($Report.ShowTableCaptions) { $TableParams['Caption'] = "- $($TableParams.Name)" } $OutObj | Table @TableParams Section -Style Heading6 'Service Database Summary' { Paragraph "The following section provides a summary of the DHCP servers service database information on $($Domain.ToString().ToUpper())." BlankLine $OutObj = @() if ($Domain) { try { Write-PscriboMessage "Discovering Active Directory DHCP Servers information on $($Domain)." $DHCPinDC = Invoke-Command -Session $Session { Get-DhcpServerInDC | Where-Object {$_.DnsName.split(".", 2)[1] -eq $using:Domain} } if ($DHCPinDC) {Write-PScriboMessage "Discovered '$(($DHCPinDC | Measure-Object).Count)' DHCP Servers in forest $($Domain)."} foreach ($DHCPServers in $DHCPinDC) { Write-PScriboMessage "Collecting DHCP Server database information from $($DHCPServers.DnsName.split(".", 2)[0])" $Setting = Invoke-Command -Session $Session { Get-DhcpServerDatabase -ComputerName ($using:DHCPServers).DnsName } $inObj = [ordered] @{ 'DC Name' = $DHCPServers.DnsName.Split(".", 2)[0] 'File Path' = ConvertTo-EmptyToFiller $Setting.FileName 'Backup Path' = ConvertTo-EmptyToFiller $Setting.BackupPath 'Backup Interval' = switch ($Setting.BackupInterval) { "" {"-"; break} $NULL {"-"; break} default {"$($Setting.BackupInterval) min"} } 'Logging Enabled' = Switch ($Setting.LoggingEnabled) { "" {"-"; break} $Null {"-"; break} default {ConvertTo-TextYN $Setting.LoggingEnabled} } } $OutObj += [pscustomobject]$inobj } } catch { Write-PScriboMessage -IsWarning "Error: Retreiving Dhcp Servers Database on $($DHCPServers.DnsName)." Write-PScriboMessage -IsDebug $_.Exception.Message } } $TableParams = @{ Name = "DHCP Servers Database Information - $($Domain.ToString().ToUpper())" List = $false ColumnWidths = 20, 28, 28, 12, 12 } if ($Report.ShowTableCaptions) { $TableParams['Caption'] = "- $($TableParams.Name)" } $OutObj | Table @TableParams } Section -Style Heading6 'Dynamic DNS credentials Summary' { Paragraph "The following section provides a summary of the DHCP Servers Dynamic DNS registration credentials information on $($Domain.ToString().ToUpper())." BlankLine $OutObj = @() if ($Domain) { try { Write-PscriboMessage "Discovering Active Directory DHCP Servers information on $($Domain)." $DHCPinDC = Invoke-Command -Session $Session { Get-DhcpServerInDC | Where-Object {$_.DnsName.split(".", 2)[1] -eq $using:Domain} } if ($DHCPinDC) {Write-PScriboMessage "Discovered '$(($DHCPinDC | Measure-Object).Count)' DHCP Servers in forest $($Domain)."} foreach ($DHCPServers in $DHCPinDC) { Write-PScriboMessage "Collecting DHCP Server Dynamic DNS Credentials information from $($DHCPServers.DnsName.split(".", 2)[0])" $Setting = Invoke-Command -Session $Session { Get-DhcpServerDnsCredential -ComputerName ($using:DHCPServers).DnsName } $inObj = [ordered] @{ 'DC Name' = $DHCPServers.DnsName.Split(".", 2)[0] 'User Name' = ConvertTo-EmptyToFiller $Setting.UserName 'Domain Name' = ConvertTo-EmptyToFiller $Setting.DomainName } $OutObj += [pscustomobject]$inobj } } catch { Write-PScriboMessage -IsWarning "Error: Retreiving Dhcp Servers Dynamic DNS credentials on $($DHCPServers.DnsName)." Write-PScriboMessage -IsDebug $_.Exception.Message } } $TableParams = @{ Name = "DHCP Servers Dynamic DNS Credentials Information - $($Domain.ToString().ToUpper())" List = $false ColumnWidths = 30, 30, 40 } if ($Report.ShowTableCaptions) { $TableParams['Caption'] = "- $($TableParams.Name)" } $OutObj | Table @TableParams } } } end {} } |