Imports System.DirectoryServices
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        'Private Sub alle_ipadressen_ermitteln()
        Dim childEntry As DirectoryEntry
        Dim ParentEntry As New DirectoryEntry
        Try
            ParentEntry.Path = "WinNT:"
            For Each childEntry In ParentEntry.Children
 
                Select Case childEntry.SchemaClassName
                    Case "Domain"
                        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 iphostentry As Net.IPHostEntry = _
                                          Net.Dns.GetHostEntry( _
                                          SubChildEntry.Name)
                                        For Each ipAddress As Net.IPAddress In _
                                        iphostentry.AddressList
                                            If ipAddress.AddressFamily = _
                                            System.Net.Sockets.AddressFamily.In_
                                            terNetwork Then
                                                Dim thisIp = ipAddress( _
                                                SubChildEntry.Name)
                                                ListBox1.Items.Add(thisIp)
                                            End If
                                        Next
                                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
    End Sub
 
End Class