Tipp 0181 Lokale IP-Adresse ermitteln (WMI)
Autor/Einsender:
Datum:
  Sebastian Gross
30.06.2008
Entwicklungsumgebung:   VB.Net 2005
Framework:   2.0
Die lokale IP-Adresse ist die Adresse jedes einzelnen Computers im Netzwerk, und kann sowohl über Dns.GetHostEntry (System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList) als auch über WMI ermittelt werden.
Hier ist die WMI-Variante. In .NET gibt es dafür den Namespace System.Management. Wichtig ist,  dass zunächst ein Net-Verweis auf System.Management gesetzt wird, und zwar im Projektmappen-Explorer über das Kontextmenü "Verweis hinzufügen".
 
Function ShowIP() As String
  Dim query As ManagementObjectSearcher = _
      New ManagementObjectSearcher("SELECT * FROM " & _
      "Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
  Dim queryCollection As ManagementObjectCollection = query.Get()
  Dim mo As ManagementObject
  Dim IPAdress(1) As String

  For Each mo In queryCollection
    IPAdress = CType(mo.GetPropertyValue("IPAddress"), String())
  Next

  ShowIP = IPAdress(0)
End Function
 
Weitere Links zum Thema
IP-Adresse berechnen

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (13,4 kB) Downloads bisher: [ 362 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Montag, 23. Januar 2012