VBS/WSH/JS - Поиск пользователя в AD по e-mail

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

VBS/WSH/JS - Поиск пользователя в AD по e-mail

zhuk09

Пользователь

Сообщения: 85
Благодарности: 3

Профиль | Отправить PM | Цитировать

Изменения

Автор: zhuk09
Дата: 13-03-2017

Всем добрый день!
Есть скрипт отправки e-mail определенному пользователю от пользователей в 1С. В связке с Exchange 2003 это нормально работает, т.к в поле From содержится Display Name пользователя Active Directory. И выглядит это так
From: Петров Иван Иванович
To: Иванов Петр Петрович
В Exchnage 2010 в поле From содержится e-mail (Display Name не подставляется), который был взят из поля майл в справочнике пользователей в 1С. Выглядит это так
From: petrov@domain.ru
To: Иванов Петр Петрович
Теперь стала задача переделать этот скрипт так, что бы при отправки почты определенному пользователю происходил поиск в атрибутах Active Directory DisplayName по e-mail. Поле From динамическое, зависит от того, какой пользователь 1С нажел кнопку "отправить сообщение".

Код:

Set objEmail = CreateObject("CDO.Message")
Set fso = CreateObject("Scripting.FileSystemObject")
objEmail.From = "<petrov@domain.ru>"
objEmail.To = "ivanov@domain.ru"
objEmail.Subject = "Ежедневный отчет 1С" 
objEmail.Textbody = "Скрипт выполнен, смотри логи"
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.4.8" 
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send

Как я понимаю, в строке с From должна появится переменная, допустим $DN. Потом запрос
oCmd.CommandText = "SELECT " & selectedProperties & " FROM 'LDAP://" & strServer &"'"_ & "WHERE objectCategory='user' AND mail='$DN'

Но с vbs знаком не так хорошо, что бы написать скрипт полностью(((!!!

Отправлено: 12:47, 13-03-2017