Makro für Ping funktioniert nicht richtig
Markus
ich habe mal ein Problem. Ich möchte ein Ping losschicken mit dem unten angegebenen Makro an einen Rechner in unserem Hausnetzwerk. Wenn ich jetzt das Makro aufrufe läuft es ab zeigt mir keine Fehler an aber ich bekomme immer die Meldung der Rechner ist erreichbar obwohl, dass definitiv nicht so ist. Wenn ich cmd von „Hand“ aufrufe und den Rechner anpinge bekomme ich die Meldung „unbekannter Host touch2000-2302. „ wenn der Rechner nicht erreichbar ist. Was muss ich an dem Makro abändern, damit es funktioniert. Was bedeutet denn die Zeile „If Left(Textzeile, 4) = "Ping" Then“ ist das die die ich ändern muss?
Hoffe Ihr könnt mir weiterhelfen
Sub ping()
Rechner = "Touch2000-2302" ' 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
Anzeige