Помогите , кто может , хочу вытащить емайл из Active Directory !

Dim usr As IADsUser
Set usr = GetObject("WinNT://IZOVAC/jeck2/serg")
fulNamb = usr.FullName — отрабатывает нормально
Email = usr.EmailAddress — выдает ошибку "Свойства службы каталогов Active Directory не могут быть найдены в кэше"

таже ошибка и в этом коде в ответ на запрос на почти все данные о юзере :

Dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim oRoot As IADs
Dim oDomain As IADs
Dim sBase As String
Dim sFilter As String
Dim sDomain As String

Dim sAttribs As String
Dim sDepth As String
Dim sQuery As String
Dim sAns As String

Dim user As IADsUser

conn.Provider = "ADSDSOObject"
conn.Open "ADs Provider"

Set rs = conn.Execute( _
"<LDAP://CN=Ivanov,CN=Computers,DC=izovac,DC=local>;" _
& "(objectClass=*);ADsPath,objectClass,cn;subtree")
If Not rs.EOF Then
Set user = GetObject(rs("adsPath"))
With user
On Error Resume Next
sAns = sAns & "Fax Number: " & .FaxNumber & vbCrLf
sAns = sAns & "Email Address: " & .EmailAddress & vbCrLf
sAns = sAns & "Web Page: " & .HomePage & vbCrLf
End With
End If
UserInfo = sAns

Set oRoot = Nothing
Set oDomain = Nothing

Как преодолеть ентот трабл ???? ХЛП !!!
Сервер 2000. машина с которой запрашиваю тоже с Win2000 но не сервер ес-но.
Если кто знает как достать емайл с помощью СКЛ 2000 то тоже пойдет ...