über cmd alle 5min server pingen

[PadawanDeluXe 75]

Hallo ich glaube mich heute mal wieder zu den dümmeren zählen zu können.....

 

 

hab grad ne denkblockade und hoffe das hier irgendjemand schnell eben helfen kann....

 

 

will eine "keep-alive" batch schreiben, um einen rechner dauerhaft im netz zu halten dabei ist der angepingte server egal google heise etc.....

 

 

 

gruß

CEeS

[Necron 71]

Hi,

 

sieht folgender Maßen aus:

:1

sleep 300

ping IP-Adresse

goto :1

[XP-Fan 217]

Vllt noch als Ergänzung zu Necron.

Sleep.exe findest du im Windows XP Professional Resource Kit.

[lefg 276]

Gibt es tatsächlich kein Built In zum zyklischen Starten eines Programms, Ausführen eines Befehls?

[marka 584]

Auf Windows 2000 und Windows XP kann man folgendes VB-Script nutzen:

 

 

' anstelle des Computernamens können auch IP-Adressen angegeben werden
computer = "www.google.de"
ergebnis = Ping(computer)

Function Ping(server)
  'SYS: Windows Script Host Runtime Library
Set wshshell = CreateObject("WScript.Shell")
  'SYS: Microsoft (r) Script Runtime
Set fs = CreateObject("Scripting.FileSystemObject")
  ' in diese Datei schreibt PING.EXE seine Bildschirmausgabe
  filename = "ping.txt"

  ' %COMSPEC% ist der DOS-Befehlsinterpreter
  ' /C sorgt dafür, daß eine neue Instanz geöffnet und nach der Arbeit wieder geschlossen wird
  ' %TEMP% ist der Ordner für temporäre Dateien
  command = "%COMSPEC% /C PING.EXE " & server & " > %TEMP%\" & filename

  ' Befehl ausführen, und zwar ohne Fenster (0) und auf Ausführung warten (True)
  result = wshshell.Run(command,0,True)

  ' TEMP-Ordnernamen ermitteln
  temp = fs.GetSpecialFolder(2).Path

  ' PING.TXT im TEMP-Ordner öffnen und PING-Ergebnis lesen
  Set file = fs.OpenTextFile(temp & "\" & filename)
  Ping = file.ReadAll
  file.Close

  ' Datei wieder löschen, evtl. folgende Zeile auskommentieren, um Ergebnis zu pruefen...
  fs.DeleteFile temp & "\" & filename, True
End Function

 

Es führt im Hintergrund einen Ping auf google aus, gibt die Antwort in einee temporären Textdatei aus, und löscht diese anschließend wieder.

Es erfolgt keine Bildschirmausgabe, dies kann man aber über eine einfache MsgBox ausgeben lassen, wenn man möchte.

 

Dieses Script per Taskplaner je nach Gusto alle paar Minuten ausführen.

[~~~Dexter~~~ 10]

@All

 

Folgendes Beispielskript kommt ohne temporäre Datei aus. :)

 

Option Explicit
Const SERVER = "www.google.de"
Dim Erg
Erg = WScript.CreateObject("WScript.Shell").Exec("ping -n 2 " & SERVER).StdOut.ReadAll
WScript.Echo Erg