IP-ADRESSE UND PC-NAMEN AUSLESEN UND IN EINER MESSAGEBOX ANZEIGEN
Hier wurde ein Button „buttonIPanzeigen“ mit der Aktion „Click“ implementiert, womit die IPv4-Adresse und den PC-Namen anzeigt wird.
Private Sub buttonIPanzeigen_Click(sender As Object, e As EventArgs) Handles btnabbrechen.Click
Dim strHostName As String
Dim strIPAddress As String
strHostName = System.Net.Dns.GetHostName()
strIPAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString()
MessageBox.Show("Host Name: " & strHostName & "; IP Address: " & strIPAddress)
End Sub
Wenn man mehrere Netzwerkkarten (evtl. virtuelle) hat, könnte man das so lösen:
Private Sub buttonIPanzeigen_Click(sender As Object, e As EventArgs) Handles btnabbrechen.Click
Dim strHostName As String
Dim strIPAddress As String
Dim strIPAddress02 As String
Dim strIPAddress03 As String
On Error Resume Next
strHostName = System.Net.Dns.GetHostName()
strIPAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString()
strIPAddress02 = System.Net.Dns.GetHostByName(strHostName).AddressList(1).ToString()
strIPAddress03 = System.Net.Dns.GetHostByName(strHostName).AddressList(2).ToString()
MessageBox.Show("Host Name: " & strHostName & "; IP Address: " & strIPAddress & " - " & strIPAddress02 & " - " & strIPAddress03)
On Error GoTo 0
End Sub
Erläuterung:
Unter „AddressList(1)“ ist die jeweilige IP-Adresse von der entsprechenden Netzwerkkarte hinterlegt. Mit „Error resume next“ wird die Fehlermeldung, die kommen würde, wenn es nur einen Adapter gibt, igoniert. Mit „Error goto 0“ wird die Fehlerignorierung aufgehoben.