Доброе время суток!
просмотрел все форумы, но ответа не нашел (пока)...
нужно получить DisplayName is Active Directory
почему код приведенный ниже нормально работает из под vss2005, а также при
запуске IE на рабочем сервере с ISS, но при попытке подключения пользователя из корпоративной сети строка " Result = .FindOne " выдает ошибку (см.файл):


Dim Entry As New DirectoryEntry("LDAP://RootDSE") 'LDAP://RootDSE
        Dim DomainPath As String = "LDAP://" & Entry.Properties("defaultNamingContext").Value()
        Dim Results As SearchResultCollection, Result As SearchResult
        Entry = New DirectoryEntry(DomainPath)
        Dim Searcher As New DirectorySearcher(Entry)
        With Searcher
            .SearchScope = SearchScope.Subtree
            .Filter = "(&(objectClass=person)(sAMAccountName=" & Environment.UserName & "*))"
            .PageSize = 100
            .PropertiesToLoad.AddRange(New String() {"sAMAccountName", "displayName"})
            Result = .FindOne
        End With


Спасибо.