VBScript: Переадресация почты

Надо полагать уважаемый Dmitrii имел в виду один из аргументов метода Popup - время (количество секунд), в течение которого должно висеть окно (по-моему не мешало бы пояснить).

Внес изменения предложенный уважаемым Dmitrii.

Но теперь вылезает ошибка.

После ввода адреса переадресации ( в виде user@domain.ru )  вылезает ошибка в строке objUser.SetInfo

строка: 38
символ: 1
Ошибка: Произошло нарушение ограничения.
Код: 8007202F
Источник: Active Directory

Причем если не вводить адрес руками - то на адрес прописанный в скрипте переадресация ставиться нормально.

Подскажите пожалуйста как исправить???

--------------------- добавлено ---------------------

Господа я понял почему не работает скрипт .

Потому что скрипт пытается подставить адрес в виде user@domain.ru ,  а в строку  altRecipient  он должен поставляться в виде "CN=username,OU=cont,DC=domain,DC=biz"   ( все наверное подумали: "блин Америку открыл :) )

Вот теперь у меня другая проблема -  как перевести введенный адрес вида user@domain.ru ,  в вид "CN=username,OU=cont,DC=domain,DC=biz"  ?   

Помогите пожалуйста.

Поправил пост как смог.

Нет не описался.   Запись учетной записи выглядит именно как CN=User,OU=IT,DC=domain,DC=biz ( это строчка distinquishedName),а пользователь не сможет вводить ее в таком виде. 
Они вводят ее в виде почтового адреса (user@domain.ru) - это строчка mail .

Вот как бы сделать так чтобы скрипт сопоставлял введенную пользователем строку mail со строкой  distinquishedName   и уже подставлял в altRecipient данные в том виде в котором они стоят в строке distinquishedName . 

Тогда скрипт сработает нормально.

Вот только как это сделать... ?

Вводимый адрес не произволен- переадресация должна ставиться только на доменные адреса.

На внешние адреса (которых нет в домене) переадресация ставиться не должна.

1. Что то мне не сообразить как это сделать ... :rolleyes:

2. Не совсем понял вопрос.   Пользователь при установке переадресации вводит адрес своего коллеги. Связь между ними  - это то что они оба в одном домене,  и то что их адреса находятся на одном сервере Exchange.

Скрипт приобрел очертания работающей удобной программы.

Set objFSO = CreateObject("Scripting.FileSystemObject")
set WshShell = WScript.CreateObject("WScript.Shell")
Set objNetwork = CreateObject("Wscript.Network")
strName = objNetwork.UserName

Set objRootDSE = GetObject("LDAP://RootDSE")

strDNSDomain = objRootDSE.Get("defaultNamingContext")
Const ADS_NAME_INITTYPE_DOMAIN = 1
Const ADS_NAME_TYPE_NT4 = 3
Const ADS_NAME_TYPE_1179 = 1
Set objTrans = CreateObject("NameTranslate")
objTrans.Init ADS_NAME_TYPE_NT4, strDNSDomain
objTrans.Set ADS_NAME_TYPE_1179, strDNSDomain
strNetBIOSDomain = objTrans.Get(ADS_NAME_TYPE_NT4)
strNetBIOSDomain = Left(strNetBIOSDomain, Len(strNetBIOSDomain) - 1)
objTrans.Init ADS_NAME_INITTYPE_DOMAIN, strNetBIOSDomain
objTrans.Set ADS_NAME_TYPE_NT4, strNetBIOSDomain & "\" & strName 
strUserDN = objTrans.Get(ADS_NAME_TYPE_1179)
Set objUser = GetObject("LDAP://" & strUserDN)


strForwardingAddress = "CN=Admintest,OU=Test,DC=domain,DC=biz"



Const ADS_NAME_TYPE_USER_PRINCIPAL_NAME = 9
objTrans.Init ADS_NAME_INITTYPE_DOMAIN, strNetBIOSDomain
Set objWShell = CreateObject("WScript.Shell")
xResult = objWShell.Popup("Будете указывать свой адрес эл. почты?", 30, "Текст заголовка", 4 + 32)
Set objWShell = Nothing
If xResult = 6 Then
    strUserMail = InputBox("Укажите адрес эл. почты:", "Текст заголовка")
    If Len(strUserMail) > 0 Then
        On Error Resume Next
        objTrans.Set ADS_NAME_TYPE_USER_PRINCIPAL_NAME, strUserMail
        strTemp = objTrans.Get(ADS_NAME_TYPE_1179)
        If Err.Number = 0 Then
            strForwardingAddress = strTemp
        Else
            Err.Clear
        End If
        On Error GoTo 0
    End If
End If

WScript.Echo strTemp

objUser.altRecipient = strForwardingAddress
objUser.deliverAndRedirect = TRUE
objUser.SetInfo


WScript.Echo "Переадресация установлена"

Но выяснилось небольшое неудобство... в строку адреса при запросе скрипта необходимо вводить UserLogonName,  а не email.
Если вводить  UserLogonName -  то все замечательно и скрипт срабатывает отлично.

Но если вводить именно email  -  то скрипт не срабатывает и ставит переадресацию на дефолтный адрес,  а strTemp возвращает имя залогиненного пользователя (т.е. пользователя от имени которого запускается скрипт) ,  а не пользователя на которого пытаются поставить переадресацию.

Можно это как то исправить? Или учить пользователей чтобы они вводили не email а LoginName?

Скрипт не видит домен.

Строка: 38
Символ: 9
Ошибка: указанный домен не существует или к нему невозможно подключиться.
Код: 8007054В
Источник: (null)

Возможно это потому что скрипт ищет домен domain.ru   а в реале домен называется domain.biz  ... 

А как сделать чтобы он искал соответвие введенного email учетной записи в домене domain.biz??

Хм..

У пользователя в домене есть два вида записей в подобном виде:

1.  Это User Logon Name ( или userPrincipalName)   - он записывается как user@domain.biz ( или Local -  как при установке домена поставим) 
2. Это E-mail (или mail) пользователя по которому он получает и отправляет почту  - он записывается как user@domain.ru ( или com - какой почтовый домен зарегистрирован)

В основном рядовые пользователи знают только e-mail ... заставить запомнить их еще и logonName да еще и с тем что надо вписывать его с суффиксом biz ... это совсем за гранью фантастики

Да и еще часто logonName не совпадает с  email ... как у меня например ...  logonName - vasiliev@domain.biz  , а email - it2@domain.ru 
По скрипту, чтобы установить на меня переадресацию  - нужно вводить vasiliev@domain.biz  ,  а пользователи знаю только мой email  - it2@domain.ru.

Не работает.

Все время выдает "Указанный адрес не найден." 

Вчера весь день пытался понять почему - не понял...

1. Пробелов лишних нет.  Это точно.
2. Учеток в домене - порядка 300.

Теоретически мы говорим об одном поле.  Оно выделено на скриншоте.

В вот скриншот на котором видно что userPrincipalName сильно различается с полем mail  ( Это данные по одной и тойже учетной записи - Admintest)