Rechte in einer Procedure einholen

[MrReg]

Hi Leute,

ich habe mal eine Frage:

Ich habe ein Programm Programmiert, mit dem man im LAN andere PCs anpingen kann, es ist also ganz simpel.
Nun habe ich aber folgendes Problem und zwar bekomme ich auf einem eingeschränkten account eine Fehlermeldung, weil ich nicht genügend Rechte habe. Nun habe ich mir schon viele Beispiele angeguckt, wie man sich Administratorrechte holen kann.

Ich habe aber eher daran gedacht, das das so wie beim Sutdown abläuft, also ohne das der Benutzer irgendwelche Sachen eingeben muss. Da gäbe es z.B. die Methode die es mir ermöglicht das Programm mit Runas auszuführen, das ist aber genau das was ich nicht möchte.

Abschließend habe ich mir gedacht, dass ich den Code in meine Procedure vor dem Ping-Befehl einbaue.

Ich habe versucht, den Code von Luckie (EnablePrivileges) in meine Procedure zu kopieren und als Result meine eigenen Befehler einzugeben. Hat leider nicht geklappt.


Hat jemand eine Ahnung, wie das geht?


Gruß
MrReg

[Christian Seehase]

Moin MrReg,

erst einmal ein herzliches Willkommen hier in der Delphi-PRAXiS.

Wenn Du bei einem Ping an den Rechten scheiterst wirst Du wohl die Indys benutzen.
Ersatzweise solltest Du Dir einmal ICMPSendEcho anschauen (die wohl auch dem Indy-Ping zugrunde liegende Funktion), dort tritt dieses Problem nicht auf.

[Bernhard Geyer]

Die ICS-Componenten haben AFAIK auch kein Rechte-Problem.

[MrReg]

Hi,

erst einmal vielen Dank für die schnellen Antworten.

Ich habe mir die ICS-Komponenten runtergeladen und werde noch heute beides ausprobieren.

Gruß

MrReg