如何使用VB.NET从LDAP获取域列表?

时间:2018-08-07 12:43:20

标签: vb.net dns ldap

我是编程(VB.NET)的新手,需要帮助才能从我的项目中从LDAP获取所有域名的列表。 我能够检索其他详细信息,例如名字,姓氏,邮件等...,但无法获取域名列表。我在网上尝试了许多选择,但没有一个适合我。我只需要域列表,以便可以进一步循环并继续其他过程。 帮助将不胜感激。

到目前为止,我正在使用以下代码:

dirEntry = New System.DirectoryServices.DirectoryEntry("LDAP://" & " & Environment.UserDomainName & ")
dirSearcher = New System.DirectoryServices.DirectorySearcher(dirEntry)
dirSearcher.Filter = "(&(GivenName=" & txt_First_Name.Text & ")(sn=" & txt_Family_Name.Text & "))"
dirSearcher.PropertiesToLoad.Add("samAccountName")
dirSearcher.PropertiesToLoad.Add("sn")
dirSearcher.PropertiesToLoad.Add("mail")
Str_Searchres = dirSearcher.FindOne()
Dir_direntry = Str_Searchres.GetDirectoryEntry()
Str_Old_SGID = Dir_direntry.Properties("samAccountName").Value.ToString()
Str_SGID = txt_SGID.Text
Str_Fname = Dir_direntry.Properties("GivenName").Value.ToString()
Str_Lname = Dir_direntry.Properties("sn").Value.ToString()
Str_Mail = Dir_direntry.Properties("mail").Value.ToString()

Environment.UserDomainName 给了我我的域,但是我需要LDAP中所有可用的域。 帮助将不胜感激。

最好的问候,

0 个答案:

没有答案