Мониторинг на наличността на хостовете в PowerShell

На всички желая приятен ден, искам да споделя проста инструкция „Как да спрем ръчно да пингваме десетки хостове. Без регистрация и СМС!“.

От интернет пространствата

Важно: не съм програмист и не съм системен администратор, но се налага да работя едновременно с голям набор сървъри от услуги и този скрипт го написах за собствено удобство.

На всички, на които това може да е полезно, моля, погледнете по-долу.

Защо PowershellИмам опит в писането на прости програми на Python, но той изисква или инсталиран интерпретатор, или права за стартиране на .exe, което, в рамките на работата ми, не винаги е възможно. А ето, че скриптът на Powershell често намира начин да се стартира.

Не всички обичат конзолата/терминала

Мисля, че в това няма противоречие, в противен случай всички досега щяха да ползват консолните имейл клиенти и в *nix-системите не щеше да се появи GUI.

Тъй като в ежедневието ми се налага да използвам Powershell доста примитивно, то в началото опитах да разбера дали може да му се добави GUI. Оказа се, че може и то доста лесно:

Add-Type -assembly System.Windows.Forms #Свързваме библиотеката
$main_form = New-Object System.Windows.Forms.Form #Създаваме обект с нашето "прозорче"

#Задаваме параметри за него
$main_form.Text ='Links up' #Име в заглавието
$main_form.Width = 300 #Ширина на прозореца
$main_form.Height = 200 #Височина на прозореца
$main_form.AutoSize = $true #Даваме му възможност да променя размера си автоматично, ако е необходимо
$main_form.ShowDialog() #Показваме "прозорчето"

Добавяме към този елемент изход и получаваме елементарно Windows-прозорче тавтология?.

Add-Type -assembly System.Windows.Forms #Свързваме библиотеката

$main_form = New-Object System.Windows.Forms.Form #Създаваме променлива с нашето "прозорец"

#Задаваме му параметри чрез параметрите
$main_form.Text ='Links up' #Име в заглавието
$main_form.Width = 300 #Ширина на прозореца
$main_form.Height = 200 #Височина на прозореца
$main_form.AutoSize = $true #Даваме му възможност да променя размера си при необходимост

$Label = New-Object System.Windows.Forms.Label #Всички елементи на формата ще бъдат записвани в променливи, но всъщност това са обекти, като всяка друга променлива в Powershell
$Label.Text = "Здравей! Аз съм елементарно Windows-прозорец, а какво постигна ти?" #Изходен текст
$Label.Location  = New-Object System.Drawing.Point(10,65) #Позициониране на обекта във формата по хоризонтала и вертикала (x,y)
$Label.AutoSize = $true 

$main_form.Controls.Add($Label) #добавяме създадения обект към формата, за да не изчезне при изпълнение на скрипта

$main_form.ShowDialog() #Извикваме основното елементарно прозорец

Добавяме динамика

Този инструмент, с който аз "пингувах Яндекс" и монтирах *.iso, сега разполага с отделен GUI, но това не е достатъчно. По подобен начин може да се извлече информация за наличността, но за мониторинг ще трябва да се рестартира скриптът всеки път.

Първо, нека нарисуваме две иконки и добавим възможност за показване на изображения.

$PictureBox = New-Object system.Windows.Forms.PictureBox #Обектът за показване на изображенията се нарича доста логично
$PictureBox.width = 10
$PictureBox.height = 10
$PictureBox.location = New-Object System.Drawing.Point(178,12)

#Тук минаваме към същината, свързвайки показваното изображение с резултата от проверката за достъпност на възела, използвайки командлета
#<b>test-connection</b>, където:
#-Count - предава броя на заявките
#-computer - IP адрес или домейн за запитването
#-quiet - за да получим само Boolean стойност
if ((test-connection -Count 1 -computer ya.ru -quiet) -eq $True) {
	$PictureBox.imageLocation = "C:Testyes.png" #Обектът се отнася до съответното изображение 
}
Else {
	$PictureBox.imageLocation = "C:Testno.png" #Обектът се отнася до съответното изображение 
}
$PictureBox.SizeMode = [System.Windows.Forms.PictureBoxSizeMode]::zoom

