Eigene IP-Adresse ermitteln Diese Funktion ermittelt die IP-Adresse des lokalen Rechners.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  15.550
https://www.tools4vb.com	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 4 Bewertung insgesamt: mittelmäßig Durchschnittliche Bewertung: 1.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Nachfolgende Funktion gibt die eigene IP-Adresse zurück, d.h. die IP-Adresse des lokalen Rechners.
Fügen Sie Ihrem Projekt zunächst einen Verweis auf die System.Management Klasse hinzu und importieren diese über die Imports Anweisung.

Imports System.Management
...

Und hier die Funktion, die die IP-Adresse zurückliefert.

''' <summary>
''' Gibt die lokale IP-Adresse des Rechners zurück.
''' </summary>
Public Function GetLocaleIP() As String
  Dim mObjects As New ManagementObjectSearcher( _
    "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
 
  Try
    For Each oItem As ManagementObject In mObjects.Get()
      Return CType(oItem.GetPropertyValue("IPAddress"), String())(0)
    Next
  Catch ex As Exception
  End Try
 
  Return ""
End Function