Benutzerrechte

[fredi]

Hallo alle,
ich möchte von einer Datei die Benútzerrechte erfahren und habe dazu auch ein kleines Beispiel aus dem
Entwickler Ausgabe 6/2003 seite 77 probiert.
Leider bringe ich das nicht zum laufen, folgende fehlermeldungen bekomme ich:
[Fehler] Unit1.pas(30): Undefinierter Bezeichner: 'ISWbemServices'
[Fehler] Unit1.pas(39): Undefinierter Bezeichner: 'SWbemLocator1'

wer kann mir einen tipp geben damit mein Programm diese variablen kennt ?
Ich verwende D5, WIN2000.

danke für eure Hilfe
fredi.

Beispielcode:

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, StdCtrls, ShlObj, ActiveX, shellapi;


procedure TForm1.SpeedButton1Click(Sender: TObject);
var
 aSrv          :ISWbemServices;
 vObj          :OleVariant;
 iRet          :Integer;
 vObjDesc      :OleVariant;
 vDACL         :Variant;
 vDACLEnum     :OleVariant;
 vNVS          :OleVariant;
 iHigh, iLow, I:Integer;
begin
  aSrv:=SWbemLocator1.ConnetServer('','','','','','',0,vNVS);
  vObj:=aSrv.Get('Win32_LogicalFileSecuritySetting="C:\trace.txt"',0,vNVS);
  iRet:=vObj.GetSecurityDescription(vObjDesc);
  If iRet <> 0 then
    begin
    showMessage(IntToStr(iRet));
    EXIT;
    end;
  vDACL:=vObjDesc.DACL;
  iHigh:=VarArrayHighBound(vDACL, 1);
  iLow :=VarArrayLowBound(vDACL,1);
  for i:=iLow to iHigh do
    begin
    ListBox1.Items.Add(vDACL[i].Trustee.Name);
    ListBox1.Items.Add(vDACL[i].AccessMask);
    end;
end;

[edit=Luckie]Delphi-Tags eingefügt. Beim nächsten mal bitte selber machen. Danke Mfg, Luckie[/edit]

[s14]

Hallo fredi,
ich glaube da muss erst die Wbem-Typbibliothek in die Uses-Klausel eingebunden werden.

Gruß
Andy

[fredi]

danke für deine rasche antwort,
in meiner Typbibliothek gibt es leider keine 'Wbem' !
hat die event. einen anderen namen, was muß ich importieren ?
fredi

[Motzi]

Du musst zuerst die WbemScripting-Typlibrary importieren... Delphi erzeugt dann eine Datei mit demselben Namen, nur mit angehängtem "_TLB.pas" und die brauchst du dann in deiner uses-Liste!

Alternativ zu WMI kannst du das ganze aber auch über die klassischen APIs machen - ist aber nicht unbedingt einfacher (SecurityDescritoren, SACLs, DACLs, ACEs, ...)!

[fredi]

Hi Motzi,
danke für deine hilfe.
habe jetzt die typ bibliothek in mein projekt importiert.
Jetzt kennt er aber SWbemLocator1 wieder nicht !
Was mich ein wenig stutzig macht ist, daß in der unit WbemScripting_TLB kein classe mit SWbemLocator1 steht.
Im Beispielcode wird aber SWbemLocator1 geschrieben. Ist da ein fehler oder muß die
SWbemLocator1 erst erzeugt werden ?
Wenn diese jedoch erst erzeugt werden muß, wie ?

[Fehler] Unit1.pas(40): Undefinierter Bezeichner: 'SWbemLocator1'

kannst du mir da noch einen tipp geben.
danke im voraus fredi.

[Motzi]

Ich nehme mal stark an, das SWbemLocator1 ein TSWbemLocator-Objekt auf deiner Form ist...!

[fredi]

danke an alle,
es läuft....

fredi

[fredi]

kommando zurück, es funkt doch nicht so wie es sollte.
bekomme bei zeile : vObj:=aSrv.Get('Win32_LogicalFileSecuritySetting=" C:\comp.txt"',0,vNVS);
Klasse EOleException -> 'Ungültiger Objektpfad'

den pfad und die datei comp.txt gibt es aber.

weiß wer rat ?

fredi

[s14]

Hallo fredi,

mir sind zwei "Fehler" aufgefallen:

Delphi-Quellcode:

  vObj := aSrv.Get('Win32_LogicalFileSecuritySetting=''C:\trace.txt''', 0, vNVS);
  iRet := vObj.GetSecurityDescriptor(vObjDesc);

Die Pfadangabe muss mit zwei Hochkommas angegeben werden, nicht mit ".
Dann noch "SecurityDescriptor" statt "SecurityDescription".

Ersetze die oberen Zeilen, dann sollte es funktionieren :)
Wenigstens bei mir geht's so.

Gruß
s14

[fredi]

Hi s14,
danke für die hilfe,
ich habe die Fileübergabe schon mit einem opendialog gelöst, weil ich mit den hochkommas und gänsefüsschen schon ein problem vorausgesehen habe, leider trotzdem ohne erfolg.

vObj:=aSrv.Get('Win32_LogicalFileSecuritySetting=' + OpenDialog1.FileName,0,vNVS);

danke auch für den hinweis des zweiten fehlers.
Falls du noch eine idee hast, bite teil mir diese mit.

fredi