Новые проверки

Author: leobrn

main.os

@@ -12,6 +12,8 @@
 	Приложение.Версия("v version", ПараметрыПриложения.Версия());
 
 	Приложение.ДобавитьКоманду("disk", "Проверка дисков", Новый КомандаПроверкаДисков);
+	Приложение.ДобавитьКоманду("ram", "Проверка памяти", Новый КомандаПроверкаПамяти);
+	Приложение.ДобавитьКоманду("cpu", "Проверка процессора", Новый КомандаПроверкаПроцессора);
 
 	Приложение.УстановитьОсновноеДействие(ЭтотОбъект);
 	Приложение.Запустить(АргументыКоманднойСтроки);

src/Классы/КомандаПроверкаПамяти.os

@@ -0,0 +1,8 @@
+Процедура ВыполнитьКоманду(Знач Команда) Экспорт
+	
+	Лог = Мониторинг.Лог();
+	Лог.Отладка("Проверка памяти через команду ram" );
+
+	Мониторинг.ВыполнитьПроверки("ПроверкаПамяти");
+
+КонецПроцедуры

src/Классы/КомандаПроверкаПроцессора.os

@@ -0,0 +1,8 @@
+Процедура ВыполнитьКоманду(Знач Команда) Экспорт
+	
+	Лог = Мониторинг.Лог();
+	Лог.Отладка("Проверка процессора через команду cpu" );
+
+	Мониторинг.ВыполнитьПроверки("ПроверкаПроцессора");
+
+КонецПроцедуры

src/Модули/Мониторинг.os

@@ -26,11 +26,23 @@
 
 	Проверки = Новый Соответствие();
 	Проверки.Вставить("ПроверкаДисков", ПроверкаДисков);
+	Проверки.Вставить("ПроверкаПамяти", ПроверкаПамяти);
+	Проверки.Вставить("ПроверкаПроцессора", ПроверкаПроцессора);
 
 	Возврат Проверки; 
 
 КонецФункции
 
+Функция ДанныеСистемы(ТекстЗапроса) Экспорт
+   
+	WMI = Новый COMОбъект("WbemScripting.SWbemLocator");
+    Сервис = WMI.ConnectServer(".", "root\cimv2");
+    Результат = Сервис.ExecQuery(ТекстЗапроса);
+    
+	Возврат Результат;
+
+КонецФункции
+
 #КонецОбласти
 
 #Область Логирование

src/Модули/ПроверкаПамяти.os

@@ -0,0 +1,36 @@
+#Использовать logos
+
+Перем Лог;
+
+Процедура ВыполнитьПроверку(ПараметрыПроверки) Экспорт
+	
+	Лог = Мониторинг.Лог();
+	Лог.Информация("Начало проверки памяти");
+	
+	Порог = ПараметрыПроверки["Порог"];
+	ДанныеПамяти = Мониторинг.ДанныеСистемы("SELECT * FROM Win32_OperatingSystem");
+	
+	Для Каждого Элемент Из ДанныеПамяти Цикл
+		
+		ОбщаяПамять = Элемент.TotalVisibleMemorySize;
+		СвободнаяПамять = Элемент.FreePhysicalMemory;
+		ИспользованнаяПамять = ОбщаяПамять - СвободнаяПамять;
+		ПроцентИспользования = Окр((ИспользованнаяПамять / ОбщаяПамять) * 100, 0);
+		
+		Если ПроцентИспользования > Порог Тогда
+		
+			Лог.Ошибка("Использовано памяти %1%%, что превышает порог %2%%.",
+			ПроцентИспользования, Порог);
+		
+		Иначе
+			
+			Лог.Информация("Использовано памяти %1%%",
+				ПроцентИспользования);
+		
+		КонецЕсли;
+
+	КонецЦикла;
+	
+	Лог.Информация("Завершение проверки памяти");
+	
+КонецПроцедуры

src/Модули/ПроверкаПроцессора.os

@@ -0,0 +1,33 @@
+#Использовать logos
+
+Перем Лог;
+
+Процедура ВыполнитьПроверку(ПараметрыПроверки) Экспорт
+	
+	Лог = Мониторинг.Лог();
+	Лог.Информация("Начало проверки процессора");
+
+	Порог = ПараметрыПроверки["Порог"];
+	ДанныеПроцессора = Мониторинг.ДанныеСистемы("SELECT * FROM Win32_Processor");
+
+	Для Каждого Элемент Из ДанныеПроцессора Цикл
+		
+		ПроцентЗагрузки = Элемент.LoadPercentage;
+
+		Если ПроцентЗагрузки > Порог Тогда
+		
+			Лог.Ошибка("Загрузка процессора %1%%, что превышает порог %2%%.",
+				ПроцентЗагрузки, Порог);
+		
+		Иначе
+			
+			Лог.Информация("Загрузка процессора %1%%",
+				ПроцентЗагрузки);
+		
+		КонецЕсли;
+
+	КонецЦикла;
+
+	Лог.Информация("Завершение проверки процессора");
+
+КонецПроцедуры

src/Модули/УведомленияТелеграм.os

@@ -22,7 +22,7 @@
 
 	Сообщение = Заголовок + Символы.ПС + Символы.ПС + Текст;
 
-	АдресРесурса = "api.telegram.org/bot" + Токен + "/sendMessage";
+	АдресРесурса = "https://api.telegram.org/bot" + Токен + "/sendMessage";
 
 	Для Каждого Получатель Из Получатели Цикл