Rubrik: HTML/Internet/Netzwerk · Netzwerk | VB-Versionen: VB2005, VB2008 | 22.12.10 |
Eigene IP-Adresse ermitteln Diese Funktion ermittelt die IP-Adresse des lokalen Rechners. | ||
Autor: Dieter Otter | Bewertung: | Views: 14.800 |
www.tools4vb.de | System: Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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