Automatización de inventario de red: ping sweep y detección de dispositivos

Haz un ping sweep de la red 192.168.1.0/24, detecta todos los dispositivos activos, obtén sus hostnames y MACs y genera un Excel con el inventario de red

$red = "192.168.1"
$resultados = 1..254 | ForEach-Object -Parallel {
    $ip = "$using:red.$_"
    if (Test-Connection -ComputerName $ip -Count 1 -Quiet) {
        $hostname = try { [System.Net.Dns]::GetHostEntry($ip).HostName } catch { "N/A" }
        $arp = (arp -a $ip | Select-String $ip).ToString().Trim()
        $mac = if ($arp -match '([0-9A-Fa-f]{2}[:-]){5}[0-9A-Fa-f]{2}') { $matches[0] } else { "N/A" }
        [PSCustomObject]@{ IP = $ip; Hostname = $hostname; MAC = $mac; Estado = "Activo" }
    }
} -ThrottleLimit 50

$resultados | Sort-Object { [version]$_.IP } | Export-Csv "inventario_red.csv" -NoTypeInformation
Write-Host "Dispositivos encontrados: $($resultados.Count)"