Помогите пожалуйста разобраться...
Почему код приведенный ниже не работает при попытке открыть страницу пользователем корпоративной сети. При открытии страницы на сервере правильно выдает DisplayName, а при удаленном открытии - ошибка в
строке Result = .FindOne -
ERROR_DS_OPERATIONS_ERROR          
причем если поставить в Web.config - <identity impersonate="False" />
то ошибка пропадает, FullName пустое.
Из под VSS2005 все прекрасно работает..
Спасибо.


Dim Entry As New DirectoryEntry("LDAP://RootDSE") 
        Dim DomainPath As String = "LDAP://" & Entry.Properties("defaultNamingContext").Value()
        Dim Result As SearchResult
        Entry = New DirectoryEntry(DomainPath)
        Dim Searcher As New DirectorySearcher(Entry)
        Dim FName As String
        Dim N As Integer
        With Searcher
            .SearchScope = SearchScope.Subtree
            .Filter = "(&(objectClass=person)(sAMAccountName=" & Environment.UserName & "*))"
            .PageSize = 100
            .PropertiesToLoad.AddRange(New String() {"sAMAccountName", "displayName"})
            Result = .FindOne
        End With
        If Not Result Is Nothing Then
             FullName = Result.GetDirectoryEntry.Properties("displayName").Value
        End IfСергей К.

Помогите пожалуйста разобраться...
Почему код приведенный ниже не работает при попытке открыть страницу пользователем корпоративной сети. При открытии страницы на сервере правильно выдает DisplayName, а при удаленном открытии - ошибка в
строке Result = .FindOne -
ERROR_DS_OPERATIONS_ERROR          
причем если поставить в Web.config - <identity impersonate="False" />
то ошибка пропадает, FullName пустое.
Из под VSS2005 все прекрасно работает..
Спасибо.


Dim Entry As New DirectoryEntry("LDAP://RootDSE") 
        Dim DomainPath As String = "LDAP://" & Entry.Properties("defaultNamingContext").Value()
        Dim Result As SearchResult
        Entry = New DirectoryEntry(DomainPath)
        Dim Searcher As New DirectorySearcher(Entry)
        Dim FName As String
        Dim N As Integer
        With Searcher
            .SearchScope = SearchScope.Subtree
            .Filter = "(&(objectClass=person)(sAMAccountName=" & Environment.UserName & "*))"
            .PageSize = 100
            .PropertiesToLoad.AddRange(New String() {"sAMAccountName", "displayName"})
            Result = .FindOne
        End With
        If Not Result Is Nothing Then
             FullName = Result.GetDirectoryEntry.Properties("displayName").Value
        End IfСергей К.

Помогите пожалуйста разобраться...
Почему код приведенный ниже не работает при попытке открыть страницу пользователем корпоративной сети. При открытии страницы на сервере правильно выдает DisplayName, а при удаленном открытии - ошибка в
строке Result = .FindOne -
ERROR_DS_OPERATIONS_ERROR          
причем если поставить в Web.config - <identity impersonate="False" />
то ошибка пропадает, FullName пустое.
Из под VSS2005 все прекрасно работает..
Спасибо.


Dim Entry As New DirectoryEntry("LDAP://RootDSE") 
        Dim DomainPath As String = "LDAP://" & Entry.Properties("defaultNamingContext").Value()
        Dim Result As SearchResult
        Entry = New DirectoryEntry(DomainPath)
        Dim Searcher As New DirectorySearcher(Entry)
        Dim FName As String
        Dim N As Integer
        With Searcher
            .SearchScope = SearchScope.Subtree
            .Filter = "(&(objectClass=person)(sAMAccountName=" & Environment.UserName & "*))"
            .PageSize = 100
            .PropertiesToLoad.AddRange(New String() {"sAMAccountName", "displayName"})
            Result = .FindOne
        End With
        If Not Result Is Nothing Then
             FullName = Result.GetDirectoryEntry.Properties("displayName").Value
        End IfСергей К.