$main_form.Controls.Add($PictureBox)

Отново нашите DNS-ници не работят…

И още ще добавим бутон, за да имаме възможност да обновяваме показанията.

$Button = New-Object System.Windows.Forms.Button
$Button.Location = New-Object System.Drawing.Size(100,150) 
$Button.Size = New-Object System.Drawing.Size(80,30)
$Button.Text = "Обнови"

# Свързваме към събитието на натискане на бутона, за да извикаме всеки PictureBox съгласно описаната по-рано логика
$Button.Add_Click({ 
	if ((Test-Connection -Count 1 -computer ya.ru -quiet) -eq $True)
		{$PictureBox.imageLocation	= "C:Testyes.png"}
	Else {$PictureBox.imageLocation	= "C:Testno.png"}
	  
	if ((Test-Connection -Count 1 -computer 8.8.8.8 -quiet) -eq $True)
		{$PictureBox1.imageLocation	= "C:Testyes.png"}
	Else {$PictureBox1.imageLocation	= "C:Testno.png"}
 	})

$main_form.Controls.Add($Button)

Чудесно, сега в продукция!?

Ръчно въвеждайки около полудюжина хостове, изведнъж разбрах нещо – този проект ще свърши, хостовете ще се сменят и ще ми се наложи всеки път да коригирам скрипта. От една страна, нищо страшно, това е решение за мен. От друга страна, погледнете какво се получава:

Зрелище, само за закалени нерви

Add-Type -assembly System.Windows.Forms #Свързваме библиотеката

$main_form = New-Object System.Windows.Forms.Form #Създаваме променлива с нашето "прозорец"

#Задаваме параметри за него
$main_form.Text ='Links up' #Име в заглавието
$main_form.Width = 300 #Ширина на прозореца
$main_form.Height = 200 #Височина на прозореца
$main_form.AutoSize = $true #Даваме му възможност да променя размера си при необходимост

$Label = New-Object System.Windows.Forms.Label #Всички елементи на формата ще бъдат записвани в променливи, но всъщност са обекти, както всяка друга променлива в PowerShell
$Label.Text = "ya.ru		............................" #Изходен текст
$Label.Location  = New-Object System.Drawing.Point(15,10) #Положение на обекта във формата по хоризонтал и вертикал (x,y)
$Label.AutoSize = $true 

$Label1 = New-Object System.Windows.Forms.Label #Всички елементи на формата ще бъдат записвани в променливи, но всъщност са обекти, както всяка друга променлива в PowerShell
$Label1.Text = "8.8.8.8		............................" #Изходен текст на DNS сървъра на Google
$Label1.Location  = New-Object System.Drawing.Point(15,30) #Положение на обекта във формата по хоризонтал и вертикал (x,y)
$Label1.AutoSize = $true 

$Label2 = New-Object System.Windows.Forms.Label
$Label2.Text = "192.168.x.x	............................"
$Label2.Location  = New-Object System.Drawing.Point(15,50)
$Label2.AutoSize = $true

$Label3 = New-Object System.Windows.Forms.Label
$Label3.Text = "192.168.x.x	............................"
$Label3.Location  = New-Object System.Drawing.Point(15,70)
$Label3.AutoSize = $true

$Label4 = New-Object System.Windows.Forms.Label
$Label4.Text = "10.0.x.x	 ............................"
$Label4.Location  = New-Object System.Drawing.Point(15,90)
$Label4.AutoSize = $true

$Label5 = New-Object System.Windows.Forms.Label
$Label5.Text = "162.102.x.x	 ............................"
$Label5.Location  = New-Object System.Drawing.Point(15,110)
$Label5.AutoSize = $true

$PictureBox = New-Object system.Windows.Forms.PictureBox #Обект за извеждане на изображения с логично име
$PictureBox.width = 10
$PictureBox.height = 10

