ping an aufgelistete Computernamen

Bild

Betrifft: ping an aufgelistete Computernamen
von: Neutron
Geschrieben am: 16.02.2005 14:25:28
Hallo,
ich würde gerne eine Liste von Computernamen in Excel an die Commandobox mit dem Befehl "ping" übergeben und das Ergebnis nach Excel zurück schreiben.
Wäre um einen Tip dankbar.
Danke im Voraus.

Bild

Betrifft: AW: ping an aufgelistete Computernamen
von: Willie
Geschrieben am: 16.02.2005 15:00:36
Hallo
Hier der Tipp, ich hoffe das hilft, wenn nicht mußt du dich eben
nochmals melden!
Gruß
Willie
Rückmeldung wäre nett

Sub ping()
Ergebnis = Shell("cmd /K ping 10.99.111.111", 1)
End Sub

Bild

Betrifft: @Udo
von: Willie
Geschrieben am: 16.02.2005 15:40:13
Zur Erklärung ..
Man sieht es in der DOS-Box, wenn man eine Antwort vom Ziel host bekommt
oder man kann es so machen! dass das Ergebnis in eine Datei geschrieben wird
und diese dann mittels VBA untersucht, oder manuell öffnet und nachschaut,
ob der Ping erfolgreich war oder nicht!
mfG
Willie

Sub ping()
Ergebnis = Shell("cmd /K ping 10.1.123.123 > D:\pingpong.txt", 1)
End Sub

Bild

Betrifft: AW: ping an aufgelistete Computernamen
von: Udo
Geschrieben am: 16.02.2005 15:19:28
Wie soll das Ergebnis aussehen, ob der PC erreichbar ist?
Udo
Bild

Betrifft: AW: ping an aufgelistete Computernamen
von: Willie
Geschrieben am: 16.02.2005 18:04:21
Hallo Neutron
Da ich auch einiges mit Ping prüfen muß habe ich mir die Mühe gemacht,
das ganze auch gleich für mich zu nuttzen! Ich habe dir die Datei hochgeladen!
Eine Rückmeldung wäre schön auch im Sinne des Forums.
Gruß
Willie

https://www.herber.de/bbs/user/18195.xls
 Bild

Beiträge aus den Excel-Beispielen zum Thema "per Userform Benutzer auswählen"