Alle IP-Adressen im Netz sehen
Gibt es einen Befehl, der alle vorhandenen IP-Adressen (von aktuell angemeldeten Rechnern) in einer Domäne oder Arbeitsgruppe anzeigt?
Danke schon mal für Hilfe.
Gruß
murkelchen
Danke schon mal für Hilfe.
Gruß
murkelchen
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 2448
Url: https://administrator.de/contentid/2448
Ausgedruckt am: 27.11.2024 um 00:11 Uhr
7 Kommentare
Neuester Kommentar
http://www.vbarchiv.net/archiv/tipp_797.html
Beschreibung
Nach langem Suchen bin ich zu diesem funktionierendem Quellcode gekommen ... zuerst importieren wir die Klasse System.Net mit dem Befehl "Imports System.Net". Die Anweisung muss in die erste Zeile des Codefensters der Form1 geschrieben, also noch vor Public Class Form1.
Imports System.Net
Public Class Form1
...
Für unser Beispiel benötigen wir auf der Form eine ListBox und einen CommandButton. Beim Klick auf den Button werden dann alle IP-Adresse ermittelt und in die ListBox übertragen.
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim Addresslist() As IPAddress = _
DNS.GetHostByName(Dns.GetHostName()).Addresslist
Dim IPs As IPAddress
' alle IP-Adressen auflisten
ListBox1.Items.Clear
For Each IPs in Addresslist
ListBox1.Items.Add(IPs.ToString)
Next IPs
End Sub
Beschreibung
Nach langem Suchen bin ich zu diesem funktionierendem Quellcode gekommen ... zuerst importieren wir die Klasse System.Net mit dem Befehl "Imports System.Net". Die Anweisung muss in die erste Zeile des Codefensters der Form1 geschrieben, also noch vor Public Class Form1.
Imports System.Net
Public Class Form1
...
Für unser Beispiel benötigen wir auf der Form eine ListBox und einen CommandButton. Beim Klick auf den Button werden dann alle IP-Adresse ermittelt und in die ListBox übertragen.
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim Addresslist() As IPAddress = _
DNS.GetHostByName(Dns.GetHostName()).Addresslist
Dim IPs As IPAddress
' alle IP-Adressen auflisten
ListBox1.Items.Clear
For Each IPs in Addresslist
ListBox1.Items.Add(IPs.ToString)
Next IPs
End Sub