[Uragan66]

Вариант на powershell:

Код:

param (
$date = "{0:dd.MM.yyyy_HH.mm.ss}" -f (get-date), #текущая дата
$file = "Patch to\fileping.txt", #список адресов 
$only = "Patch to\online.txt" #кто онлайн
)

ForEach ($i in (Get-Content $file -Encoding utf8)) {
$ip,$is = ($i).Split(" ")
$im = $is -replace '\(|\)'
ping -n 1 -w 10 $ip > $null
if($LASTEXITCODE -eq 0) {
Add-Content $only -Encoding utf8 -Value $date' '$im' онлайн'
}
}