Ping schlägt fehl

[Svenkan]

Ich wollte für ein Fehlerprotokoll die Möglichkeit geben, den eingestellten Server anzupingen.
Dazu habe ich bei DSDT einen Code gefunden, den ich für mich modifiziert habe:

Delphi-Quellcode:

procedure TProtokoll.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
var
  sTime: String;
begin
  if (AReplyStatus.MsRoundTripTime = 0) then
    sTime := '<1'
  else
    sTime := '=';

  if (AReplyStatus.MsRoundTripTime>5000) then
    Protokoll.Lines.Add('Zeitüberschreitung der Anforderung')
  else
    Protokoll.Lines.Add(Format('Antwort von %s: Bytes=%d Zeit%s%dms Ping-ID=%d TTL=%d',
                            [AReplyStatus.FromIpAddress,
                             AReplyStatus.BytesReceived,
                             sTime,
                             AReplyStatus.MsRoundTripTime,
                             AReplyStatus.SequenceId,
                             AReplyStatus.TimeToLive]));
end;

procedure TProtokoll.Button2Click(Sender: TObject);
var i:Integer;
begin
  IdIcmpClient1.Host := server;
  Protokoll.Lines.Add(sLineBreak+'Ping wird ausgeführt für '+server+':');
   for i := 1 to 4 do
   begin
     IdIcmpClient1.Ping;
     Application.ProcessMessages;
   end;
end;

Leider bekomme ich keinerlei Antwort von aussen, als IP wird nur 0.0.0.0 angezeigt und es liegt eine Zeitüberschreitung (>5sec) vor.
Ich habe das gleiche über die Kommandozeile von Windows probiert, was problemlos funktioniert.

[Christian Seehase]

Moin Svenkan,

der Ping aus den Indys benötigt Admin-Rechte.
Kann das die Ursache sein?

[ascotlx]

moin moin,

ich denke auch, dass es ein Rechteproblem ist. Der Ping unter Windows ist ein "besonderer" ping... er ist
modifiziert worden. Ich wühl mal in meinen Sourcen, das Problem hatte ich auch schon mal.

bis später ...

(ich habe "damals" - ein tolles Wort - die Antwort hier im Forum gefunden ;o) )

ascotlx

[Bernhard Geyer]

Die Ping-Komponente von ICS sollte AFAIK ohne Admin-Rechte funktionieren.

[Svenkan]

Ich bin der einzige User an meinem Rechner und habe volle Adminrechte.
Ich hab zur Sicherheit auch nochmal das Programm extra als Administrator ausgeführt und das Problem bleibt leider das Selbe.

@ ascotlx: Wär echt super, wenn du was dazu finden würdest!
@ Bernhard Geyer: Was ist/sind ICS?

[vlees91]

Zitat:

Zitat von Svenkan

@ Bernhard Geyer: Was ist/sind ICS?

http://www.overbyte.be/frame_index.h...ducts/ics.html

eine Art Indy so wie ich das jetzt sehe.

[Svenkan]

Danke!
Werd mal schauen, wies damit läuft. ;)

[Svenkan]

Funktioniert perfekt damit!
Allerbesten Dank!

[Christian Seehase]

Moin Svenkan,

arbeitest Du unter Vista?

[Svenkan]

Moin Christian,

ja, das tu ich. ;)

[Christian Seehase]

Moin Svenkan,

dann dürfte es wohl doch an den Rechten liegen, die der Indy-Ping benötigt.
Vermutlich ist dann bei Dir auch die UAC aktiviert.
Ich hab' mir bislang allerdings auch noch nicht angeschaut, was die Indys da veranstalten, um Admin-Rechte zu benötigen ;-)

[Svenkan]

Moin Christian,

also die UAC ist bei mir deaktiviert, ich selbst habe Admin-Rechte und auch explizites Ausführen als Administrator hat nicht geholfen.
Vielleicht gibt es irgendwo noch weitere Rechte-Settings, so genau hab ichs mir bei Vista noch nicht angeschaut.

[Christian Seehase]

Moin Svenkan,

da mir bislang für einen Ping die API-Funktion IcmpSendEcho genügt hat, habe ich mir, wie gesagt, noch nicht angeschaut, was die Indys da machen.
Vielleicht sollte ich mir doch langsam mal Vista installieren :mrgreen:

[Svenkan]

Moin Christian,

ich werde mir morgen mal anschauen, ob das nicht eine bessere Lösung ist, als eine extra Komponente draufzupacken.
Aber glaub mir, du willst Vista nicht haben. :D
Sieht schön aus und so, aber ich wünsche mir die Tage zurück, an denen mein Rechner flüssig läuft. :D:D
Lange dauerds nicht, da nehme ich meine XP-Disc und verbanne Vista auf ewig von meinem Rechner. ^^

[Christian Seehase]

Moin Svenkan,

Zitat:

Zitat von Svenkan

Aber glaub mir, du willst Vista nicht haben. :D

von "wollen" kann keine Rede sein, aber ich muss mich damit beschäftigen :?
Es kommt allerdings auch nur als Zweitsystem drauf ;-)

[Luckie]

In meinem LuckiePing habe ich eine Ping Unit benutzt, die auch ohne administrative Rechte auskommt - zumindest unter XP.

[renekr]

H @,
hat jemand schon ie ösung gefunden wo man unter Vista pingen kann ohne Admin Recte habn zu müssen?

Stehe soeben vor diesem Problem.

danke