Rubrik: HTML/Internet/Netzwerk · Netzwerk | VB-Versionen: VB5, VB6 | 11.09.06 |
Dynamische IP-Adresse schnell ermittelt - dank WMI Mit dem WMI-Objekt (Windows Management Instrumentation) lässt sich die dynamische IP-Adresse schnell ermitteln - und vieles mehr... | ||
Autor: Dieter Otter | Bewertung: | Views: 12.926 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Die dynamische IP-Adresse Ihres Rechners lässt sich dank der Windows Management Instrumentation (kurz: WMI) sehr leicht ermitteln, wie nachfolgender Tipp auch zeigen wird.
Ob Ihr System WMI unterstützt, kann leicht geprüft werden: Wenn das Windows-Systemverzeichnis das Verzeichnis WBEM kennt, so unterstützt das Betriebssystem WMI. Am besten Sie fügen beim Versuch das WMI-Objekt anzusprechen immer eine entsprechende Fehlerbehandlung in den Code ein.
Per WMI-Zugriff listet der nachfolgende Code blitzschnell alles auf, womit Ihre Netzwerkkarte gerade beschäftigt ist. Darunter natürlich auch die dynamische IP-Adresse.
Private Sub GetIPAdresses() ' Fehlerbehandlung aktivieren On Error Goto ErrHandler ' Objekt-Deklaration Dim oWMI As Object Dim sSQL As String Dim oIPConfigSet As Object Dim oIPConfig As Object Dim i As Long ' WMI-Objekt erstellen Set oWMI = GetObject("winmgmts:root/CIMV2") ' Abfragestring - just like SQL ;-) sSQL = "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = TRUE" ' WMI-SQL ausführen Set oIPConfigSet = oWMI.ExecQuery(sSQL) ' IP-ConfigSet durchlaufen For Each oIPConfig In oIPConfigSet ' alle ermittelten IP-Adressen in einer ' ListBox auflisten If Not IsNull(oIPConfig.IPAddress) Then For i = 0 To UBound(oIPConfig.IPAddress) List1.AddItem oIPConfig.IPAddress(I) Next i End If Next ' Objekte "zerstören" Set oIPConfigSet = Nothing Set oWMI = Nothing Exit Sub ErrHandler: MsgBox "System unterstützt kein WMI!" End Sub
Hinweis:
Ihre dynamische IP-Adresse finden Sie in der ListBox als allerersten Eintrag ganz oben.