1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

@echo off
echo.###################################################
echo.#####                                         #####
echo.#####          DF-Ping-Reply-Checker          #####
echo.#####     2005 (c) WeBsPaCe @ DelphiForum     #####
echo.#####                                         #####
echo.###################################################
echo.
if [%1]==[/help] goto :hilfe
if [%1]==[/h] goto :hilfe
if [%1]==[/?] goto :hilfe
if [%1]==[-help] goto :hilfe
if [%1]==[-h] goto :hilfe
if [%1]==[-?] goto :hilfe
if [%1]==[help] goto :hilfe
if [%1]==[h] goto :hilfe
if [%1]==[?] goto :hilfe
set host=%1
if [%1]==[] set host=www.delphi-forum.de
:schleife
ping -n 1 %host% >NUL
if errorlevel 1 echo.[...............] No  ping reply from host %host%
if errorlevel 0 echo.[!!!!!!!!!!!!!!!] Ping reply from host %host%
goto :schleife
:hilfe
echo.Syntax:
echo.CheckDF.bat [host]
echo.
echo.[host]      steht fuer den Host also die Internet-
echo.            adresse, die angepingt werden soll.
echo.            Ist kein Parameter angegeben, dann
echo.            verwendent CheckDF.bat den Host
echo.            "www.delphi-forum.de". Have Fun!!
echo.					

1:
2:
3:

:hmpf
start bla.bat
goto hmpf