I also tossed in a version that can be adapted to '''not''' rely on DnsShell, but you will then somehow need to get the reverse zones into a file or variable in the correct format. It can also be used with DnsShell to produce slightly different-looking results from what the main script does.

Multiple host names for the same PTR record are displayed separated by a semicolon in the data.

Download Main Script

You will need to supply the -DnsServer parameter.

Script Code

[CmdletBinding()]
param([Parameter(Mandatory=$true)][string] $DnsServer)

# Copyright 2014, Svendsen Tech
# All rights reserved.
# Joakim Borger Svendsen
# 2014-08-28


Import-Module .\DnsShell # this has to exist ( http://dnsshell.codeplex.com/ )

$Zones = Get-DnsZone -Server $DnsServer

$ReverseZones = $Zones | Where-Object { $_.ZoneName -like '*.arpa' } |
    Select-Object -ExpandProperty ZoneName

# Example zone:
# $ReverseZones = @('12.10.in-addr.arpa')

$Dupes = @(foreach ($z in $ReverseZones) {
    
    Write-Verbose -Message "Processing zone: $z"
    
    $Records = Get-DnsRecord -ServerName $DnsServer -ZoneName $z -RecordType PTR
    $Records | ForEach-Object -Begin {
        $IpHash = @{}
        } -Process {
        $TempArray = $_.Name -replace '\.in-addr\.arpa$' -split '\.'
        $Ip = ($TempArray[-1..-($TempArray.Count)]) -join '.'
        if (-not $IpHash.ContainsKey($Ip)) {
            # New PTR. The Name property is the PTR. Create one-element array.
            $IpHash.$Ip = @($_.HostName)
        }
        else {
            # Duplicate/alias PTR, add to array.
            $IpHash.$Ip += $_.HostName
        }
            
    }
    $Duplicates = $IpHash.GetEnumerator() | Where-Object { $_.Value.Count -gt 1 }
    $Duplicates | ForEach-Object {
        New-Object psobject -Property @{
            IP = $_.Name
            Duplicates = $_.Value -join '; '
        }
    }
})

# Display in console.
$Dupes | Select IP, Duplicates | Format-Table -AutoSize

# Export CSV file (if any dupes found).
if ($Dupes.Count) {
    Write-Host -Fore Green 'Exporting CSV file PTRdupes.csv'
    $Dupes | Select IP, Duplicates | Export-Csv -Encoding UTF8 -NoTypeInformation -Path PTRdupes.csv -Delimiter ';'
}

Another Version That's not Necessarily Dependent on DnsShell

> $Var = .\Get-DupePTR.ps1
...
> $Var | Format-Table # or format-list, export-csv, or whatever sensible you want to do

Download (alternative version)

Script Code (alternative version)

[CmdletBinding()]
param()
# Copyright (C) 2014, Svendsen Tech. All rights reserved.
# Joakim Borger Svendsen
# 2014-08-15
# edited: 2014-11-08


$DnsServer = 'your.dns.server'

# This uses DnsShell to get the zones, but you can edit this to read
# zones from a file, or whatever, to avoid DnsShell.
# It uses dnscmd.exe below and parses its output, and then uses the
# (apparently obsolete) [Net.Dns] class' GetHostByAddress() method
# to look up the IP
####
#### Zones must be in the form 58.10.in-addr.arpa (for 10.58.0.0/16).
####

Import-Module .\DnsShell # this has to exist ( http://dnsshell.codeplex.com/ )
$Zones = Get-DnsZone -Server $DnsServer
$ReverseZones = $Zones | Where { $_.ZoneName -like '*.arpa' } | Select -ExpandProperty ZoneName # @('58.10.in-addr.arpa') # = 

foreach ($z in $ReverseZones) {
    Write-Host -Fore Green "Processing zone: $z" -NoNewline
    $Records = dnscmd.exe $DnsServer /ZonePrint $z # Get all records and parse them looking for duplicates below.
    #Write-Host -Fore Yellow " -- Num lines:" $Records.Count
    $Records | ForEach-Object -Begin { $IpHash = @{}; $Ctr = 0 } `
        -Process {
            if ($_ -match '^([\d.]+)\s+.*PTR\s+(\S+)\.$') {
                $IpEndReversed = $matches[1]
                #Write-Verbose $IpEndReversed
                $Ctr++
                Start-Sleep -Milliseconds 25
                $TempArray = $z -replace '\.in-addr\.arpa$' -split '\.'
                $IpStart = ($TempArray[-1..-($TempArray.Count)]) -join '.'
                $TempArray = $IpEndReversed -split '\.'
                $IpEnd = ($TempArray[-1..-($TempArray.Count)]) -join '.'
                #Write-Verbose $IpEnd
                $Ip = "$IpStart.$IpEnd"
                
                #Write-Verbose "Looking up $Ip..."
                $ErrorActionPreference = 'Stop'
                try {
                    $Dns = [Net.Dns]::GetHostByAddress($Ip)
                    # This means we found a duplicate. Send an object down the pipeline.
                    if ($Dns.Aliases -match '\S') {
                        New-Object psobject -Property @{
                            IP = $Ip
                            HostName = $Dns.HostName -join ', '
                            Aliases = $Dns.Aliases -join ', '
                            Error = $null
                        }
                    }
                }
                catch {
                    New-Object psobject -Property @{
                        IP = $Ip
                        HostName = $null
                        Aliases = $null
                        Error = $_
                    }
                }
                $ErrorActionPreference = 'Continue'
            }
        }
    Write-Host -Fore Yellow " -- Num records:" $Ctr
    #Write-Verbose "Processed $Ctr PTR records for $z"
    #Start-Sleep -Seconds 3
}

Google custom search of this website only

Minimum cookies is the standard setting. This website uses Google Analytics and Google Ads, and these products may set cookies. By continuing to use this website, you accept this.

If you want to reward my efforts