Wer hat welche Berechtigungen in einem Verzeichnis

[Luckie]

Ich wollte ermitteln welcher Benutzer Schreib- und Leserechte in einem angegebenen Verzeichnis auf NT ff. Systemen hat. Sprich, ich gebe ein Verzeichnis an und bekomme zurück, wer lesend und wer schreibend darauf zugreifen kann.

Ich habe hier schon nach ACL gesucht, nur weiß ichnicht so recht, ob da was passendes bei ist, weil ich auch noch gra nicht weiß, wie ich das anpacken soll. Brauche ich da SID's, XYZID's oder was auch immer und wie würde das Vorgehen aussehen.

Edit1: Im SwissDelphiCenter habe ich auchn ichts brauchbares gefunden.
Edit2: Ziel ist es ein Programm zu schreiben, um sein System auf Lücken zu untersuchen, was die Vergabe von Rechten angeht. Eventuell das ganze auch andersrum, dass man der Benutzer angibt und eine Liste bekommt3 aufwelche Verzeichnisse er wie zugreifen kann.

[Sharky]

Hai Luckie,

ich bin mir nicht ganz sicher ob Dir das hilft, aber suche mal im PSDK nach FSCTL_SECURITY_ID_CHECK. Eventuell hilft dir das weiter.

[Luckie]

Nein, es muss irgendwas mit GetSecurityInfo sein. damit bekomme ich wohl eien DACL für das Objekt (Datei). Nur wie geht es dann weiter? Besser ist für mich wohl noch GetFileSecurity, da es mir ja nur um Dateien geht.

[Luckie]

Auf SysInternals habe ich genau das Programm gefunden, was das macht, was ich will, sogar mit Source. Nur leider steige ich bei dem C/C++ Gewusel einfach nicht durch. ich weiß noch nicht mal wo was anfängt bzw. in welcher Reihenfolge ich mir welche Infos holen muss um an die Berechtigungen dranzukommen.

Ich hänge es mal an.

[Luckie]

So, in einem WinAPI Forum wurde mir jetzt etwas weitergeholfen: http://www.c-plusplus.de/forum/viewt...=469825#469825

Ich versuche das gerade in Code umzusetzten:

Delphi-Quellcode:

uses
  AclAPI;


procedure TForm1.Button1Click(Sender: TObject);
var
  psd: PSECURITY_DESCRIPTOR;
  dwLen: DWORD;
  psdc: SECURITY_DESCRIPTOR_CONTROL;
  dwDummy: DWORD;
  DaclPresent, DaclDefaulted: LongBool;
  dacl: PACL;
  aclinfo: PAclInformation;
begin
  dwLen := 0;
  psd := nil;
  GetFileSecurity('c:\boot.ini', DACL_SECURITY_INFORMATION, psd, 0, dwLen);
  psd := AllocMem(dwLen);
  try
    if GetFileSecurity('c:\boot.ini', DACL_SECURITY_INFORMATION, psd, dwLen,
      dwLen) then
    begin
      GetMem(dacl, sizeof(PACL));
      try
        if GetSecurityDescriptorDacl(psd, DaclPresent, @dacl, DaclDefaulted) then
        begin
          if GetAclInformation(PAdacl, ) then
          begin
          end;
        end;
      finally
        Freemem(dacl, sizeof(PACL));
      end;
    end;
  finally
    FreeMem(psd, dwLen);
  end;
end;

Aber es will nicht so recht. PAclInformation kennt er nicht und hier:

Delphi-Quellcode:

if GetAclInformation(dacl, ) then

sagt er mir jetzt schon:

Zitat:

[Fehler] Unit1.pas(54): Inkompatible Typen: '_ACL' und 'PACL'

Ich bräuchte da mal eure Hilfe. :cry:

[NicoDE]

Zitat:

Zitat von Luckie

PAclInformation kennt er nicht

Versuche es mit den Win32API-Paket von Marcel van Brakel (http://www.delphi-jedi.org/APILIBRARY / http://members.chello.nl/m.vanbrakel2/).

Zitat:

Zitat von Luckie

Zitat:

[Fehler] Unit1.pas(54): Inkompatible Typen: '_ACL' und 'PACL'

Die mir bekannten AclAPI/AccCtrl.pas von Borland sind - meiner bescheidenen Meinung nach - unvollständig bis unbrauchbar (je nach Delphi-Version).

[The-X]

ist der Datentyp PACL ein Pointer auf ein Record?
Zwar ne dumme Frage, ist mir aber auch schon des öfteren passiert ;)

[Luckie]

Hier fängt es im MSDN an http://msdn.microsoft.com/library/de...lesecurity.asp und der Link aus dem c++-Forum beschreibt, wie man wohl vorgehen müsste.

[Markus K.]

Hi Luckie,
den ersten Parameter bei GetAclInformation musst du glaub ich so schreiben:

Delphi-Quellcode:

GetAclInformation(dacl^,)

Dann müsste die Fehlermeldung eigentlich weg sein :gruebel: weiß es aber nicht genau.

Tschüß Markus

[The-X]

Genau das meinte ich ja mit dem "Pointer auf einen Record"...
und aus der MSDN seite wurd ich (leider) net schlauer :roll: