English
Includes

Zugriffsrechte of/ one File settle

 
Download below!
Hello Profaner...

The Include setting The with NTFS-Partitionen vorhandenen Zugriffsrechte (DACL) of/ one File or one Folder on arbitrary User, groups and values. particularly important is this with the development of Databases, The on Mehrbenutzersystemen walk. Optional there too The Possibility, a Logdatei with the Ergebnissen the APIs the encompassed functions to create.
therefore, whether at all Zugriffsrechte staid go can, kümmert the Include by the API GetVolumeInformation self. here becomes but nür verwertet, whether the grabbed einschränkbar is, not circa which Partition it itself deals! If the Include on other Betriebssystemen as Windows walk should, must this evtl. with bedacht go.

The Include contains 2 Procedures:
Get_Group_Name (3 Parameter) => determined over the SID whom right Gruppennamen the eachone-group or the Administratoren-group. In @$(0) becomes the ermittelte Gruppenname zurückgegeben.
Set_ACE_IN_DACL (6 Parameter) => forbid or allows Zugriffe of designed Usern or groups Files or Ordner.

The procedure Get_Group_Name:
1.Parameter: eachone or Administratoren, according to the, whom Gruppennamen one needed.
2.Parameter: number of/ one with Assign allocated and vorhandenen File to that produce one Logs, 0 if no Logdatei prepares go should
3.Parameter: actually Eintragsnummer the Logs (standing end in Log_Einträge&)

The procedure Set_ACE_IN_DACL:
1.Parameter: File- or Ordnername
2.Parameter: Username or group, on which The Zugriffsrechte relating.
3.Parameter: +;-;0 (-=Rechte prohibit, +=Rechte permit, 0=alles available delete)
4.Parameter: ? Happen? as String
possible ? Happen?
- FILE_READ_DATA (allows Data from one File To reading)
- FILE_WRITE_DATA (allows data To Scheiben)
- FILE_APPEND_DATA (allows data anzuhängen)
- FILE_READ_EA (allows erweiterte Attibute To reading)
- FILE_WRITE_EA (allows erweiterte attributes To write)
- FILE_EXECUTE (allows a File to execute)
- FILE_READ_ATTRIBUTES (reading the Fileattribute)
- FILE_WRITE_ATTRIBUTES (Change the Fileattribute)
- WRITE_DAC (Change the DACL Entries)
- READ_CONTROL (reading the DACL Entries and owner)
- SYNCHRONIZE (allows one FileHandle on one Complitition I/O To Waiting)
- File_Delete_CHILD (allows a Unterordner To delete - for Files no weight)
- ACCESS_SYSTEM_SECURITY (allows whom Access to whom SACL)
- WRITE_OWNER (proprietor Change)
- F_DELETE (File delete)
5.Parameter: Numer of/ one with Assign allocated File to that produce one Logs, 0 if no Logdatei prepares go should
6.Parameter: actually Eintragsnummer the Logs (standing end in Log_Einträge&)

example for the install the Include:
 $I DACL_SET.INC
Declare File$
Assign #1,"C:FILE_TEST.TXT"
REWRITE #1
Close #1
LET FILE$=@LoadFile $("Datei auswählen","*.*")
Get_Group_Name "Jeder",1,LOG_EINTRÄGE&
Set_ACE_IN_DACL File$,@$(0),"+0","SYNCHRONIZE FILE_WRITE_EA FILE_READ_EA FILE_READ_DATA FILE_WRITE_DATA FILE_APPEND_DATA FILE_EXECUTE FILE_READ_ATTRIBUTES FILE_WRITE_ATTRIBUTES F_DELETE",1,LOG_EINTRÄGE&
Get_Group_Name "Jeder",1,LOG_EINTRÄGE&
Set_ACE_IN_DACL File$,@$(0),"-","F_DELETE",1,LOG_EINTRÄGE&
Get_Group_Name "Administratoren",1,LOG_EINTRÄGE&
Set_ACE_IN_DACL File$,@$(0),"+","FILE_DELETE_CHILD,READ_CONTROL,ACCESS_SYSTEM_SECURITY,WRITE_OWNER,WRITE_DAC,F_DELETE,SYNCHRONIZE,FILE_WRITE_EA,FILE_READ_EA,FILE_READ_DATA,FILE_WRITE_DATA,FILE_APPEND_DATA,FILE_EXECUTE,FILE_READ_ATTRIBUTES,FILE_WRITE_ATTRIBUTES,F_DELETE",1,LOG_EINTRÄGE&
@ShellExec("C:FILE_TEST.TXT","open",1)
 
05/28/05  
 



deference! each Zugriffsrecht, the of/ one group or one User not allows watts, becomes this User automatically verweigert.
each right, the of/ one group prohibited becomes, becomes In any drop each User prohibited, the Member in this group is (except for whom proprietor naturally).
Verbote having always precedence to Erlaubnissen. has z.B. User X in the group Hauptbenutzer The permit a File To delete and becomes it the Delete in the group eachone prohibited, so can User X The besagte File not delete!
with real prohibited ought to therefore always very sorgsam umgegangen and be Verbote should possible rather by the not permit of Zugriffen realized go!
 
05/29/05  
 



in the new Download under this Posting can now GENERIC rights in your specific rights gemappt go. The procedure, the help available standing, is
Map_GENERIC.
These procedure GetControlParas (B one GENERIC right into suitable specific rights circa and gives this as String back. this String can directly on The procedure Set_ACE_IN_DACL transfer go.
1.Parameter: GENERIC rights as String=>
GENERIC_READ
GENERIC_WRITE
GENERIC_EXECUTE
GENERIC_ALL
2.Parameter: number of/ one with Assign allocated and vorhandenen File to that produce one Logs, 0 if no Logdatei prepares go should
3.Parameter: actually Eintragsnummer the Logs (standing end in Log_Einträge&)

wants hoping, the everything works.

example:
CompileMarkSeparation
 $I DACL_SET.INC
Declare MY_FILE$,MY_RIGHTS$,MY_NAME$
*** LogDatei erzeugen ***
ASSIGN #1,"C:DACL.TXT"
REWRITE #1
Close #1
*** Datei auswählen ***
LET MY_FILE$=@LOADFILE$("Bitte Datei zum Ändern der Zugriffsrechte auswähle","*.*")
*** Zugriffsrechte neu festlegen ***
Map_GENERIC "GENERIC_ALL",1,LOG_EINTRÄGE&  1.Schritt: GENERIC Rechte in spezifische Rechte umwandeln (alle Rechte)
LET MY_RIGHTS$=@$(0)
GetCurrentUser 1,LOG_EINTRÄGE&  2.Schritt: "Current User" ermitteln...
LET MY_NAME$=@$(0)
Set_ACE_IN_DACL MY_FILE$,MY_NAME$,"+0",MY_RIGHTS$,1,LOG_EINTRÄGE&  3.Schritt: Rechte des aktuellen Users auf Vollzugriff ändern - sonstige, in der Datei vorhandene Rechte, löschen.
Map_GENERIC "GENERIC_READ",1,LOG_EINTRÄGE&  1.Schritt: GENERIC Rechte in spezifische Rechte umwandeln (Leserecht)
LET MY_RIGHTS$=@$(0)
GET_Group_Name "Jeder",1,LOG_EINTRÄGE&  2.Schritt: "Gruppennamen von "Jeder" ermitteln...
LET MY_NAME$=@$(0)
Set_ACE_IN_DACL MY_FILE$,MY_NAME$,"+",MY_RIGHTS$,1,LOG_EINTRÄGE&  3.Schritt: Rechte jedes Users Users auf vollen Lesezugriff ändern - sonstige, in der Datei vorhandene Rechte, beibehalten.
@ShellExec("C:DACL.TXT","open",1s=s2>)

7 kB
Kurzbeschreibung: Include to that settle of Dateizugriffsrechten Version 4
Hochgeladen:07/09/05
Downloadcounter106
Download
 
07/09/05  
 



it has itself some changed:
- The procedure MAP_GENERIC there not any more. GENERIC rights go now directly gemappt.
- The function SET_ACE_IN_DACL there not any more, tappt im dunkeln watts through following function supplant:
SET_FILE_ACE_IN_DACL
SET_FILE_ACE_IN_DACL setting whom SecurityDescriptor of/ one File or one Folder on NTFS-Partitionen.
- Zugänglichmachen of Files and Folders for all User (z.B. Databases in Mehrbenutzerprogrammen)
- Files produce, The only for single User visible and änderbar are.
- ...

Desweiteren there now:
SET_REGISTRY_ACE_IN_DACL
- produce of Registryschlüsseln, The not without further To edit are.
- produce of Registryschlüsseln, The not without further of each To reading are.
- produce of unsichtbaren Registryschlüssel, The only of a Systemservice red and described go can.
- ....

SET_PROCESS_ACE_IN_DACL
- prevent, that others processes whom own Process without further switch off can.
- Erzeugung one Serviceprogrammes, the only of system exits go can.
- prevent, That a Remote-Thread another Process with my Rechten works can.
- ...

Documentation the Procedures is in the Download include (wants hoping, that everything goes).

21 kB
Kurzbeschreibung: Version 5 DACL_SET.INC
Hochgeladen:09/10/05
Downloadcounter92
Download
 
09/10/05  
 



new Version:
vain DACEs (d.h. without Zugriffsrechtsflags) go now in the Security-Descriptor automatically deleted. Heredity becomes not yet supported.

27 kB
Kurzbeschreibung: Zugriffsrechte Objects settle, Version 6.1
Hochgeladen:12/16/05
Downloadcounter101
Download
 
12/15/05  
 



supra small Update made, having with whom processes The Deklaration of/ one variables forget. have The others Includes to Security with dazugepackt.

plenty Fun with the code...

Greeting

AH
 
12/16/05  
 



will be me as next around the Integration the Heredity concern. there it there on The right Sorting and the read the Headers the Security-Descriptors ankommt (in the WIN32.HLP not documents), is the still a whole crowd work. ought to I to end the year not fertigwerden, I will try, The File time of somewhere differently from To post.

PS: the create complete new ACLs z.B. for Own Files and Registryschlüssel (Parameter 0) and the add of ACEs in the Prozeßbereich functions already perfect - to that add of ACEs To vorhandenen ACLs in the Registry and in the Dateisystem would I The thing so but not yet use.
 
12/17/05  
 



new Version:
1.) Heredity becomes supported.
2.) Automatic Heredity becomes supported.
3.) Sortierreihenfolge the ACEs watts Windows2000/XP standard angepaßt.
4.) Include watts on ca. one fünftel the previous Size gekürzt.

24 kB
Kurzbeschreibung: Includes to that settle of Zugriffsrechten in a Security-Descriptor Version 7
Hochgeladen:12/20/05
Downloadcounter158
Download
 
12/20/05  
 



over again Änderung:
- One bow watts eliminating
- Reading is now possible:
under Quelltextbeispiel (no fear, changes nothing!)
 $I DACL_SET.INC
DEF @GetSysColor(1) !"USER32","GetSysColor"
DEF @GetDlgCtrlID(1) !"USER32","GetDlgCtrlID"
DEF @ButtonClicked(1) @GetDlgCtrlID(@&(1))=-%MENUITEM
Declare Auslesen&,Ordnername&,Ordnername$,ACE_MERKER&,Rechte_ART&,Select$
Declare 1&,2&,4&,8&,10&,20&,40&,80&,100&,10000&,20000&,40000&,80000&,100000&,20000000&,40000000&,80000000&,10000000&
Declare Beschränkter&,Ererbt&,Vererbungsart&,AUSWAHL$
Declare Vererbungsart&,Vererbt&,Username&,Automatische_Vererbung&,Block&,EIGENTÜMER&,ACE_NUMMER&
Declare Gewählter_ACE$,USERS$,Gültig&
Declare Text#,Tool#,Tool&
dim Text#,262
dim Tool#,40
Windowstyle 31+512
Windowtitle "Rechte of/ one File auslesen"
Window 0,0-640,440
SETTRUECOLOR 1
CLS @GETSYSCOLOR(15)
USERMESSAGES $10
Usefont "Arial",17,5,1,0,0
SetDialogFont  %FONT
LET Ordnername&=@Control("STATIC","No Ordner select!",$40000000+$10000000+$1000,110,5,505,20,%HWND,5000,%HINSTANCE)
LET Auslesen&=@CREATEBUTTON(%HWND,"Ordner wählen",5,5,100,25)
@Createtext(%HWND,"Eigentümer:",5,65,60,25)
LET EIGENTÜMER&=@CREATECHOICEBOX(%HWND,"",70,60,150,100)
LET Automatische_Vererbung&=@CreateCheckBox(%HWND,"Vererbbare rights automatically weitergeben",5,30,300,25)
LET Block&=@CreateCheckBox(%HWND,"Vererbung abblocken",305,30,120,25)
LET Ererbt&=@Control("STATIC","",$40000000+$10000000+$1000,440,30,150,20,%HWND,5002,%HINSTANCE)
@Createtext(%HWND,"ACE select:",300,65,100,25)
LET ACE_NUMMER&=@Control("ComboBox","",$40000000+$10000000+$200000+$100000+$3+$200,380,60,90,200,%HWND,5001,%HINSTANCE)
@Createtext(%HWND,"User/group:",5,95,70,25)
LET Beschränkter&=@CREATECHOICEBOX(%HWND,"",75,90,150,100)
@Createtext(%HWND,"Art the right:",250,95,100,25)
LET Rechte_ART&=@CREATECHOICEBOX(%HWND,"",350,90,150,100)
@AddChoice(Rechte_ART&,"Erlaubnis")
@AddChoice(Rechte_ART&,"Verbot")
@AddChoice(Rechte_ART&,"Konnte not red werden")
LET Vererbungsart&=@CREATECHOICEBOX(%HWND,"",350,120,205,100)
@AddChoice(Vererbungsart&,"Keine Vererbung")
@AddChoice(Vererbungsart&,"Vererbung on Files)
@AddChoice(Vererbungsart&,"Vererbung on Unterordner")
@AddChoice(Vererbungsart&,"Vererbung on Files and Unterordner")
LET gültig&=@CREATECHOICEBOX(%HWND,"",350,150,245,100)
@AddChoice(gültig&,"Gültig for actually Ordner")
@AddChoice(gültig&,"Gültig only for Kindobjekte")
Let 1&=@CreateCheckBox(%HWND,"Unterordner listen",5,125,120,25)
Let 2&=@CreateCheckBox(%HWND,"Dateien erstellen",5,150,120,25)
Let 4&=@CreateCheckBox(%HWND,"Ordner erstellen",5,175,120,25)
Let 8&=@CreateCheckBox(%HWND,"Erweiterte attributes lesen",5,200,150,25)
Let 10&=@CreateCheckBox(%HWND,"Erweiterte attributes schreiben",5,225,150,25)
Let 20&=@CreateCheckBox(%HWND,"Ordner durchsuchen",5,250,150,25)
Let 40&=@CreateCheckBox(%HWND,"Unterordner löschen",5,275,150,25)
Let 80&=@CreateCheckBox(%HWND,"Attribute lesen",5,300,150,25)
Let 100&=@CreateCheckBox(%HWND,"Attribute schreiben",5,325,150,25)
LET 10000&=@CreateCheckBox(%HWND,"Ordner löschen",200,125,120,25)
LET 20000&=@CreateCheckBox(%HWND,"Zugriffsrechte lesen",200,150,150,25)
LET 40000&=@CreateCheckBox(%HWND,"Zugriffsrechte schreiben",200,175,150,25)
LET 80000&=@CreateCheckBox(%HWND,"Eigentümer ändern",200,200,200,25)
LET 100000&=@CreateCheckBox(%HWND,"Auf Return the Handles "Wait,200,225,200,25)
LET 80000000&=@CreateCheckBox(%HWND,"Vererbtes generelles Leserecht",200,275,200,25)
LET 40000000&=@CreateCheckBox(%HWND,"Vererbtes generelles Schreibrecht",200,300,200,25)
LET 20000000&=@CreateCheckBox(%HWND,"Vererbtes generelles right to that search/Ausführen",200,325,290,25)
LET 10000000&=@CreateCheckBox(%HWND,"Vererbter genereller Vollzugriff",200,350,200,25)
LET Tool&=@control("tooltips_class32","",$d0000000,0,0,0,0,%HWND,0,%hinstance)
long Tool#,0=40 ------Size the TOOLINFO-structure
long Tool#,4=17 ------? Happen?
long Tool#,36=Text# --Memory-Variable with String
String Text#,0="Ordner dial and here a ACE select, everything else so let!!!" ---Text the 1.Tooltips
long Tool#,12=ACE_NUMMER&
@Sendmessage(Tool&,1028,0,Tool#) ------Tipp initialisieren
String Text#,0="Hier a Ordner dial and then ACE choices, everything else so let!!!" ---Text the 1.Tooltips
long Tool#,12=Auslesen&
@Sendmessage(Tool&,1028,0,Tool#) ------Tipp initialisieren
Dispose Text#
Dispose Tool#
@SetFocus(%HWND)

While %UMESSAGE<>$10

    Waitinput

    IF @ButtonClicked(Auslesen&)

        LET Ordnername$=@$ ChooseDir("Bitte Ordner to that Reading the rights auswählen")

        IF @AND(@RIGHT$(Ordnername$,1)="",@LEN(Ordnername$)>3)

            LET ORDNERname$=@LEFT$(Ordnername$,@LEN(Ordnername$)-1)

        endif

        Settext Ordnername&,Ordnername$
        Set_File_ACE_IN_DACL Ordnername$,"Administrator","","WRITE_DAC",0,0
        @Sendmessage(EIGENTÜMER&,$14B,0,0)
        @AddChoice(EIGENTÜMER&,ACE$[0,1])
        @Sendmessage(EIGENTÜMER&,$14E,0,0)
        @Sendmessage(ACE_NUMMER&,$14B,0,0)

        IF @VAL(ACE$[0,0]) | $400 = @VAL(ACE$[0,0])

            SetCheck Automatische_Vererbung&,1

        else

            SetCheck Automatische_Vererbung&,0

        endif

        IF @VAL(ACE$[0,0]) | $1000 = @VAL(ACE$[0,0])

            SetCheck Block&,1

        else

            SetCheck Block&,0

        endif

        LET ACE_MERKER&=1

        While @AND(ACE_MERKER&<@VAL(ACE$[0,2])+1,ACE_MERKER&<=ACE_ARRAY_GRÖßE%)

            @AddChoice(ACE_NUMMER&,@STR$(ACE_MERKER&))
            LET ACE_MERKER&=ACE_MERKER&+1

        wend

        IF @VAL(ACE$[0,2])+1>ACE_ARRAY_GRÖßE%

            @Messagebox("Es could not any ACEs read go!","ACE-aray To small dimensioniert!",16)

        endif

    Endif

    IF @Gettext$(ACE_NUMMER&)=""

        @Sendmessage(ACE_NUMMER&,$14E,0,0)

    endif

    IF Gewählter_ACE$<>@Gettext$(ACE_NUMMER&)

        let Gewählter_ACE$=@Gettext$(ACE_NUMMER&)
        LET ACE_MERKER&=@VAL(Gewählter_ACE$)

        IF @INSTR(ACE$[ACE_MERKER&,3]+",",USERS$)=0

            @ADDCHOICE(Beschränkter&,ACE$[ACE_MERKER&,3])
            LET USERS$=USERS$+ACE$[ACE_MERKER&,3]+","

        endif

        @SENDMESSAGE(Beschränkter&,$14E,@Sendmessage(Beschränkter&,$158,-1,@ADDR(ACE$[ACE_MERKER&,3])),0)

        IF ACE$[ACE_MERKER&,1]="0"

            Let Select$="Erlaubnis"

        Elseif ACE$[ACE_MERKER&,1]="1"

            Let Select$="Verbot"

        Else

            Let Select$="Konnte not red werden"

        endif

        @SENDMESSAGE(Rechte_ART&,$14E,@Sendmessage(Rechte_ART&,$158,-1,@ADDR(Select$)),0)

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$1)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 1&,1

        else

            Setcheck 1&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$2)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 2&,1

        else

            Setcheck 2&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$4)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 4&,1

        else

            Setcheck 4&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$8)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 8&,1

        else

            Setcheck 8&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$10)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 10&,1

        else

            Setcheck 10&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$20)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 20&,1

        else

            Setcheck 20&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$40)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 40&,1

        else

            Setcheck 40&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$80)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 80&,1

        else

            Setcheck 80&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$100)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 100&,1

        else

            Setcheck 100&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$10000)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 10000&,1

        else

            Setcheck 10000&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$20000)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 20000&,1

        else

            Setcheck 20000&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$40000)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 40000&,1

        else

            Setcheck 40000&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$80000)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 80000&,1

        else

            Setcheck 80000&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$100000)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 100000&,1

        else

            Setcheck 100000&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$10000000)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 10000000&,1

        else

            Setcheck 10000000&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$20000000)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 20000000&,1

        else

            Setcheck 20000000&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$40000000)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 40000000&,1

        else

            Setcheck 40000000&,0

        endif

        IF @OR(@VAL(ACE$[ACE_MERKER&,4]),$80000000)=@VAL(ACE$[ACE_MERKER&,4])

            Setcheck 80000000&,1

        else

            Setcheck 80000000&,0

        endif

        IF @VAL(ACE$[ACE_MERKER&,2]) | $10 = @VAL(ACE$[ACE_MERKER&,2])

            Settext Ererbt&,"Rechte are ererbt"

        else

            Settext Ererbt&,"Rechte are not ererbt"

        endif

        IF @VAL(ACE$[ACE_MERKER&,2]) | $3 = @VAL(ACE$[ACE_MERKER&,2])

            LET AUSWAHL$="Vererbung on Files and Unterordner"

        Elseif @VAL(ACE$[ACE_MERKER&,2]) | $1 = @VAL(ACE$[ACE_MERKER&,2])

            LET AUSWAHL$="Vererbung on Files

        Elseif @VAL(ACE$[ACE_MERKER&,2]) | $2 = @VAL(ACE$[ACE_MERKER&,2])

            LET AUSWAHL$="Vererbung on Unterordner"

        Else

            LET AUSWAHL$="Keine Vererbung"

        endif

        @SENDMESSAGE(Vererbungsart&,$14E,@Sendmessage(Vererbungsart&,$158,-1,@ADDR(selection$)),0)

        IF @VAL(ACE$[ACE_MERKER&,2]) | $8 = @VAL(ACE$[ACE_MERKER&,2])

            LET AUSWAHL$="Gültig only for Kindobjekte"

        Else

            LET AUSWAHL$="Gültig for actually Ordner"

        endif

        @SENDMESSAGE(Gültig&,$14E,@Sendmessage(Gültig&,$158,-1,@ADDR(selection$)),0)

    endif

wend


plenty Fun so, but first new version herunterladen!

31 kB
Kurzbeschreibung: Zugriffsrechte Objects settle, Version 8.3
Hochgeladen:12/25/05
Downloadcounter138
Download
 
12/22/05  
 



have me at installation the automatischen Heredity a integrally fat bow installed (rights watts always ererbt, even if the in the original not so tuned was). i will hoping, the the Error now eliminating is. have a Posting moreover supra one Update made. How one in the example supra already see can, is for future too the Abspeichern the ACE Arrays and so the edit of Rechten with the DACL_SET.INC planned.

The installation the Setzens of Token-Zugriffsrechten is ditto yet geplannt. Threads go too come.
 
12/23/05  
 



over again Update made (Version 8.2) and 2 Problems eliminating:

1.) Parameter u funzte not (incorrect Flag indicated)
2.) CreateFile needed apparently always the Zugriffsrecht SYNCRONIZE. it wealthy The rights WRITE_DAC and READ_CONTROL means to that receive one Filehandles not from. that is in the Klartext:
though one proprietor one Objektes is, can with SetSecurityInfo The Zugriffsrechte not Change, if to the right SYNCRONIZE not additional own.
means => new APIs Ge-/SetNamedSecurityInfo watts installed, then GEHTS with Files with less Rechten...
 
12/24/05  
 




Michael
Wodrich
Download works not...
 
Programmieren, das spannendste Detektivspiel der Welt.
12/25/05  
 




Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

10.310 Views

Untitledvor 0 min.
Uwe Lang09/17/22
Rc01/31/22
Manfred Barei03/20/20
p.specht03/30/17
More...

Themeninformationen

this Topic has 2 subscriber:

unbekannt (16x)
Michael Wodrich (2x)


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie