Все делается очень и очень просто.
Добавляем регламентное задание, добавляем расписание для регламентного задания, далее пишем процедуру проверки места на дисках, используя объект "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)".
За местом на дисках должны в обязательном порядке следить системные администраторы - так и только так, но лучше лишний раз "обезопасить" труд сотрудников.
Перед любыми обновлениями базы делайте копии!
Вступайте в нашу телеграмм-группу Инфостарт
