Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ping aus Excel geht nicht

Forumthread: Ping aus Excel geht nicht

Ping aus Excel geht nicht
04.03.2004 21:04:10
Thorsten
Hallo Excelfans,
in der Recherche habe ich Ergebnis = Shell("cmd /K ping 10.1.1.101", 1)
zum Pingen aus Excel gefunden. Leider führt das bei mir zu "Laufzeitfehler 53, Datei nicht gefunden"
- und welche Datei gemeint ist, verrät Excel nicht. Es läuft Win 98 mit Office 2000 und den Standardpfaden,
also der Windows-Ordner ist C:\Windows etc.
Zur Sicherheit habe ich die Ping.exe noch in C:\Windows\Command kopiert.
Über einen Tip würde ich mich freuen.
Thorsten
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ping aus Excel geht
04.03.2004 21:20:32
y
hi Thorsten,
probier mal

Sub pruefen()
Rechner = "Micha" ' hier bitte den rechnernamen eintragen
ShellAndWait ("CMD.EXE /C " & "ping " & Rechner & " > C:\Test.txt")
Close #1
Open "c:\Test.txt" For Input As #1
Input #1, Textzeile
If Left(Textzeile, 4) = "Ping" Then
MsgBox ("Der Rechner " & Rechner & " ist nicht erreichbar")
Else
MsgBox ("Der Rechner " & Rechner & " ist erreichbar")
End If
Close #1
Kill "c:\Test.txt"
End Sub



Function ShellAndWait(FileName As String)
Dim objScript
Set objScript = CreateObject("WScript.Shell")
ShellApp = objScript.Run(FileName, 1, True)
ShellAndWait = True
End Function

cu Micha
Anzeige
AW: Geht nicht - Automatisierungsfehler
04.03.2004 21:56:35
Thorsten
Hallo Micha,
nachdem das Sub die Funktion aufruft, entsteht in der Zeile
ShellApp = objScript.Run(FileName, 1, True)
ein Laufzeitfehler/Automatisierungsfehler, einmal kam auch
"Die Methode Run für das Object IWshShell ist fehlgeschlagen"
Die wscript.exe ist vorhanden, müßte ich ev. die IE-Einstellungen
für ActiveX lockern/alles zulassen?
Hast Du noch eine Idee?
Danke und Grüße,
Thorsten
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige