Hallo!
Um endlich mal klarheit zu verschaffen habe ich (nach langem googlen) heute einen Code zusammengestellt und verändert, der alle IP adressen im Netzwerk auflistet!
Es gibt eine ListBox mit dem Namen ListBox1

Quellen:
http://forum.vb-paradise.de/programm...ter-auflisten/
(DIE andere Quelle weiß ich nicht! )


Verweis setzten: System.DirectoryServices

Und vor der Class: Imports System.DirectoryServices

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

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 IPHostEntry = Dns.GetHostEntry(SubChildEntry.Name)                                         For Each ipAddress As IPAddress In iphostentry.AddressList                                             If ipAddress.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork Then                                                 Dim thisIp = ipAddress                                                 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

Ich hoffe das hilft vielen weiter!

Mfg
1234_c_1234

Wenn ich deinen Code richtig interpretiere, dann wird diese Auflistung aber nur in einer Domäne funktionieren. Alle IPs bekommst du so aber nicht.