ການຕິດຕາມຄວາມພ້ອມຂອງເຈົ້າພາບໃນ Powershell

ມື້ທີ່ດີທຸກຄົນ, ຂ້ອຍຕ້ອງການແບ່ງປັນຄໍາແນະນໍາງ່າຍໆ "ເຈົ້າສາມາດຢຸດການ pinging ໂຮດດ້ວຍຕົວເອງໄດ້ແນວໃດ. ບໍ່ມີການລົງທະບຽນ ຫຼື SMS!”

ຈາກອິນເຕີເນັດ

ທີ່ສໍາຄັນຂ້ອຍບໍ່ແມ່ນນັກຂຽນໂປຣແກຣມ ຫຼື ຜູ້ເບິ່ງແຍງລະບົບ, ແຕ່ຂ້ອຍຕ້ອງເຮັດວຽກກັບຊຸດໃຫຍ່ຂອງ ເຄື່ອງແມ່ຂ່າຍ ແລະການບໍລິການ ແລະ ຂ້ອຍໄດ້ຂຽນສະຄຣິບນີ້ເພື່ອຄວາມສະດວກສະບາຍຂອງຂ້ອຍເອງ.

ໃຜກໍ່ຕາມທີ່ອາດຈະຊອກຫານີ້ເປັນປະໂຫຍດຫຼືຢາກຮູ້ຢາກເຫັນ, ຂ້າພະເຈົ້າຂໍໃຫ້ພາຍໃຕ້ cat ໄດ້.

ເປັນຫຍັງ Powershellຂ້ອຍມີປະສົບການຂຽນໂປລແກລມງ່າຍໆໃນ Python, ແຕ່ມັນຮຽກຮ້ອງໃຫ້ມີນາຍພາສາທີ່ຕິດຕັ້ງຫຼືການອະນຸຍາດເພື່ອດໍາເນີນການ .exe, ເຊິ່ງມັນເປັນໄປບໍ່ໄດ້ຕະຫຼອດເວລາໃນຂອບເຂດການເຮັດວຽກຂອງຂ້ອຍ. ແຕ່ສະຄຣິບ Powershell ມັກຈະຊອກຫາໂອກາດທີ່ຈະດໍາເນີນການ.

ບໍ່ແມ່ນທຸກຄົນມັກ console/terminal

ຂ້າພະເຈົ້າຄິດວ່າບໍ່ມີຄວາມຂັດແຍ້ງໃນເລື່ອງນີ້, ຖ້າບໍ່ດັ່ງນັ້ນທຸກຄົນຍັງໃຊ້ console email clients ແລະ GUI ຈະບໍ່ປາກົດຢູ່ໃນລະບົບ *nix.

ເນື່ອງຈາກວ່າໃນຊີວິດປະຈໍາວັນຂ້ອຍຕ້ອງໃຊ້ 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() #Вызываем "окно"

ພວກເຮົາເພີ່ມອົງປະກອບຜົນຜະລິດໃສ່ນີ້ແລະໄດ້ຮັບ Windwows-window tautology ປະຖົມ?.

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() #Вызываем оскорбительно элементарное окно

ມາເພີ່ມລຳໂພງ

ດັ່ງນັ້ນເຄື່ອງມືທີ່ຂ້ອຍ "pinged Yandex" ແລະຕິດຕັ້ງ *.iso ໄດ້ຮັບ GUI ແຍກຕ່າງຫາກ, ແຕ່ນີ້ບໍ່ພຽງພໍ. ໃນລັກສະນະທີ່ຄ້າຍຄືກັນ, ທ່ານສາມາດສະແດງຂໍ້ມູນກ່ຽວກັບການມີຢູ່, ແຕ່ສໍາລັບການຕິດຕາມທ່ານຈະຕ້ອງ restart script ແຕ່ລະຄັ້ງ.

ທໍາອິດ, ໃຫ້ແຕ້ມສອງໄອຄອນແລະເພີ່ມຄວາມສາມາດໃນການສະແດງຮູບພາບ.

$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 ຂອງ​ພວກ​ເຮົາ​ແມ່ນ​ຫຼິ້ນ pranks ອີກ​ເທື່ອ​ຫນຶ່ງ ...

ແລະພວກເຮົາຈະເພີ່ມປຸ່ມເພື່ອສາມາດອັບເດດການອ່ານໄດ້.

$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 = "Reload"

