Anpingen komisches Problem

[youuu]

Hi, so ping ich eine Webseite an.

Delphi-Quellcode:

var
  IdICMPClient1: TIdIcmpClient;
Begin
  IdICMPClient1 := TIdICMPClient.create(nil);

  try
    try
      IdICMPClient1.IPVersion := Id_IPv4;
      IdICMPClient1.PacketSize := 1024;
      IdICMPClient1.Port := 0;
      IdICMPClient1.ReceiveTimeout := 5000;
      IdICMPClient1.Protocol := 1;
      IdICMPClient1.ProtocolIPv6 := 58;
      IdICMPClient1.Host := 'www.test.de';
      IdIcmpClient1.Ping();
      case IdIcmpClient1.ReplyStatus.ReplyStatusType of
        rsEcho: Result := True;
        else Result := False;
      end;

    except
      on E: Exception do begin
        Showmessage(E.Message);
        Result := False;
      end;
    end;
  finally
    FreeAndNil(IdICMPClient1);
  end;
End;

Das funktioniert auf meinem Laptop mit WLan auch wunderbar, jedoch auf meinen Standrechner mit Lan wirft er mir immer "access denied" raus.
Ich dachte sofort an Firewall, hab ich alles ausgeschaltet, Fehler bleibt aber bestehen. Bin gerade etwas ratlos.

[Bernhard Geyer]

AFAIK benötigt TIdICMPClient-Adminrechte. Damit wirst du dein Programm bei aktiver UAC ebenfalls mit Adminrechten starten müssen.
Die ICS-Kompos können AFAIK das Pingen ohne das Adminrechte benötigt werden.

[youuu]

Oh, das teste ich eben einmal. Danke für den Hinweiß.

Edit: Danke das war es tatsache.

[Christian Seehase]

Zitat von Bernhard Geyer:

AFAIK benötigt TIdICMPClient-Adminrechte. Damit wirst du dein Programm bei aktiver UAC ebenfalls mit Adminrechten starten müssen.
Die ICS-Kompos können AFAIK das Pingen ohne das Adminrechte benötigt werden.

Oder man verwendet gleich die API-Funktionen (z.B. ICMPSendEcho)