S
Sameh Ahmed
Hello there
I need to get a list of domain controllers to a domain I bind too using it's
name rather than the DN.
I am trying a query looking for objectClass=nTDSDSA but this returns 0
results
I am using VB.net 2.0
any ideas?
Here's my code
Thanks in advance.
Dim entry As New DirectoryServices.DirectoryEntry
entry.Path = "LDAP://" & TextBox1.Text
If RadioButton2.Checked = False Then
entry.Username = TextBox3.Text
entry.Password = TextBox2.Text
End If
entry.AuthenticationType = DirectoryServices.AuthenticationTypes.Secure
Dim searcher As New DirectoryServices.DirectorySearcher(entry)
Dim results As DirectoryServices.SearchResultCollection
Dim result As DirectoryServices.SearchResult
searcher.SearchScope = DirectoryServices.SearchScope.Subtree
searcher.Filter = "(objectClass=nTDSDSA)"
results = (searcher.FindAll())
Dim dcou As New DirectoryServices.DirectoryEntry
For Each result In results
dcou = result.GetDirectoryEntry
MsgBox(dcou.Name)
Next
I need to get a list of domain controllers to a domain I bind too using it's
name rather than the DN.
I am trying a query looking for objectClass=nTDSDSA but this returns 0
results
I am using VB.net 2.0
any ideas?
Here's my code
Thanks in advance.
Dim entry As New DirectoryServices.DirectoryEntry
entry.Path = "LDAP://" & TextBox1.Text
If RadioButton2.Checked = False Then
entry.Username = TextBox3.Text
entry.Password = TextBox2.Text
End If
entry.AuthenticationType = DirectoryServices.AuthenticationTypes.Secure
Dim searcher As New DirectoryServices.DirectorySearcher(entry)
Dim results As DirectoryServices.SearchResultCollection
Dim result As DirectoryServices.SearchResult
searcher.SearchScope = DirectoryServices.SearchScope.Subtree
searcher.Filter = "(objectClass=nTDSDSA)"
results = (searcher.FindAll())
Dim dcou As New DirectoryServices.DirectoryEntry
For Each result In results
dcou = result.GetDirectoryEntry
MsgBox(dcou.Name)
Next