Private Sub listAllHosts()
        Dim childEntry As DirectoryEntry = Nothing
        Dim nodeText As String = Nothing
        Dim ParentEntry As New DirectoryEntry
 
        For i As Integer = 0 To 8
            Try
                ParentEntry.Path = "WinNT:"
                For Each childEntry In ParentEntry.Children
                    Select Case childEntry.SchemaClassName
                        Case "Domain"
                            Dim SubChildEntry As DirectoryEntry = Nothing
                            Dim SubParentEntry As New DirectoryEntry
                            SubParentEntry.Path = "WinNT://" + childEntry.Name
                            For Each SubChildEntry In SubParentEntry.Children
                                Try
                                    Select Case SubChildEntry.SchemaClassName
                                        Case "Computer"
                                            NameList(i) = SubChildEntry.Name
                                            IPList(i) = System.Net.Dns.Resolve( _
                                              SubChildEntry.Name).AddressList( _
                                              0).ToString()
                                    End Select
                                Catch ex As Exception
                                End Try
                            Next
                    End Select
                Next
            Catch Ex As Exception
            Finally
                ParentEntry = Nothing
            End Try
        Next
 
    End Sub

mfg
rt