Start-Transcript -Path .\log_desktop.txt
(Get-Content c:\scripts\desktoplist.txt) | ForEach {Write-Host $_, "-", ([System.Net.NetworkInformation.Ping]::new().Send($_)).Status}
Stop-Transcript