Batch IP Lanverbindungname subnetzmaske und Gateway auslesen

Hallo leute,

ich brauche ma wieder eure Hilfe.

Ich habe ein Programm in VB6 geschrieben und da ich auf keinen Fall API schnittstellen benutzen möchte hätte ichs gerne über cmd gemacht.

Ich weiß dass es hier mehrere Threads darüber gibt, aber nie passt eins perfekt.. und Batch kann ich nur mäßig also kann ich die Skripts aus den anderen Threads nicht modifizieren...

Also ich bräuchte eine Batchdatei die folgende sachen ausliest und untereinander in eine Datei schreibt (ipsettings.txt):

Lanverbindungsname (nur wenn möglich)
Lan-IP Adresse
Subnetzmaske
Standardgateway

Wäre echt toll wenn mir jemand helfen könnte <:

danke euch

Gruß jeatrexs

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 99751

Url: https://administrator.de/forum/batch-ip-lanverbindungname-subnetzmaske-und-gateway-auslesen-99751.html

Ausgedruckt am: 03.01.2025 um 14:01 Uhr

4 Kommentare

Neuester Kommentar

Moin,

Wie du Daten per CMD ausliest, solltest du so finden.
Um die Daten alle aufgelistet zu bekommen kannst du entweder

ipconfig /all

oder

netsh interface ip dump

verwenden.

MfG,
VW

Hallo!
Ich wollte nur kurz zu bedenken geben, dass ein Auslesen via Batch niemals perfekt funktionieren kann, da die Ausgabe sprachabhängig ist.

Hallo jeaTreXs!

Spricht für Dich auch etwas gegen die Verwendung von WMI? Falls nicht, dann zB

Private Sub Form_Load()
strComputer = "."  
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")  
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration")  

Adapters = ""  
For Each objItem In colItems
    Config = ""  
    If IsNull(objItem.IPAddress) Then
        Config = Config & ";"  
    Else
        Config = Config & Join(objItem.IPAddress, ",") & ";"  
    End If
    If IsNull(objItem.IPSubnet) Then
        Config = Config & ";"  
    Else
        Config = Config & Join(objItem.IPSubnet, ",") & ";"  
    End If
    If Not IsNull(objItem.DefaultIPGateway) Then
        Config = Config & Join(objItem.DefaultIPGateway, ",")  
    End If
    If Right(Config, 3) <> ";;" Then  
        Adapters = Adapters & vbCrLf & objItem.Index & ";" & Config  
    End If
Next
Adapters = Split(Mid(Adapters, 3), vbCrLf)

Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter")  

IDList = ""  
For Each objItem In colItems
    IDList = IDList & vbCrLf & objItem.Index & ";" & objItem.NetConnectionID  
Next
ID = Split(Mid(IDList, 3), vbCrLf)

For i = 0 To UBound(Adapters)
    AIndex = CInt(Split(Adapters(i), ";")(0))  
    For j = 0 To UBound(ID)
        If AIndex = CInt(Split(ID(j), ";")(0)) Then  
            Adapters(i) = Adapters(i) & ";" & Split(ID(j), ";")(1)  
            Exit For
        End If
    Next
Next

'Ausgabe des Ergebnisses  
For Each Adapter In Adapters
    MsgBox Adapter
Next
End Sub

Etwas umständlich wird das Ganze durch die Tatsache, dass nicht nur mehrere Netzwerkkarten, sondern auch die Möglichkeit mehrerer IP-Adressen je Karte zu berücksichtigen sind.

Grüße
bastla