Сделать стартовойДобавить в закладки  
Главная страничка Главная страничка
В номере:

Выходит с 17 июля 2008 г. цена договорная

Опрос

gismeteo.ru
Погода на Яндексе
pogoda.ru
meteonova.ru
по телевизору
за окном
в газете
а че его смотреть?
в другом месте
по счетчику гейгера



Календарь
«    Декабрь 2010    »
ПнВтСрЧтПтСбВс
 12345
6789101112
13141516171819
20212223242526
2728293031 

Архив новостей
Февраль 2021 (3)
Январь 2021 (1)
Ноябрь 2020 (2)
Июль 2020 (2)
Июнь 2020 (3)
Май 2020 (1)

Информация
Скрипт для мониторинга свободного места на локальных дисках с уведомлением на e-mail
OS, мобильные OS » Windows » WSH скрипты
автор: dimon, опубликовано: 20 декабря 2010

Простенький скрипт, который отслеживает свободное место на локальных дисках компьютера или сервера и уведомляет администратора по e-mail о том что оно достигло указанного порога.
Настройки скрипта заданы в начале файла. Все подписано комментариями так что думаю проблем у вас не должно возникнуть.
Если все-таки проблемы у вас возникли - пишите в каменты fellow

'----------------------------------------------------------------------
'
' Copyright (c)  All rights reserved.
'
'
' AUTHOR: tudimon.com
' DATE: 20.12.2010
' NAME: freespacedisk.vbs
'
' COMMENT:
'
' Скрипт отсылает сообщение по электронной почте когда свободное
' пространство на дисках меньше заданного порога
'
'----------------------------------------------------------------------

compName = "ServerName"  ' имя компьютера/сервера
Quota = 450  ' порог в Гб
strSMTP_Server = "smtp.local"  ' SMTP сервер
strTo = "support@domain.ru"  ' e-mail куда отсылаем предупреждение
strFrom = "support@domain.ru"  ' от кого
strSubject = "Low disk space on " & compName  ' тема сообщения
strBody = ""  ' текст сообщения
needSentMail = 0  ' флаг, что требуется слать письмо - достигнут лимит
DriveLetters = "D|E|F"  ' список дисков для проверки

DriveLettersArray = Split (DriveLetters,"|")    ' сделаем массив с буквами отслеживаемых дисков

For Each DriveLettersArray in DriveLettersArray

    Set fso = WScript.CreateObject("Scripting.FileSystemObject")
    Set WSHShell = WScript.CreateObject("WScript.Shell")
    Set Drive = fso.GetDrive(DriveLettersArray)
    free = Int((fso.GetDrive(drive).FreeSpace/(1024*1024*1024))) ' кол-во свободных Гб на винте

    If free < Quota Then
        needSentMail = 1
        strBody = strBody & vbNewLine & "Disk space on drive " & DriveLettersArray & " is less than " & Quota & " Gb (" & free & " Gb)"
        'MsgBox strBody
    End If

Next

    ' если флаг был изменен, то уведомим по е-майлу администратора
    If needSentMail = 1 Then
        
        Set iMsg = CreateObject("CDO.Message")
        Set iConf = CreateObject("CDO.Configuration")
        Set Flds = iConf.Fields
        Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTP_Server
        Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
        Flds.Update
        iMsg.Configuration = iConf
        iMsg.To = strTo
        iMsg.From = strFrom
        iMsg.Subject = strSubject
        iMsg.TextBody = strBody
        iMsg.Send

    End If


Запихиваем этот скрипт в планировщик задач Windows и получаем письма.
Периодичность проверки задается в настройках задачи планировщика

v2 - добавлена авторизация на smtp-сервере

freespacedisk.zip [1,39 Kb] (cкачиваний: 252)
freespacedisk_v2.rar [2,28 Kb] (cкачиваний: 361)

 
Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь. Чтобы Вам были доступны все функции Вам необходимо либо зарегистрироваться, либо зайти на сайт под своим именем.

Другие новости по теме:

  • Рекурсивный список подкатологов и файлов в текстовый лог
  • Список файлов в каталоге в текстовый файл
  • Поиск группы в ACL вложенных папок первого уровня
  • Список подкатологов в текстовый файл
  • ping2log - запись в лог доступности сервера


  • Комментарии:

    Оставить комментарий

    #1 написал: stamos (31 марта 2011 12:01)
    Скрипт очень нужный, ну не понятны настройки для отправки! И будет ли этот скрипт работать, под windows 2008? Если на нем ничего нет кроме программ необходимых для работы.
    #2 написал: dimon (31 марта 2011 12:15)
    на 2008 работает, smtp сервер должен быть без авторизации
    #3 написал: stamos (5 мая 2011 08:56)
    скрипт конечно хороший ну не работает
    http://s008.radikal.ru/i303/1105/ad/80b57743fa01.jpg
    #4 написал: dimon (5 мая 2011 11:04)
    stamos, а ты в настройках указал сервер и адреса е-майлов? сервер без авторизации?
    #5 написал: stamos (11 мая 2011 17:23)
    у нас в организации стоит Mdeamon настройки все указал сервер с авторизацией
    #6 написал: dimon (12 мая 2011 08:48)
    stamos, попробуй, плз, второй файл - там с авторизацией на smtp сервере отправка
    будет работать или нет feel
    #7 написал: stamos (12 мая 2011 09:27)
    Спасибо тебе добрый человек, нашел свою ошибку и все заработало! Прям подарил бы, Тазик пельмешек и литер водки! Просто прописал вместо smtp.local ip сервака и все. А может ты еще и скриптик сделаешь что бы на мобилу в виде смс уходило! Вот это было бы актуально очень, в любом месте знаешь что происходит с серваком. Еще раз спс!
    #8 написал: dimon (12 мая 2011 09:32)
    stamos, это уже проблемно написать - нужен какой-то sms-шлюз, а это денег стоит. я сделал проще - настроил на телефоне периодичность проверки почты и все.
    #9 написал: stamos (12 мая 2011 09:48)
    может у тебя есть icq для общения на прямую!
    #10 написал: dimon (12 мая 2011 09:55)
    ICQ#: 3*******7, тока он не всегда включен


     
    Информация
     
    Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.


    Поиск по сайту:


    Облако тегов
    Android, Arduino, backup, CentOS, cmd, div, DLE, DLE хаки, domoticz, dzvents, event, Home Assistant, Linux, log, LUA, Monster, ogf3, RDP, Template, VBS, w2k8, windows, WSH, бумага, бумажный самолетик, верстка, иструкция, Карты, кино, Навигация, оригами, программа, рецензия, рецепт, скрипт, фигуры, шаблон, Яндекс, яндекс-карты

    Показать все теги
    Реклама
    раскрутка сайта бесплатно
    Главная страница | Регистрация | Добавить новость | Новое на сайте | Статистика | Поддержка | Правила ресурса Copyright © 2005-2018 by dimon - all right reserved!
    Тираж:           экземпляров.   Дизайн, верстка by dimon