Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
16.04.2024 13:54:06
Multiplikation
16.04.2024 12:41:11
Vielleicht Onur ? Leider werden nicht alle Monate
16.04.2024 12:08:33
Zelle/Spalte bestimmten Wert in Kopfzeile zuordnen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige