Powershell Pinger #2

[Hikedaya]

От идеи пингера, сидящего в системном трее, временно пришлось отказаться. Скрипт поглощал память как не в себя. Когда увидел число в полгигабайта, остановил его и отложил в сторону. Нет, правильно писать многозадачный скрипт я еще пока не умею. Остановимся на первоначальном варианте - однопоточный опрос. Добавим в него возможность комментариев к адресам, перечисленным в файле хостов. Попутно пусть этот пингер ведет некий лог, когда какой хост упал, и когда он вернулся в строй. Вот что вышло (комментарии даны прямо в коде).

#define variables
#настройка каталога с файлами данных
$configDir = (split-path -parent $MyInvocation.MyCommand.Definition)+"\config\"

#настройка лог-файла
$logFile = (split-path -parent $MyInvocation.MyCommand.Definition)+"\log.txt"
"Host,description,status,date" | out-file $logfile -encoding UTF8

#очистка таблицы недоступных хостов
$OutageHosts = $Null

#таймаут итераций
$SleepTimeOut = 30

#main route
do {
    #очищаем экран и показываем текущие дату и время
    cls
    get-date
    
    #список доступных хостов, нужен для подсчета числа хостов в конце
    $available = $Null
    
    #список недоступных хостов, нужен для подсчета числа хостов в конце
    $notavailable = $Null
    
    #текст, выводимый в лог-файл
    $text = $NULL
    
    #хэш-таблица со сбойными хостами
    $OutageHosts= @{}
    
    #переменная, хранящая данные о хостах из текстовых файлов
    $data = @()
    
    #получаем информацию о хостах из всех файлов данных
    get-childitem $configDir -Filter "*.txt" | where {$_.Name -notlike "_*.*"} | %{
        $data += (import-csv $_.FullName -header "Address","Description")
    }
    
    #обходим в цикле все хосты, список хостов отсортирован по адресу по возрастанию
    foreach ($line in $data | sort-object address) {
        #если адрес хоста не равен "" и не содержит "#" - обрабатываем
        if (($line.Address -ne "") -and ($line.address -notlike "#*")) {
            
            # если пинг пройден
            if (Test-Connection -ComputerName $line.address -Count 1 -ea silentlycontinue) { 
                #если хост доступен, пишем на экран и заносим в список доступных
                write-host "up`t"$line.address -ForegroundColor Green
                [Array]$available += $line.address
                
                #если хост есть в таблице сбойных
                if ($OutageHosts.ContainsKey($line.address)) { 
                    #убираем хост из таблицы сбойных и пишем в лог о восстановлении хоста
                    $OutageHosts.Remove($line.address)
                    $text = "$($line.address),$($line.description),UP,$(get-date)"
                    out-file $logfile -inputobject $text -encoding UTF8 -append
                }
            }
            # если пинг не пройден
            else { 
                
                #ГРЯЗНЫЙ ХАК: вторичный пинг недоступного хоста.
                #нужен для исключения ложных срабатываний.
                if (!(Test-Connection -ComputerName $line.address -Count 2 -ea silentlycontinue)) {
                    
                    #если хост не доступен после вторичного пинга с 2 пакетами,
                    #пишем об этом на экран и заносим хост в список недоступных
                    write-host "DOWN`t"$line.address" "$line.description -ForegroundColor Red
                    [Array]$notavailable += $line.address
                    
                    #если хоста нет в таблице сбойных
                    if (!$OutageHosts.ContainsKey($line.address)) {
                        
                        #вносим хост в таблицу сбойных, пишем в лог о сбое хоста, пищим
                        $OutageHosts.Add($line.address,(get-date))
                        $text = "$($line.address),$($line.description),DOWN,$(get-date)"
                        out-file $logfile -inputobject $text -encoding UTF8 -append
                        [console]::beep(2000,500)
                    }
                } 
            }
        }
    }
    
    #Выводим на экран результаты итерации
    Write-Host "Число доступных:"$available.count
    Write-Host "Число недоступных:"$notavailable.count
    Write-Host "Недоступны хосты:"
    $OutageHosts
    Write-Host ""
    Write-Host "Sleeping $SleepTimeOut seconds"
    sleep $SleepTimeOut
    clear
}
while ($true)

Чем больше смотрю на указанный в коде "грязный хак" - тем больше фигею и фигею. А что делать? Иначе количество ложных срабатываний выведет из себя даже самого терпеливого коллегу. Не говоря уже о том, что я и сам долготерпением не обладаю.
Формат файлов с описанием хостов не поменялся: это все те же текстовые файлы с информацией вида ipaddress,comment, лежащие в папке config рядом с самим скриптом. Там же, рядышком со скриптом будет лежать и формируемый лог взлетов и падений.

@настроение: клац-клац-клац

@темы: PowerShell, Scripting