#Тук преминаваме към действието, свързвайки изобразената картинка с резултата от проверката за наличността на узла, използвайки командлет
#<b>test-connection</b>, където:
#-Count - предава броя на запитванията
#-computer - IP адрес или домейн име за запитването
#-quiet - за да получим само логическа стойност
$PictureBox.location = New-Object System.Drawing.Point(235,12)
if ((test-connection -Count 1 -computer ya.ru -quiet) -eq $True) {
	$PictureBox.imageLocation = "C:Testyes.png" #Обектът се отнася до съответната картинка 
}
Else {
	$PictureBox.imageLocation = "C:Testno.png" #Обектът се отнася до съответната картинка 
}
$PictureBox.SizeMode = [System.Windows.Forms.PictureBoxSizeMode]::zoom

$PictureBox1 = New-Object system.Windows.Forms.PictureBox #Обект за показване на изображения, наименуван логично
$PictureBox1.width = 10
$PictureBox1.height = 10
$PictureBox1.location = New-Object System.Drawing.Point(235,32)
if ((test-connection -Count 1 -computer 8.8.8.8 -quiet) -eq $True) {
	$PictureBox1.imageLocation = "C:Testyes.png" #Обектът се отнася до съответната картинка 
}
Else {
	$PictureBox1.imageLocation = "C:Testno.png" #Обектът се отнася до съответната картинка 
}
$PictureBox1.SizeMode = [System.Windows.Forms.PictureBoxSizeMode]::zoom

$PictureBox2 = New-Object system.Windows.Forms.PictureBox #Обект за показване на изображения, наименуван логично
$PictureBox2.width = 10
$PictureBox2.height = 10
$PictureBox2.location = New-Object System.Drawing.Point(235,52)
if ((test-connection -Count 1 -computer 192.168.x.x -quiet) -eq $True) {
	$PictureBox2.imageLocation = "C:Testyes.png" #Обектът се отнася до съответната картинка 
}
Else {
	$PictureBox2.imageLocation = "C:Testno.png" #Обектът се отнася до съответната картинка 
}
$PictureBox2.SizeMode = [System.Windows.Forms.PictureBoxSizeMode]::zoom

$PictureBox3 = New-Object system.Windows.Forms.PictureBox #Обект за показване на изображения, наименуван логично
$PictureBox3.width = 10
$PictureBox3.height = 10
$PictureBox3.location = New-Object System.Drawing.Point(235,72)
if ((test-connection -Count 1 -computer 192.168.x.x -quiet) -eq $True) {
	$PictureBox3.imageLocation = "C:Testyes.png" #Обектът се отнася до съответната картинка 
}
Else {
	$PictureBox3.imageLocation = "C:Testno.png" #Обектът се отнася до съответната картинка 
}
$PictureBox3.SizeMode = [System.Windows.Forms.PictureBoxSizeMode]::zoom

$PictureBox4 = New-Object system.Windows.Forms.PictureBox #Обект за показване на изображения, наименуван логично
$PictureBox4.width = 10
$PictureBox4.height = 10
$PictureBox4.location = New-Object System.Drawing.Point(235,92)
if ((test-connection -Count 1 -computer 10.0.x.x -quiet) -eq $True) {
	$PictureBox4.imageLocation = "C:Testyes.png" #Обектът се отнася до съответната картинка 
}
Else {
	$PictureBox4.imageLocation = "C:Testno.png" #Обектът се отнася до съответната картинка 
}
$PictureBox1.SizeMode = [System.Windows.Forms.PictureBoxSizeMode]::zoom

$PictureBox5 = New-Object system.Windows.Forms.PictureBox #Обект за показване на изображения, наименуван логично
$PictureBox5.width = 10
$PictureBox5.height = 10
$PictureBox5.location = New-Object System.Drawing.Point(235,112)
if ((test-connection -Count 1 -computer 162.102.x.x -quiet) -eq $True) {
	$PictureBox5.imageLocation = "C:Testyes.png" #Обектът се отнася до съответната картинка 
	}
Else {
	$PictureBox5.imageLocation = "C:Testno.png" #Обектът се отнася до съответната картинка 
	}
$PictureBox5.SizeMode = [System.Windows.Forms.PictureBoxSizeMode]::zoom

$Button = New-Object System.Windows.Forms.Button
$Button.Location = New-Object System.Drawing.Size(100,150) 
$Button.Size = New-Object System.Drawing.Size(80,30)
$Button.Text = "Презареди"

# Прикачваме на събитие натискането на бутона за всяко PictureBox според описаната по-рано логика
$Button.Add_Click({ 
	if ((Test-Connection -Count 1 -computer ya.ru -quiet) -eq $True)
		{$PictureBox.imageLocation	= "C:Testyes.png"}
	Else {$PictureBox.imageLocation	= "C:Testno.png"}
	  
	if ((Test-Connection -Count 1 -computer 8.8.8.8 -quiet) -eq $True)
		{$PictureBox1.imageLocation	= "C:Testyes.png"}
	Else {$PictureBox1.imageLocation	= "C:Testno.png"}

	if ((Test-Connection -Count 1 -computer 192.168.x.x -quiet) -eq $True)
		{$PictureBox2.imageLocation	= "C:Testyes.png"}
	Else {$PictureBox2.imageLocation	= "C:Testno.png"}

	if ((Test-Connection -Count 1 -computer 192.168.x.x -quiet) -eq $True)
		{$PictureBox3.imageLocation	= "C:Testyes.png"}
	Else {$PictureBox3.imageLocation	= "C:Testno.png"}

	if ((Test-Connection -Count 1 -computer 10.0.x.x -quiet) -eq $True)
		{$PictureBox4.imageLocation	= "C:Testyes.png"}
	Else {$PictureBox4.imageLocation	= "C:Testno.png"}

	if ((Test-Connection -Count 1 -computer 162.102.x.x -quiet) -eq $True)
		{$PictureBox5.imageLocation	= "C:Testyes.png"}
	Else {$PictureBox5.imageLocation	= "C:Testno.png"}
	})

$main_form.Controls.Add($Label) #добавяме създадения обект към формата, за да не се изгуби при изпълнение на скрипта
$main_form.Controls.Add($Label1)
$main_form.Controls.Add($Label2)
$main_form.Controls.Add($Label3)
$main_form.Controls.Add($Label4)
$main_form.Controls.Add($Label5)
$main_form.Controls.Add($PictureBox)
$main_form.Controls.Add($PictureBox1)
$main_form.Controls.Add($PictureBox2)
$main_form.Controls.Add($PictureBox3)
$main_form.Controls.Add($PictureBox4)
$main_form.Controls.Add($PictureBox5)
$main_form.Controls.Add($Button)

$main_form.ShowDialog() #Показваме елементарен диалогов прозорец

Дори и да се спазва чистота и да се спазва структура, периодичното редактиране ще предизвиква не най-приятните усещания.

Първо изнасяме проверката на наличността в отделна функция, а пътят към каталога в отделна променлива:

$script_path	= "C:TestPS ping"

#Преминаваме в функцията, а вече съществуващият обект PictureBox и IP адреса, който трябва да проверим.
#На изхода той променя заредената картинка.
function get_status($PictureBox,$path_ip) {
	if ((Test-Connection -Count 1 -computer $path_ip -quiet) -eq $True)
		{$PictureBox.imageLocation	= $script_path + "yes.png"}
	Else {$PictureBox.imageLocation	= $script_path + "no.png"} 
	}

Ще изнесем данните за хоста във външен файл path.txt, записвайки ги в вида «ip/host-functional-name/», а в документа ще ги приемем в масиви. Също така ще направим изчислението на позицията по Y по-автоматизирано. Всичко това ни дава възможност да създадем Label и чекбоксове чрез извикване на функция:

#создаем описательную линию, на вход идут: объект Label, IP-адресс, описание и позиция по оси Y
Function Create_line($label,$path_ip,$caption, $top){ 
	$label.Location = New-Object System.Drawing.Point(1, $top)
	$label.text = $path_ip+$caption
	$label.font = $font
	$Label.AutoSize = $true
	}
#создаем индикатор для описательной линию, на вход идут: объект PictureBox, IP-адресс и позиция по оси Y
Function Create_link($PictureBox,$path_ip, $top){ 
	$PictureBox.width	= 10
	$PictureBox.height	= 10
	$PictureBox.location	= New-Object System.Drawing.Point(210,$top)
	get_status -PictureBox $PictureBox -path_ip $path_ip
	$PictureBox.SizeMode	= [System.Windows.Forms.PictureBoxSizeMode]::zoom
	}

$line = Get-content -LiteralPath $script_path"path.txt" #вытаскиваем данные о необходимых хостах
$len = $line.Length	#вычисляем длину, а точнее массив длин каждой строки

$i = 0

#далее объявляем массивы которые понадобятся дальше
$ip = @()	#массив ip
$capt = @()	#массив описания
$Labels =@()	#массив Label
$PictureBoxs =@()	#массив PictureBox

while($i -lt $len){
	$f = $line[$i].IndexOf("/") #вычисляем позицию начала описания
	$l = $line[$i].LastIndexOf("/")	#вычисляем позицию конца описания
	$ip += $line[$i].Substring(0,$f)	#вытаскиваем ip
	$capt += $line[$i].Substring($f+1,$l-$f-1)	#вытаскиваем описание

	#создаем поле Label
	Create_line -label ($label_obj = New-Object System.Windows.Forms.Label) -path_ip $ip[$i] -caption $capt[$i] -top $label_from_top
	#создаем поле PictureBox
	Create_link -PictureBox ($PictureBox_obj = New-Object system.Windows.Forms.PictureBox) -path_ip $ip[$i] -top $label_from_top

	$label_from_top += 15	#делаем "шаг" по оси Y

	$Labels	+= $label_obj	#вносим созданный Label в общий массив
	$PictureBoxs	+= $PictureBox_obj	#вносим созданный PictureBox в общий массив
	$main_form.Controls.Add($Labels[$i])
	$main_form.Controls.Add($PictureBoxs[$i])
	$i	+=1
	}

Ще добавим място за показване на времето на последната проверка, защото това е удобно, и леко ще допълним действието при натискане на бутона.

$Label0	= New-Object System.Windows.Forms.Label
$Label0.Text	= Get-Date
$Label0.Location	= New-Object System.Drawing.Point(80,180)
$Label0.AutoSize	= $true
$main_form.Controls.Add($Label0)
$Button.Add_Click({ 
	while($i -lt $len){
		get_status -PictureBox $PictureBoxs[$i] -path_ip $ip[$i]
		$i +=1
		}
	$Label0.Text	= Get-Date 
	})

Също така прикрепих малък бъг, който при откриване на недостъпен хост не само промени индикатора, но и изкрещя от високоговорителите.

Add-Type -AssemblyName System.Speech
$voice	= New-Object System.Speech.Synthesis.SpeechSynthesizer
$voice.Rate	= 5
$voice.Speak("Предупреждение! Предупреждение! Сървърът е под атака!")

Та, след няколко подобрения и форматиране в четим и удобен за мен вид, получи се нещо такова:

Пълен код на скрипта

Add-Type -AssemblyName System.Speech
Add-Type -assembly System.Windows.Forms

$script_path	= "C:PS ping"
$label_from_top	= 10
$voice	= New-Object System.Speech.Synthesis.SpeechSynthesizer
$voice.Rate	= 5

#Преминаваме към функцията с вече съществуващия обект PictureBox и IP адреса, който трябва да проверим.
#На изхода, тя променя зарежданата картинка.
function get_status($PictureBox,$path_ip) {
	if ((Test-Connection -Count 1 -computer $path_ip -quiet) -eq $True) {
		$PictureBox.imageLocation	= $script_path + "yes.png"
		}
	Else {
		$PictureBox.imageLocation	= $script_path + "no.png"
		$voice.Speak("Грешка! Хост " + $path_ip + ", е недостъпен!")
		}
	}

#Създаваме описателна линия, на входа идват: обект Label, IP адрес, описание и позиция по ос Y
Function Create_line($label,$path_ip,$caption, $top){ 
	$label.Location	= New-Object System.Drawing.Point(1, $top)
	$label.text	= $path_ip+$caption
	$label.font	= $font
	$Label.AutoSize	= $true
	}

#Създаваме индикатор за описателната линия, на входа идват: обект PictureBox, IP адрес и позиция по ос Y
Function Create_link($PictureBox,$path_ip, $top){ 
	$PictureBox.width	= 10
	$PictureBox.height	= 10
	$PictureBox.location	= New-Object System.Drawing.Point(210,$top)
	get_status -PictureBox $PictureBox -path_ip $path_ip
	$PictureBox.SizeMode	= [System.Windows.Forms.PictureBoxSizeMode]::zoom
	}

$main_form	= New-Object System.Windows.Forms.Form
$main_form.Text ='Links up' #Име в заглавката
$main_form.Width = 300 #Ширина на прозореца
$main_form.Height = 200 #Височина на прозореца
$main_form.AutoSize = $true #Позволяваме му да променя размера си, ако е необходимо
$main_form.TopMost	= $true #Това е много важно, позволява на прозореца да се закрепи над другите

$line = Get-content -LiteralPath $script_path"path.txt" #Извличаме данни за необходимите хостове
$len = $line.Length	#Изчисляваме дължината, а всъщност масив дължината на всяка ред

$i = 0

#След това обявяваме масиви, които ще са необходими по-късно
$ip	= @()	#Масив ip
$capt	= @()	#Масив описание
$Labels	=@()	#Масив Label
$PictureBoxs	=@()	#Масив PictureBox

while($i -lt $len){
	$f	= $line[$i].IndexOf("/") #Изчисляваме позицията на началото на описанието
	$l	= $line[$i].LastIndexOf("/")	#Изчисляваме позицията на края на описанието
	$ip	+= $line[$i].Substring(0,$f)	#Извличаме ip
	$capt	+= $line[$i].Substring($f+1,$l-$f-1)	#Извличаме описанието

	#Създаваме поле Label
	Create_line -label ($label_obj = New-Object System.Windows.Forms.Label) -path_ip $ip[$i] -caption $capt[$i] -top $label_from_top
	#Създаваме поле PictureBox
	Create_link -PictureBox ($PictureBox_obj = New-Object system.Windows.Forms.PictureBox) -path_ip $ip[$i] -top $label_from_top

	$label_from_top	+= 15	#Правим "стъпка" по ос Y

	$Labels	+= $label_obj	#Въвеждаме създадения Label в общия масив
	$PictureBoxs	+= $PictureBox_obj	#Въвеждаме създадения PictureBox в общия масив
	$main_form.Controls.Add($Labels[$i])
	$main_form.Controls.Add($PictureBoxs[$i])
	$i	+=1
}

#Това поле е с последното време на проверка
$Label0	= New-Object System.Windows.Forms.Label
$Label0.Text	= Get-Date
$Label0.Location	= New-Object System.Drawing.Point(80,180)
$Label0.AutoSize	= $true


# Добавяме към събитието за натискане на бутона, за да извикаме всяко PictureBox съгласно предписаната логика
$Button	= New-Object System.Windows.Forms.Button
$Button.Location	= New-Object System.Drawing.Size(100,200)
$Button.Size	= New-Object System.Drawing.Size(80,30)
$Button.Text	= "Презареждане"

$Button.Add_Click({ 
	while($i -lt $len){
		get_status -PictureBox $PictureBoxs[$i] -path_ip $ip[$i]
		$i	+=1
		}
	$i	= 0
	$Label0.Text	= Get-Date 
})

$main_form.Controls.Add($Button)
$main_form.Controls.Add($Label0)

$main_form.ShowDialog()

Следсловие

Надявам се тозиTutorial да е полезен на някого. Ако обаче вие правите такива неща от малки, поздравления, аз не го направих. Но съм готов да изслушам вашите коментари и предложения.

За мен беше приятно да се поразровя и да събера такава малка, но полезна утилита. Имам планове да реализирам добавяне и изтриване на възли от GUI, а също така и автоматично обновяване на статусите без необходимост от натискане на бутона, и да не блокира 'powershell.exe'.

Последната версия на скрипта е на GitHub

Източник: habr.com