Контроль места на дисках

Один из последних случаев на работе. Диск, на котором хранились файлы базы, «развалился», база потеряна. Начали искать копию базы. Копии базы делались на другой диск, но оказалось, что на том диске нет места и копии не делались несколько дней. Так было потеряно несколько дней работы фирмы, кому-то выговор, кого-то уволили((.

Категория: Публикации 1С

Подробнее

Описание
Подробнее

Описание

Все делается очень и очень просто.

Добавляем регламентное задание, добавляем расписание для регламентного задания, далее пишем процедуру проверки места на дисках, используя объект "scripting.fileSystemObject".

Процедура отправки выглядит так:

Процедура ПроверитьМестоНаДисках() Экспорт
	
	#Если Сервер Тогда 		
		Попытка
                        // можно вынести в константу или добавить регистр сведений, где можно хранить свободное место для каждого диска отдельно			
                        МинимальноДопустимыйСвободныйОбъемГБ = 30; 
			
			СписокАдресов = Новый СписокЗначений;
			СписокАдресов.Добавить("wowik@infostart.ru");
			СписокАдресов.Добавить("wowik_2@infostart.ru");
		        СписокАдресов.Добавить("wowik_3@infostart.ru");

			fso = Новый COMОбъект("scripting.fileSystemObject");
			Диски = fso.Drives;
			
			Тема = "Недостаточно свободного места на дисках на сервере!";		
			ТекстПисьма = "<P>"+Тема+"</P>"; 
			
			ОтправитьСообщение = Ложь;
			для каждого диск из Диски Цикл
				Если диск.ShareName = "" и диск.IsReady Тогда
					ВсегоГигаБайт    = Окр(диск.TotalSize/(1024*1024*1024));				
					СвободноГигаБайт = Окр(диск.FreeSpace/(1024*1024*1024));
					Процент          = Окр((СвободноГигаБайт/ВсегоГигаБайт)*100);
					
					Если СвободноГигаБайт <= МинимальноДопустимыйСвободныйОбъемГБ Тогда
						ОтправитьСообщение = Истина;
						ТекстПисьма = ТекстПисьма + "<P> Диск "+диск.Path+" свободно: "+СвободноГигаБайт+" ГБ из "+ВсегоГигаБайт+" ГБ ("+Процент+"%)</P>";
					КонецЕсли;
				КонецЕсли;
			КонецЦикла; 
			Если ОтправитьСообщение Тогда
				ОтправитьСообщениеНаПочту(СписокАдресов, Тема, ТекстПисьма); 		
			КонецЕсли;
		Исключение
		КонецПопытки;	
	#КонецЕсли
	
КонецПроцедуры

Работоспособность проверена на конфигурации "Управление производственным предприятием, редакция 1.3 (1.3.87.2)".

За местом на дисках должны в обязательном порядке следить системные администраторы — так и только так, но лучше лишний раз "обезопасить" труд сотрудников.

Перед любыми обновлениями базы делайте копии!

Каталог решений - Контроль места на дисках