IP-Adresse per Batch auslesen

Und ewig grüßt das Murmeltier...
Das alte Thema "Wie ermittle ich die IP-Adresse meines Rechners in einem Batchskript". Das Thema wurde hier schon mal behandelt und als "gelöst" gekennzeichnet. Allerdings bin ich mit der auf dem Befehl ipconfig beruhenden Lösung nicht so ganz zufrieden.

Denn ipconfig gibt immer Informationen über alle Netzwerkadapter aus. Hat man z.B. zusätzlich zum LAN-Adapter noch eine WLAN-Karte und/oder ein virtuelles Netzwerk (wie z.B. das Host-Only-Network von der Virtualbox) wird die Sache schnell unübersichtlich, mann muss zusätzliche Kontrollmechanismen (wie z.B. einen Zähler) einbauen usw. Sonst bekommt man immer die letztgenannte IP-Adresse, die nicht unbedingt die richtige sein muss. Und das Konzept mit dem Zähler ist auch noch davon abhängig, in welcher Reihenfolge die einzelnen Netzwerkadapter ausgegeben werden, was sich aber von Rechner zu Rechner unterscheiden kann.

Lange Rede, kurzer Sinn, here it is:

Noch schneller geht es mit dieser Variante:

Ist zwar eine sehr lange, aber dennoch eine einzige Zeile. (Wer diese Zeile in einer Batchdatei verwenden möchte, sollte nicht vergessen alle Vokommen von %x zu %%x zu erweitern.)

Erklärung:
in der Ausgabe des Befehls netsh interface ipv4 show route steht an erster Stelle in der Spalte Idx der Index des richtigen Netzwerkadapters. Diesen greifen wir uns und bekommen dann mit netsh interface ipv4 show addresses <index> die IP-Konfi für den Netzwerkadapter mit der gegebenen Indexnummer. (Ohne die Angabe der Indexnummer ist die Ausgabe ähnlich wie bei ipconfig.) Jetzt also nur noch nach dem passenden String filtern und die echo-Ausgabe durch eine set-Anweisung geeignet ersetzen. Finito.

Ein alternativer Weg wäre es, die Indexnummer aus netsh interface ipv4 show interfaces herauszufiltern. Diese Methode hat sich allerdings als unzuverlässig entpuppt: ich habe Rechner gesehen, auf denen die Bezeichnung "LAN-Verbindung" dem bereits erwähnten virtuellen Netzwerk der Virtualbox gehörte, während die gesuchte Netzwerkkarte auf den Namen "Ethernet" gehört hat. Ist also wieder Rechner-abhängig. Da halte ich den Eintrag in der Routingtabelle, der die Metrik 0 hat, für zuverlässiger.


Noch einfacher geht es mit dem Tool "Swiss File Knife". Da bekommt man mit sfk.exe ip sofort das, wonach man sucht. Die Sache hat aber zwei kleine Haken: a) mehr als die IP-Adresse erfährt man dabei auch nicht (d.h. keine Subnetzmaske) und b) auch wenn das Tool Freeware ist, geht man dabei über Bordmittel hinaus (ist nur so eine Prinzip-Sache).


Wenn ihr bessere oder vergleichbare Lösungen habt, bitte teilt euer Wissen mit uns.


Schöne Grüße
Eugen

WARNUNG: Es konnten keine Hostinformation vom Computer: [ABCDEFGHIJK] ermittelt
werden. Einige Befehle sind eventuell nicht verfügbar.
Das angegebene Modul wurde nicht gefunden.

Der folgende Befehl wurde nicht gefunden: interface ip show route.

sc config remoteaccess start= auto
net start remoteaccess

for /F "tokens=6*" %i in ('netsh routing ip show rtmroutes ^| find "0.0.0.0/0"') do @for /F "tokens=1" %a in ('netsh interface ip show ipaddress ^| find "%j"') do @echo IP: %a  

for /f "tokens=2 delims=" %a in ('ping -n 1 -4 %computername% ^| find /I "%computername%"') do @echo IP: %a  

'#############################################################  
' **************************************************  
' * IP-Adressen und MAC-Adressen auflisten  
' **************************************************  
'On Error Resume Next  

Set wmi = GetObject("winmgmts:")  
' alle Instanzen finden, bei denen IPEnabled auf true gesetzt ist  
wql = "select * from win32_NetworkAdapterConfiguration where IPEnabled=true"  
Set configs = wmi.ExecQuery(wql)

For each config in configs
Set assoc = config.Associators_(,"Win32_NetworkAdapter",,,,,,,32)  
	' die zugehörige Win32_NetworkAdapter-Klasse finden  
	For each karte in assoc
		Set adapter = karte
		' gibt nur eine, also Schleife verlassen  
		exit For
	Next	
		' Join macht aus einem Variablenfeld einen String  
		if instr(adapter.name, "Nortel") = 0 then  
		 	if config.DHCPEnabled = true then
		 		DHCP = "Ja"  
		 	else
		 		DHCP = "Nein"  
		 	end If
		 	
			WScript.Echo adapter.name 
			WScript.Echo adapter.MACAddress 
			WScript.Echo Join(config.IPAddress, ",")   
			WScript.Echo config.DHCPServer 
			WScript.Echo DHCP
			WScript.Echo config.DNSDomain
		end if
Next


'#############################################################  

SETLOCAL EnableDelayedExpansion

REM # IP-Adresse holen
for /f "tokens=2 delims=" %%a in ('ping -n 1 -4 %COMPUTERNAME% ^| find /I "%COMPUTERNAME%"') do set ip_adresse=%%a

for /f "tokens=2 delims=:" %%A in ('ipconfig ^| findstr "%ip_adresse% Subnet"') do (
	REM # IP-Adresse bereinigen (Leerzeichen entfernen) und in einer 
	REM # temporären Variable speichern
	for /f %%a in ("%%A") do set gefunden=%%a
	REM # Die Subnetzmaske soll nur dann ausgelesen werden, wenn sie
	REM # unmittelbar auf die "richtige" IP-Adresse folgt,
	REM # ansonsten wird sie verworfen.
	IF '!gefunden!'=='%ip_adresse%' (
		set flag=1
	) ELSE (
		IF '!flag!'=='1' (
			set subnetz_ip=!gefunden!
			set flag=
		)
	)
)
set gefunden=