Простенький скрипт, который отслеживает свободное место на локальных дисках компьютера или сервера и уведомляет администратора по e-mail о том что оно достигло указанного порога. Настройки скрипта заданы в начале файла. Все подписано комментариями так что думаю проблем у вас не должно возникнуть. Если все-таки проблемы у вас возникли - пишите в каменты
'---------------------------------------------------------------------- ' ' 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" ' список дисков для проверки
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
Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь. Чтобы Вам были доступны все функции Вам необходимо либо зарегистрироваться, либо зайти на сайт под своим именем.
Скрипт очень нужный, ну не понятны настройки для отправки! И будет ли этот скрипт работать, под windows 2008? Если на нем ничего нет кроме программ необходимых для работы.
Спасибо тебе добрый человек, нашел свою ошибку и все заработало! Прям подарил бы, Тазик пельмешек и литер водки! Просто прописал вместо smtp.local ip сервака и все. А может ты еще и скриптик сделаешь что бы на мобилу в виде смс уходило! Вот это было бы актуально очень, в любом месте знаешь что происходит с серваком. Еще раз спс!
stamos, это уже проблемно написать - нужен какой-то sms-шлюз, а это денег стоит. я сделал проще - настроил на телефоне периодичность проверки почты и все.
Группа: Гости
Регистрация: --
Статус: