Tipp 0492 Lokale IP- und MAC-Adresse ermitteln (WMI)
Autor/Einsender:
Datum:
  Markus Schutz
19.04.2006
Entwicklungsumgebung:   VB 6
Dieser Tipp demonstriert, wie man Informationen über die installierten Netzwerkadapterkonfigurationen erhalten kann. Er liest dabei die IP- und die MAC-Adresse sowie die Beschreibung des Adapters aus.
 
Option Explicit

Dim strComputer As String

Private Sub Form_Load()
  strComputer = getComputerName()
  Me.Caption = Me.Caption & " [" & strComputer & "]"
End Sub


Private Sub cmdGetAllIP_Click()
  On Error GoTo err_handler

  Dim i As Integer
  Dim objWMI As Object, IPConfigSet As Object, IPConfig As Object

  txtIPInfo.Text = ""

  Set objWMI = _
        GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

  Set IPConfigSet = objWMI.ExecQuery( _
        "SELECT Index, IPAddress, Description, MACAddress " & _
        "FROM Win32_NetworkAdapterConfiguration " & _
        "WHERE IPEnabled=TRUE")

  For Each IPConfig In IPConfigSet
    If Not IsNull(IPConfig.IPAddress) Then
      For i = LBound(IPConfig.IPAddress) To _
            UBound(IPConfig.IPAddress)
        txtIPInfo.Text = txtIPInfo.Text & "Adapter " & _
              IPConfig.Index & vbCrLf
        txtIPInfo.Text = txtIPInfo.Text & "Beschreibung: " & _
              IPConfig.Description(i) & vbCrLf
        txtIPInfo.Text = txtIPInfo.Text & "IP Adresse: " & _
              IPConfig.IPAddress(i) & vbCrLf
        txtIPInfo.Text = txtIPInfo.Text & "MAC Adresse: " & _
              IPConfig.MACAddress(i) & vbCrLf & vbCrLf
      Next i
    End If
  Next

  Exit Sub

err_handler:
  txtIPInfo.Text = "Fehler " & Err.Number & " ist aufgetreten:" & _
        vbCrLf & Err.Description
End Sub

Private Function getComputerName()
  Dim NetworkInfoSet As Object

  Set NetworkInfoSet = CreateObject("Wscript.Network")
  getComputerName = NetworkInfoSet.ComputerName
End Function
 
Hinweis
Um diesen Tipp ausführen zu können, muss WMI installiert sein. Dies ist bei Windows 2000, Windows XP und Windows ME (Millenium Edition) standardmäßig der Fall. Für Windows NT 4.0 kann hier ein entsprechendes Installationspaket heruntergeladen werden, das eine vergleichbare Funktionalität bietet.
Weitere Links zum Thema
Online-IP auslesen

Windows-Version
95
98
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (3 kB) Downloads bisher: [ 1017 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

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

Seite empfehlen Bug-Report
Letzte Aktualisierung: Mittwoch, 31. August 2011