Посмотрите на настройки на скриншоте ниже.Автоматический вход в систему означает использование вашей аутентификации Windows при доступе к ресурсам через Internet Explorer.Другими словами, если вы обращаетесь к веб-странице на сервере в вашем каталоге, учетные данные, которые вы вошли на свою машину, автоматически передаются на сервер, к которому вы обращаетесь.
Обычно учетные данные предназначены длякакая-то неизвестная мне причина перешла и на доверенные сайты.Я не знаю, почему это так, но я видел такое поведение достаточно, чтобы быть уверенным, заявив его.
Эта функция доступна только в IE, за исключением обходного пути, который вы нашли для Firefox, и не будет работатьв других браузерах, если вы не найдете похожие обходные пути.
Лучшим решением было бы указать имя пользователя и пароль в коде, как показано здесь:
http://msdn.microsoft.com/en-us/library/wh2h7eed.aspx
Это выполняет поиск и передает имя пользователя и пароль,вместо того, чтобы полагаться на встроенную безопасность Windows.
У меня есть рабочий фрагмент кода для получения электронного письма на основе имени пользователя в нашем домене, который вы можете изменить для своих нужд:
Public Function GetEmailFromUserName(ByVal UserID As String) As String
Dim ReturnValue As String = ""
Dim myAD As New System.DirectoryServices.DirectoryEntry("LDAP://mydomain", System.Configuration.ConfigurationManager.AppSettings("adsearchname"), System.Configuration.ConfigurationManager.AppSettings("adsearchpwd"))
Dim searcher As New System.DirectoryServices.DirectorySearcher(myAD)
searcher.Filter = ("(anr= " & UserID & ")")
searcher.PropertiesToLoad.Add("mail")
For Each myResult As System.DirectoryServices.SearchResult In searcher.FindAll()
For Each Key As String In myResult.Properties.PropertyNames
If InStr(myResult.Properties.Item(Key).Item(0), "@") Then
ReturnValue = myResult.Properties.Item(Key).Item(0)
End If
Next
Next
Return ReturnValue
End Function