No replies to this topic

[Alberto Dominguez]

$file=Get-content 'C:\temp\ipsviejas.txt'
foreach ($ip in $file)
{
    write-host ($ip+':')
    Get-WmiObject -Namespace Root\MicrosoftDNS -Query "SELECT * FROM MicrosoftDNS_AType WHERE RecordData='$ip'" -Computer 'SERVERDNS.contoso.com' | select OwnerName -expandproperty OwnerName
}

[Alberto Dominguez]

$file=Get-content 'C:\temp\dnsips\ips.txt'
foreach ($ip in $file)
{
    
    $hosts=Get-WmiObject -Namespace Root\MicrosoftDNS -Query "SELECT * FROM MicrosoftDNS_AType WHERE RecordData='$ip'" -Computer 'localhost' | select OwnerName -expandproperty OwnerName
    foreach ($item in $hosts)
    {
	write-host ($ip+';'+$item)
        write-output ($ip+';'+$item)
    }
}

[Alberto Dominguez]

Incluyendo la verificación también de CNAMEs que apuntan a Host A que apuntan a la IP indicada:

$computer='localhost'
$file=Get-content 'C:\temp\dnsips\ips.txt'
foreach ($ip in $file)
{
    $hosts=Get-WmiObject -Namespace Root\MicrosoftDNS -Query "SELECT * FROM MicrosoftDNS_AType WHERE RecordData='$ip'" -Computer $computer | select OwnerName -expandproperty OwnerName
    foreach ($item in $hosts)
    {
   $itemAux=$item+'.'
        $CNAMEs=Get-WmiObject -Namespace Root\MicrosoftDNS -Query "SELECT * FROM MicrosoftDNS_CNAMEType WHERE RecordData='$itemAux'" -Computer $computer | select OwnerName -expandproperty OwnerName
   if ($CNAMEs -ne $null)
        {
            foreach ($item2 in $CNAMEs)
            {
          write-host ($ip+';'+$item+';'+$item2)
          write-output ($ip+';'+$item+';'+$item2)
       }
        }
        else
        {
          write-host ($ip+';'+$item)
          write-output ($ip+';'+$item)
        }
    }
}