hallo alle zusammen.
Ich habe hier ein vbscript geschrieben, dass eine ip anpingt und wenn es eine antwort bekommt die zeit und ein beispiel-satz in eine textdatei reinschreibt. wenn es keine antwort bekommt schreibt es einen anderen beispiel-satz rein. das klappt auch.
aber irgendwie habe ich nun nen knoten im kopf. wie bekomme ich es hin, dass das script sekündlich die ip anpingt und das solange wiederholt bis z.b. enter gedrückt wird.
natürlich mit den do/loop/until/timer/usw. befehle, aber irgendwie klappt bzw. bekomme ich das nicht hin oO
hier mal das script:
dim fso
Set Shell = CreateObject(„WScript.Shell“)
Set fso = CreateObject(„Scripting.FileSystemObject“)
const ForReading = 1, ForWriting = 2, ForAppending = 8
Set objExec = Shell.Exec(„ping 123.45.67.89“)
strPingResults = LCase(objExec.StdOut.ReadAll)
If InStr(strPingResults, „antwort von“) Then
If fso.FileExists(„c:\meinedatei.txt“) Then
set f = fso.OpenTextFile(„c:\meinedatei.txt“,8)
f.writeline time & " bitte lächeln"
f.WriteBlankLines (1)
f.close
else
set f = fso.CreateTextFile(„c:\meinedatei.txt“)
f.writeline time & " bitte lächeln"
f.WriteBlankLines (1)
f.close
end if
else
If fso.FileExists(„c:\meinedatei.txt“) Then
set f = fso.OpenTextFile(„c:\meinedatei.txt“,8)
f.writeline time & " bitte weinen"
f.WriteBlankLines (1)
f.close
else
set f = fso.CreateTextFile („c:\meinedatei.txt“)
f.writeline time & " bitte weinen"
f.WriteBlankLines (1)
f.close
end if
end if