Display all attributes (Visual Basic)

This code can be found in Chapter 31 of Active Directory, 3rd Edition

Purchase XP Cookbook or Networking Recipes for only $25 plus shipping! While supplies last.

Find out how to download all of the Visual Basic code from this site.

' From the book "Active Directory, Third Edition" 
' ISBN: 0-596-10173-2

Dim objRootDSE As New DirectoryEntry("LDAP://RootDSE")

Dim strAttrName As String
Dim objValue As Object
For Each strAttrName In objRootDSE.Properties.PropertyNames
    For Each objValue In objRootDSE.Properties(strAttrName)
        Console.WriteLine(strAttrName & " : " & objValue.ToString)
    Next objValue
Next strAttrName

This code has been viewed 2034 times.

New from the creators of TechTasks.com: StatSheet.com