vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: HTML/Internet/Netzwerk · Netzwerk   |   VB-Versionen: VB2005, VB200822.12.10
Eigene IP-Adresse ermitteln

Diese Funktion ermittelt die IP-Adresse des lokalen Rechners.

Autor:   Dieter OtterBewertung:     [ Jetzt bewerten ]Views:  14.758 
www.tools4vb.deSystem:  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