Rubrik: HTML/Internet/Netzwerk · Netzwerk | VB-Versionen: VB2005, VB2008 | 22.12.10 |
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