Поиск пользователя в AD по e-mail - Компьютерный форум OSzone.net

Всем добрый день!
Есть скрипт отправки 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 знаком не так хорошо, что бы написать скрипт полностью(((!!!