У многих бывают ситуации: стоит сервер 1С Предприятия, стоит себе работает. Как вдруг от пользователей сыпятся сообщения, что нет места на диске. Смотришь - логи сервера 1С или SQL-сервера "съели" свободное место.
Для предупреждения ошибок была создана программа для мониторинга диска.
Программа очень проста в использовании. Есть файл настроек(options.ini), со следующей структурой:
; MessageRecipients - почты, на которые будут отправляться сообщения (разделитель "пробел")
; SenderMailLoginPass - логин пароль от почты, с которой будет идти отправка сообщения (разделитель логина пароля "пробел")
; FreeSpacePercent - процент свободного места на диске при котором начинается отправка сообщений
; IntervalCheckSpaceSec - интервал в секундах, с которым проверяется свободное место на диске
; DiskLetter - буква диска для проверки свободного места (указывается только буква, без двоеточия и наклонных черточек)
[prog options]
SmtpHost=smtp.mail.ru
SmptPort=465
messagerecipients=test@mail.ru test@gmail.com
sendermailloginpass=test@mail.ru password
FreeSpacePercent=10
IntervalCheckSpaceSec=10
DiskLetter=C
Запускаем программу, она сворачивается в трей и "мониторит" диск. В случае, если процент свободного места на диске меньше FreeSpacePercent, то высылаются письма получателям messagerecipients с почты sendermailloginpass.
Как только место на диске восстанавливается, то программа также об этом уведомляет.
Настройки SmtpHost и SmptPort нужно взять у своего почтового сервера. Протокол - SSL.
Программа написана на Delphi 10. Исходники прилагаю.
