Информация о свободном месте на сервере
База данных - Инструменты администратора БД
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойВы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
Обслуживаю несколько фирм по 1С и несколько раз кончалось место на дисках (админ не уследил). Лезть в настройки сервера прав нет (да и желания), поэтому решил повесить на регламент проверку свободного места на диске и отправку уведомлений. В результате была написана эта обработка, может, кому пригодится.
Сам механизм описывался уже здесь, просто сделал готовую обработку.
Работает на всех конфигурациях, где есть БСП, и на Windows.
После установки обработки в "Дополнительные отчеты и обработки" будет доступно два пункта:
1. Настройка;
2. Отправка информации о жестких дисках системы;
Сначала запустить настройку и заполнить, куда и как отправлять уведомления
По кнопке "Отправить сообщение" можно протестировать отправку уведомлений.
После сохранения настройки надо настроить период запуска обработки для второй строки и все.
В результате на почту будет приходить сообщение вида
а в мессенджеры:
Диск:C Размер диска:223 Гб. Доступное место:176 Гб. (79%)
Диск:E Размер диска:932 Гб. Доступное место:654 Гб. (70%)
Код
Функция ПолучитьИнформациюПоДискам() Экспорт
FSO = Новый COMОбъект("Scripting.FileSystemObject");
FileSystemObject_HARD = FSO.Drives;
СписокДисков = Новый Массив;
Для Каждого HARD ИЗ FileSystemObject_HARD Цикл
ОписаниеДиска = Новый Структура;
ОписаниеДиска.Вставить("ИмяДиска",HARD.DriveLetter);
ОписаниеДиска.Вставить("ДоступноеМесто",Окр(HARD.AvailableSpace/(1024 * 1024 * 1024)));
ОписаниеДиска.Вставить("СвободноеМесто",Окр(HARD.FreeSpace/(1024 * 1024 * 1024)));
ОписаниеДиска.Вставить("РазмерДиска",Окр(HARD.TotalSize/(1024 * 1024 * 1024)));
ОписаниеДиска.Вставить("SerialNumber",HARD.SerialNumber);
ОписаниеДиска.Вставить("DriveType",HARD.DriveType);
ОписаниеДиска.Вставить("ShareName",HARD.ShareName);
ОписаниеДиска.Вставить("IsReady",HARD.IsReady);
СписокДисков.Добавить(ОписаниеДиска);
КонецЦикла;
Возврат СписокДисков;
КонецФункции
Проверено на следующих конфигурациях и релизах:
- Бухгалтерия предприятия, редакция 3.0, релизы 3.0.206.19
Вступайте в нашу телеграмм-группу Инфостарт
