Помогите плиз со скриптом переадресации почты

[sigvar]

Приветствую.

помогите плиз со скриптом на установку переадресации.


сейчас пользуемся скриптом:

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=test,OU=Test,DC=domain,DC=biz"

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

Он устанавливает при логофе пользователя переадресацию почты на определенный адрес (который прописан в скрипте.)

А сейчас поставили задачу чтобы пользователь при логофе мог ввести самостоятельно адрес ( в виде user@domain.ru) на который нужно переадресовать почту. а если он не вводит в течении 30 секунд - чтобы ставилась переадресация на дефолтный адрес прописанный в скрипте.


Буду сильно благодарен. Very Happy