Обратный поиск DNS

Если вы можете экспортировать как CSV, а затем импортировать в Excel, тогда вы можете использовать условное форматирование для создания списка дубликатов?

http://www.tech-recipes.com/rx/35290/excel-2013-find-duplicate-data-using-conditional-formatting/

Я бы использовал nmap для проверки всех ваших живых хостов, которые должны очистить для вас остальные мертвые записи. С этого момента я настоятельно рекомендую заняться мусором. Хотя звучит весело :)

Вот два скрипта (которые почти идентичны) - один для поиска повторяющихся IP-адресов, а другой - для поиска повторяющихся имен.

#region Find duplicate name in dns records
$DupNames = Get-WmiObject -ComputerName 'dc2008' `
   -Namespace 'root\MicrosoftDNS' `
   -Class MicrosoftDNS_AType `
   -Filter "ContainerName='yadsarah.org.il'" | Select-Object RecordData, TimeStamp, OwnerName | `
Group-Object OwnerName | Where-Object {$_.Count -gt 1}

$DupNamesArr = @()
foreach ($RecordGroup in $DupNames) {
    foreach ($Record in $RecordGroup.Group) {
        $RecordObj = New-Object System.Object
        $RecordObj | Add-Member -MemberType NoteProperty -Name 'Name' -Value $Record.OwnerName
        $RecordObj | Add-Member -MemberType NoteProperty -Name 'IPAddress' -Value $Record.RecordData
        $RecordObj | Add-Member -MemberType NoteProperty -Name 'TimeStamp' -Value $Record.TimeStamp
        $DupNamesArr += $RecordObj
    }
}
#endregion

#region Find duplicate IP in dns records
$DupIPs = Get-WmiObject -ComputerName 'dc2008' `
   -Namespace 'root\MicrosoftDNS' `
   -Class MicrosoftDNS_AType `
   -Filter "ContainerName='yadsarah.org.il'" | Select-Object RecordData, TimeStamp, OwnerName | `
Group-Object RecordData | ?{$_.Count -gt 1}

$DupIPArr = @()
foreach ($RecordGroup in $DupIPs) {
    foreach ($Record in $RecordGroup.Group) {

        $RecordObj = New-Object System.Object
        $RecordObj | Add-Member -MemberType NoteProperty -Name 'Name' -Value $Record.OwnerName
        $RecordObj | Add-Member -MemberType NoteProperty -Name 'IPAddress' -Value $Record.RecordData
        $RecordObj | Add-Member -MemberType NoteProperty -Name 'TimeStamp' -Value $Record.TimeStamp
        $DupIPArr += $RecordObj
    }
}
#endregion

Ноты:

1. Некоторым системам (например, балансировке нагрузки) для правильной работы требуются некоторые повторяющиеся записи.

2. Вы можете добавить имя компьютера и IP-адрес с помощью WMI, тем самым проверив запись.

3. Записи с отметкой времени 0 статичны, то есть были добавлены вручную (и, скорее всего, важны).

Возможно, вы сможете регистрировать все реальные DNS-запросы в течение достаточно длительного периода времени (на самом деле это может быть несколько месяцев, если вы хотите поймать этот скрипт статистики один раз в квартал query-all-printer-page-statistics). Затем удалите все записи, которые никогда не запрашивались.