IPs und Hostnamen Pingen

[gfaust]

Hallo Liebe Forumsmitglieder,

Ich habe eine Liste von IP Adresse und eine Liste von Hostnamen.
(benutzt wird office 365)

Funktion 1:
Zum einem möchte ich in der Tabelle Rollout in der Spalte J die IP Adresse Pingen und in der Spalte K das Ergebnis online (grüne Schrift) / offline (rote Schrift)
(in der Spalte gibt es auch leere Felde die nicht beachtet ) werden sollen.

Funktion 2:
In der anderen Funktion möchte ich über die Spalte L in der die Hostnamen stehen die IP raus bekommen und diese in der Spalte J abspeichern (IP Adresse in roter Schrift)
wenn das Feld nicht leer ist.

Ich habe absolut keine Ahnung wie ich das umsetzten kann bzw. ob überhaupt geht.

Falls ich das ganze in der falschen Rubrik gefragt habe tut es mir leid.

Ich hoffe auf ein positives Feedback

Viele Grüße
Guido

[Fennek]

Hallo,

ein überschaubarer Ansatz wäre:

Liste der IP's in eine Text-Datei schreiben.
Mit Wintaste+r und CMD die Commandline aufrufen
Alle IP's anpingen: for /f %i in (Name_der_Datei) @do ping -n 1 -a %i >>ausgabe.txt

Die Datei "Ausgabe.txt" mit Excle auswerten.

Je nach der AV kann VBA auch einen Befehl der Commandline ausführen.

mfg

(ungeprüft, kann Typos enthalten)

Getestet:

for /F %i in (gfaust.txt) do @ping -n 1 -a %i | findstr "Ping TTL" >> out.txt