从Active Directory中获取电子邮件地址 [英] Getting Email address from Active Directory

问题描述

全部 -

我能够retieve的全名值
      我尝试从Active Directory中的电子邮件地址，但使用以下code。在使用Windows身份验证我的ASP.Net Web窗体项目：

I am able to retieve the FullName value I am trying to retrieve an email address from Active Directory but using the following code in my ASP.Net Web Forms project that is using Windows Authentication:

Dim wi As System.Security.Principal.WindowsIdentity = System.Security.Principal.WindowsIdentity.GetCurrent()
Dim a As String() = wi.Name.Split(New Char() {"\"c}) '' Context.User.Identity.Name.Split('\')

Dim ADEntry As System.DirectoryServices.DirectoryEntry = New System.DirectoryServices.DirectoryEntry(Convert.ToString("WinNT://" + a(0) + "/" + a(1)))
Dim Name As String = ADEntry.Properties("FullName").Value.ToString()
Dim Email As String = ADEntry.Properties("mail").Value.ToString()

当我到达code线在那里，我尝试检索电子邮件地址，我得到一个对象引用不设置到对象的实例。错误。我一直在使用EmailAddress的，电子邮件尝试。我认为问题是，我只是使用了错误的关键字。我能够检索全名值。

when I get to the line of code where I'm try to retrieve the email address I get an "Object reference not set to an instance of an object." error. I have tried using EmailAddress, E-Mail. I think the problem is that I am simply using the wrong keyword. I am able to retrieve the FullName value.

推荐答案

感谢达维德Piras酒店谁送我此链接，我找到了一个合适的解决方案：

Thanks to Davide Piras who send me this link, I found a suitable solution:

Dim wi As System.Security.Principal.WindowsIdentity = System.Security.Principal.WindowsIdentity.GetCurrent()
Dim a As String() = wi.Name.Split(New Char() {"\"c}) '' Context.User.Identity.Name.Split('\')

Dim dc As PrincipalContext = New PrincipalContext(ContextType.Domain, "DomainName")
Dim adUser As UserPrincipal = UserPrincipal.FindByIdentity(dc, a(1))
Dim Email As String = adUser.EmailAddress

这篇关于从Active Directory中获取电子邮件地址的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！