# Вешаем на событие нажатия кнопки обращение каждого 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)

ສິ່ງມະຫັດ, ປະຈຸບັນຢູ່ໃນການຜະລິດ!?

ມີການລົງທະບຽນດ້ວຍຕົນເອງປະມານເຄິ່ງຫນຶ່ງຂອງເຈົ້າພາບ, ຂ້າພະເຈົ້າທັນທີທັນໃດໄດ້ຮັບຮູ້ສິ່ງຫນຶ່ງ - ໂຄງການນີ້ຈະສິ້ນສຸດລົງ, ເຈົ້າພາບຈະປ່ຽນແປງແລະຂ້ອຍຈະຕ້ອງແກ້ໄຂສະຄິບທຸກໆຄັ້ງ. ໃນທາງກົງກັນຂ້າມ, ມັນບໍ່ເປັນຫຍັງ, ນີ້ແມ່ນການຕັດສິນໃຈສໍາລັບຄົນທີ່ທ່ານຮັກ. ໃນທາງກົງກັນຂ້າມ, ນີ້ແມ່ນການຕັດສິນໃຈສໍາລັບຕົວທ່ານເອງ, ເບິ່ງສິ່ງທີ່ເກີດຂື້ນ:

spectacle ບໍ່ແມ່ນສໍາລັບ faint ຂອງຫົວໃຈ

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		............................" #Выводимый текст googl-овский DNS-ник
$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 - для того чтобы нам вернулось только Boolean значение
$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 = "Reload"

# Вешаем на событие нажатия кнопки обращение каждого 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"} 
	}

ໃຫ້ພວກເຮົາເອົາຂໍ້ມູນ host ເຂົ້າໄປໃນໄຟລ໌ພາຍນອກ path.txt, ຂຽນມັນໃນຮູບແບບ "ip/host-functional-name/", ແລະໃນເອກະສານພວກເຮົາຈະໄດ້ຮັບໃນ arrays. ພວກເຮົາຍັງຈະເຮັດໃຫ້ການຄິດໄລ່ຕໍາແຫນ່ງ Y ອັດຕະໂນມັດຫຼາຍຂຶ້ນ. ທັງໝົດນີ້ເຮັດໃຫ້ພວກເຮົາມີໂອກາດສ້າງປ້າຍກຳກັບ ແລະກ່ອງໝາຍໂດຍການເອີ້ນຟັງຊັນ:

#создаем описательную линию, на вход идут: объект 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	= "Reload"

$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()

Afterword

ຂ້າ​ພະ​ເຈົ້າ​ຫວັງ​ວ່າ tutorial ນີ້​ຈະ​ເປັນ​ປະ​ໂຫຍດ​ສໍາ​ລັບ​ບາງ​ຄົນ​. ຖ້າທ່ານໄດ້ເຮັດສິ່ງນີ້ເກືອບຕັ້ງແຕ່ cradle, ຫຼັງຈາກນັ້ນຂໍສະແດງຄວາມຍິນດີ, ຂ້າພະເຈົ້າບໍ່ໄດ້. ແຕ່ຂ້ອຍພ້ອມທີ່ຈະຮັບຟັງຄໍາຄິດເຫັນແລະຄໍາແນະນໍາຂອງເຈົ້າ.

ສຳ ລັບຂ້ອຍ, ມັນດີໃຈທີ່ຈະຂຸດຄົ້ນແລະເອົາສິ່ງທີ່ເປັນປະໂຫຍດນ້ອຍໆແຕ່ມີປະໂຫຍດໃນຊີວິດປະ ຈຳ ວັນຮ່ວມກັນ. ແຜນການດັ່ງກ່າວຍັງລວມເຖິງການເພີ່ມແລະລຶບ nodes ຈາກ GUI, ເຊັ່ນດຽວກັນກັບການເຮັດສິ່ງທີ່ຄວນຈະໄດ້ຮັບການປະຕິບັດໃນຕອນທໍາອິດ - ການປັບປຸງສະຖານະພາບອັດຕະໂນມັດໂດຍບໍ່ຈໍາເປັນຕ້ອງ "poke" ປຸ່ມແລະເພື່ອບໍ່ໃຫ້ມັນວາງສາຍ "powershell.exe" .

ສະບັບຫລ້າສຸດຂອງສະຄິບກ່ຽວກັບ GitHub

ແຫຼ່ງຂໍ້ມູນ: www.habr.com