Active directory search through vbnet

[Viper1993]

Hello, I am in the process of making a diagnostic program for our client machines and I am trying to get the container name as it contains the OU of the machine. I am able to do a search through vbnet but it only results in the computer name.
Dim ENTRY As System.DirectoryServices.DirectoryEntry = New
System.DirectoryServices.DirectoryEntry("LDAP://OU=Offices, DC=Test,DC=COM")

Dim MYSEARCHER As System.DirectoryServices.DirectorySearcher = New
System.DirectoryServices.DirectorySearcher(ENTRY)
MYSEARCHER.Filter = ("(&(objectclass=computer)(name=" + my.computer.name + ")) ")
Dim resEnt As System.DirectoryServices.SearchResult

For Each resEnt In MYSEARCHER.FindAll()

Try

Console.WriteLine(":Processing:" &
Mid(resEnt.GetDirectoryEntry().Name.ToString(), 4))

Catch ex As Exception

Console.WriteLine("Trying to Connect to: " &
resEnt.GetDirectoryEntry().Name.ToString() & vbCrLf & ex.Message.ToString())

End Try

Next

[Luk3r]

You need to tell your searcher to load AD properties. You can do so with this line, which will get all properties:

MYSEARCHER.PropertiesToLoad.Add("*")

After that, you can get a specific property by doing the following within your For loop, where "DistinguishedName" is the attribute you wish to get:

Dim DN As String = resent.Properties("DistinguishedName")(0)