Как создать скрип для FSRM по службе messenger - Вопросы читателей - Форум samag.ru/forum
www.samag.ru
     
Поиск   
              
 www.samag.ru    Web  0 товаров , сумма 0 руб.
E-mail
Пароль  
 Запомнить меня
Регистрация | Забыли пароль?
Журнал "Системный администратор"
Журнал «БИТ»
Наука и технологии
Подписка
Где купить
Авторам
Рекламодателям
Магазин
Архив номеров
Вакансии
Контакты
   

  Опросы

Какие курсы вы бы выбрали для себя?  

Очные
Онлайновые
Платные
Бесплатные
Я и так все знаю

 Читать далее...

1001 и 1 книга  
20.12.2019г.
Просмотров: 5819
Комментарии: 0
Dr.Web: всё под контролем

 Читать далее...

04.12.2019г.
Просмотров: 7003
Комментарии: 1
Особенности сертификаций по этичному хакингу

 Читать далее...

28.05.2019г.
Просмотров: 8252
Комментарии: 2
Анализ вредоносных программ

 Читать далее...

28.05.2019г.
Просмотров: 8510
Комментарии: 2
Микросервисы и контейнеры Docker

 Читать далее...

28.05.2019г.
Просмотров: 7485
Комментарии: 0
Django 2 в примерах

 Читать далее...

Друзья сайта  

Форум системных администраторов  

sysadmins.ru

 Как создать скрип для FSRM по службе messenger

Форум / Редакция / Вопросы читателей / Как создать скрип для FSRM по службе messenger

tgrisha - 22.10.09 - 01:49
Группа: Пользователи
Статус: Новичок
Сообщений: 2
Зарегистрирован: 22.10.09

Здесь есть скрип, в этом журнале, но по оповещению по эл. почте.
Система анализа квот на базе File Server Resource Manager
Хотелось бы очень скрип по отправке через messenger и только тому пользователю
который вызвал это ограничение предела квоты, одному, а не всем, то есть визуальное
оповещение, сразу же. Как это сделать? Я не умею скрипты писать, помогите пожалуйста на основе того скрипта готового, но по эл. почте. Можно это осуществить или вообще нет?

mrak018 - 22.10.09 - 09:27
Группа: Пользователи
Статус: Старожил
Сообщений: 193
Зарегистрирован: 23.12.07

Напиши сюда текст скрипа с отправкой на email, посмотрим.

tgrisha - 22.10.09 - 13:10
Группа: Пользователи
Статус: Новичок
Сообщений: 2
Зарегистрирован: 22.10.09

Вот этот скрипт:

Система анализа квот на базе File Server Resource Manager
Иван Коробко

C:\Quota.vbs [Quota Path] [Quota Limit MB] [Quota Used MB] [Quota Used Percent] [Quota Free MB] [Source Io Owner]


Set objArgs = WScript.Arguments
a0=objArgs(0)
a1=objArgs(1)
a2=objArgs(2)
a3=objArgs(4)
a4=objArgs(4)
a5=objArgs(5)


Set sec = CreateObject("AdsSecurity")
Set sd = sec.GetSecurityDescriptor("FILE://"+PathToFolder)
Set Dacl = sd.DiscretionaryAcl
For Each ace In Dacl
Wscript.Echo ace.Trustee
Wscript.Echo ace.AccessMask
Wscript.Echo ace.AceType
Next


GroupName=ace.Trustee
Right(cstr(GroupName), Len(GroupName)-InStr(GroupName,"\"))


Set Obj=GetObject("WinNT://"&domain&"/"& group&",group")
For Each member In obj.members
Wscript.Echo cstr(member.name)
Next
Set Obj=nothing


regsvr32 /s c:\Program Files\Microsoft\ADSI Resource Kit, Samples and Utilities\ResourceKit\ADsSecurity.dll


MAIL_SUBJECT="Квота папки "+right(a0,len(a0)-cstr(a0,"\")) +" использована на "+a3+"% ("+a(2)+" Мб). Размер квоты "+a(1)+" Мб"


mail_body = mail_body + "Уважаемый(ая) " + mail_to + "!"+ vbNewLine
mail_body = mail_body + "Вы использовали установленную квоту папки " + right(a0,len(a0)-cstr(a0,"\")) +" на " + a3 + "%." + vbNewLine
mail_body = mail_body + "Общий размер квоты на папку" + a1+ " MB, из них занято " + a2 +" MB." + vbNewLin + vbNewLine
mail_body = mail_body + "Необходимо удалить ненужные данные с этой папки." + vbNewLin + vbNewLine + vbNewTab
mail_body = mail_body + "С уважением, Служба поддержки." + vbNewLin + vbNewLine


MAIL_FROM="Support@Firm.Ru"
MAIL_SERVER="Mail.Firm.ru"
MAIL_TO=""
MAIL_BODY=""
MAIL_SUBJECT=""

MAIL_SUBJECT=…
MAIL_BODY = MAIL_BODY + …

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") = MAIL_SERVER
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
Flds.Update
iMsg.Configuration = iConf
iMsg.To = MAIL_TO
iMsg.HTMLBody = MAIL_BODY
iMsg.From = MAIL_FROM
iMsg.Subject = MAIL_SUBJECT
iMsg.Send

               Copyright © Системный администратор

Яндекс.Метрика
_
Tel.: (499) 277-12-41
Fax: (499) 277-12-45
E-mail: sa@samag.ru