Resolve a Subnet (dirty)

gistfile1.ps1

Function Get-SubnetResolution {

    $Subnet = '74.125.228' #change this
    $Wait = 2 #Seconds to wait between resolution
    $HostRangeLow = 1
    $HostRangeHigh = 10
    $Range = $HostRangeLow..$HostRangeHigh 
    
    #Instantiate once
    $DnsObject = [Net.DNS]

    Foreach ($TargetHost in $Range) {
        $IPAddress = $Subnet + '.' + $TargetHost
        $Resolved = $DnsObject::GetHostEntry("$IPAddress")

        $ObjectProps = @{'Hostname' = $Resolved.HostName;
                         'IP Address' = $Resolved.AddressList}
                
        $Results = New-Object -TypeName PSObject -Property $ObjectProps
        Write-Output $Results
        Start-Sleep -Seconds $Wait
    }
}
Get-SubnetResolution