Imports System.DirectoryServices
        // ..
        Dim childEntry As DirectoryEntry
        Dim ParentEntry As New DirectoryEntry
        Try
            ParentEntry.Path = "WinNT:"
            For Each childEntry In ParentEntry.Children
                Dim newNode As New TreeNode(childEntry.Name)
                Select Case childEntry.SchemaClassName
                    Case "Domain"
                        Dim ParentDomain As New TreeNode(childEntry.Name)
                        TreeView1.Nodes.AddRange(New TreeNode() {ParentDomain})
                        Dim SubChildEntry As DirectoryEntry
                        Dim SubParentEntry As New DirectoryEntry
                        SubParentEntry.Path = "WinNT://" & childEntry.Name
                        Dim x
                        x = childEntry.AuthenticationType()
                        For Each SubChildEntry In SubParentEntry.Children
                            Try
                                Select Case SubChildEntry.SchemaClassName
                                    Case "Computer"
                                        Dim newNode1 As New TreeNode("Name : " _
                                          + SubChildEntry.Name + " IP: " + _
                                          System.Net.Dns.Resolve( _
                                          SubChildEntry.Name).AddressList( _
                                          0).ToString())
                                        ParentDomain.Nodes.Add(newNode1)
                                End Select
                            Catch ex As Exception
                                Debug.WriteLine(SubChildEntry.Name)
                            End Try
                        Next
                End Select
            Next
        Catch Ex As Exception
            MessageBox.Show(Ex.ToString)
        Finally
            ParentEntry = Nothing
        End Try