XProfan

Español

Descargar más unten!

¡Hola Profaner...

El Incluir setzt el en NTFS-Partitionen vorhandenen Zugriffsrechte (DACL) uno Expediente oder uno Ordners en beliebige User, Gruppen y Werte. Besonders wichtig es dies en Desarrollo de Datenbanken, el en Mehrbenutzersystemen laufen. Optional hay auch el Möglichkeit, una Logdatei con el Ergebnissen el APIs el enthaltenen Características a redactar.
Darum, si überhaupt Zugriffsrechte gesetzt voluntad puede, kümmert el Incluir por el API GetVolumeInformation incluso. Hier se aber nür verwertet, si el Zugriff einschränkbar es, no en welche Partition lo es! Wenn Incluya el en otro Betriebssystemen como en Windows laufen se, muß dies evtl. con bedacht voluntad.

El Incluir enthält 2 Prozeduren:

Get_Group_Name (3 Parámetro) => Ermittelt encima el SID el richtigen Gruppennamen el Jeder-Gruppe oder el Administratoren-Gruppe. In @$(0) se el ermittelte Gruppenname zurückgegeben.

Set_ACE_IN_DACL (6 Parámetro) => Verbietet oder erlaubt Zugriffe de cierto Usern oder Gruppen en Archivos oder Ordner.

El Procedimiento Get_Group_Name:

1.Parámetro: Jeder oder Administratoren, je después de el, welchen Gruppennamen uno benötigt.

2.Parámetro: Nummer uno con Asignar zugewiesenen y vorhandenen Expediente para Erzeugen uno Logs, 0 si no Logdatei erstellt voluntad se

3.Parámetro: Aktuelle Eintragsnummer des Logs (Steht al Ende en Log_Einträge&)

El Procedimiento Set_ACE_IN_DACL:

1.Parámetro: Expediente- oder Ordnername

2.Parámetro: Username oder Gruppe, en que el Zugriffsrechte beziehen.

3.Parámetro: +;-;0 (-=Rechte verbieten, +=Rechte erlauben, 0=alles vorhandene löschen)

4.Parámetro: Flags como String
Mögliche Flags
- FILE_READ_DATA (Erlaubt Daten de una File a lesen)
- FILE_WRITE_DATA (Erlaubt Daten a Scheiben)
- FILE_APPEND_DATA (Erlaubt Daten anzuhängen)
- FILE_READ_EA (Erlaubt erweiterte Attibute a lesen)
- FILE_WRITE_EA (Erlaubt erweiterte Atributos a escribir)
- FILE_EXECUTE (Erlaubt una Expediente auszuführen)
- FILE_READ_ATTRIBUTES (Lesen el Fileattribute)
- FILE_WRITE_ATTRIBUTES (Cambio el Fileattribute)
- WRITE_DAC (Cambio el DACL Einträge)
- READ_CONTROL (Lesen el DACL Einträge y Besitzer)
- SYNCHRONIZE (Erlaubt una FileHandle en una Complitition I/O a warten)
- File_Delete_CHILD (Erlaubt una Unterordner a löschen - para Archivos no Bedeutung)
- ACCESS_SYSTEM_SECURITY (Erlaubt el Zugriff en el SACL)
- WRITE_OWNER (Eigentümer ändern)
- F_DELETE (Expediente löschen)

5.Parámetro: Numer uno con Asignar zugewiesenen Expediente para Erzeugen uno Logs, 0 si no Logdatei erstellt voluntad se

6.Parámetro: Aktuelle Eintragsnummer des Logs (Steht al Ende en Log_Einträge&)

Ejemplo para el Einbauen el Incluir:

Kompilieren Marca Separación

 $I DACL_SET.INC
Declarar Expediente$
Asignar #1,"C:FILE_TEST.TXT"
REWRITE #1
Cerrar #1
LET DATEI$=@LoadFile$("Datei auswählen","*.*")
Get_Group_Name "Jeder",1,LOG_EINTRÄGE&
Set_ACE_IN_DACL Expediente$,@$(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 Expediente$,@$(0),"-","F_DELETE",1,LOG_EINTRÄGE&
Get_Group_Name "Administratoren",1,LOG_EINTRÄGE&
Set_ACE_IN_DACL Expediente$,@$(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)

28.05.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Achtung! Jedes Zugriffsrecht, el uno Gruppe oder una User no erlaubt wurde, se diesem User automáticamente verweigert.
Jedes Recht, el uno Gruppe verboten se, se en cada Fall cada User verboten, el Mitglied en dieser Gruppe es (salvo el Eigentümer natürlich).
Verbote haben siempre Vorrang antes Erlaubnissen. Sombrero z.B. User X en el Gruppe Hauptbenutzer el Erlaubnis una Expediente a löschen y se ihm el Löschen en el Gruppe Jeder verboten, así kann User X el besagte Expediente no löschen!
Mit wirklichen Verboten debería deshalb siempre muy sorgsam umgegangen y ser Verbote debería möglichst mejor por el no erlauben de Zugriffen realisiert voluntad!

29.05.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Im neuen Descargar bajo diesem Posting puede nun GENERIC Rechte en ihre spezifischen Rechte gemappt voluntad. El Procedimiento, el dazu disponible es, heißt

Map_GENERIC.
Diese Procedimiento wandelt una GENERIC Recht en el entsprechenden spezifischen Rechte en y son dies como String zurück. Dieser String kann direkt a el Procedimiento Set_ACE_IN_DACL transferencia voluntad.

1.Parámetro: GENERIC Rechte como String=>
GENERIC_READ
GENERIC_WRITE
GENERIC_EXECUTE
GENERIC_ALL

2.Parámetro: Nummer uno con Asignar zugewiesenen y vorhandenen Expediente para Erzeugen uno Logs, 0 si no Logdatei erstellt voluntad se

3.Parámetro: Aktuelle Eintragsnummer des Logs (Steht al Ende en Log_Einträge&)

Will hoffen, el alles klappt.

Ejemplo:
Kompilieren Marca Separación

 $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>)

DACL_SET.zip	7 kB

Kurzbeschreibung:	Incluir para Setzen de Dateizugriffsrechten Versión 4

Hochgeladen:	09.07.2005

Ladeanzahl:
		Descargar

09.07.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Lo ha se einiges geändert:
- El Procedimiento MAP_GENERIC no existe mehr. GENERIC Rechte voluntad nun direkt gemappt.
- El Función SET_ACE_IN_DACL no existe mehr, ellos wurde por folgende Función ersetzt:

SET_FILE_ACE_IN_DACL
SET_FILE_ACE_IN_DACL setzt el SecurityDescriptor uno Expediente oder uno Ordners en NTFS-Partitionen.
- Zugänglichmachen de Archivos y Ordnern para todos User (z.B. Datenbanken en Mehrbenutzerprogrammen)
- Archivos erzeugen, el sólo para einzelne User sichtbar y änderbar son.
- ...

Desweiteren hay ahora:

SET_REGISTRY_ACE_IN_DACL
- Erzeugen de Registryschlüsseln, el no sin weiteres ser editado son.
- Erzeugen de Registryschlüsseln, el no sin weiteres de cada a lesen son.
- Erzeugen de unsichtbaren Registryschlüssel, el sólo de una Systemservice gelesen y beschrieben voluntad puede.
- ....

SET_PROCESS_ACE_IN_DACL
- Verhindern, daß otro Prozesse el eigenen Prozess sin weiteres ausschalten puede.
- Erzeugung uno Serviceprogrammes, el sólo vom Sistema darse por concluido kann.
- Verhindern, Daß encima una Remote-Hilo una otro Prozess con media Rechten trabajo kann.
- ...

Documentación el Prozeduren es en el Descargar enthalten (voluntad hoffen, daß alles va).

DACL_SET.zip	21 kB

Kurzbeschreibung:	Versión 5 DACL_SET.INC

Hochgeladen:	10.09.2005

Ladeanzahl:
		Descargar

10.09.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Neue Versión:
Leere DACEs (d.h. sin Zugriffsrechtsflags) voluntad nun en el Security-Descriptor automáticamente gelöscht. Vererbung se todavía no unterstützt.

DACL_SET.zip	27 kB

Kurzbeschreibung:	Zugriffsrechte de Objekten conjunto, Versión 6.1

Hochgeladen:	16.12.2005

Ladeanzahl:
		Descargar

15.12.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Oben kleines Actualización gemacht, hatte en el Prozesse el Deklaration uno Variables vergessen. Posesiones el otro Incluye a Security con dazugepackt.

Viel Spaß con el Code...

Saludo

AH

16.12.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Werde mich como nächste a Einbindung el Vererbung kümmern. Como lo como auch en el richtige Sortierung y el auslesen des Headers des Security-Descriptors ankommt (en el WIN32.HLP no dokumentiert), es el ni todo Menge Arbeit. Sollte Yo antes Ende des Jahres no fertigwerden, voluntad Yo versuchen, el Expediente tiempos de irgendwo anders de para enviar.

PS: Das Erstellen komplett neuer ACLs z.B. para propio Archivos y Registryschlüssel (Parámetro 0) y el Hinzufügen de ACEs en el Prozeßbereich funktioniert ya perfekt - para hinzufügen de ACEs a vorhandenen ACLs en el Registry y en el Dateisystem sería Yo el Sache así aber todavía no uso.

17.12.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Neue Versión:
1.) Vererbung se unterstützt.
2.) Automático Vererbung se unterstützt.
3.) Sortierreihenfolge el ACEs wurde en Windows2000/XP Standard angepaßt.
4.) Incluir wurde en ca. una fünftel el vorherigen Größe gekürzt.

DACL_SET.zip	24 kB

Kurzbeschreibung:	Incluye para Setzen de Zugriffsrechten en un Security-Descriptor Versión 7

Hochgeladen:	20.12.2005

Ladeanzahl:
		Descargar

20.12.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Nochmals Änderung:
- Ein Bug wurde beseitigt
- Auslesen es nun posible:
Unten Quelltextbeispiel (no Angst, ändert nichts!)

Kompilieren Marca Separación

 $I DACL_SET.INC
DEF @GetSysColor(1) !"USER32","GetSysColor"
DEF @GetDlgCtrlID(1) !"USER32","GetDlgCtrlID"
DEF @ButtonClicked(1) @GetDlgCtrlID(@&(1))=-%MENUITEM
Declarar Auslesen&,Ordnername&,Ordnername$,ACE_MERKER&,Rechte_ART&,Select$
Declarar 1&,2&,4&,8&,10&,20&,40&,80&,100&,10000&,20000&,40000&,80000&,100000&,20000000&,40000000&,80000000&,10000000&
Declarar Beschränkter&,Ererbt&,Vererbungsart&,AUSWAHL$
Declarar Vererbungsart&,Vererbt&,Username&,Automatische_Vererbung&,Block&,EIGENTÜMER&,ACE_NUMMER&
Declarar Gewählter_ACE$,USERS$,Gültig&
Declarar Texto#,Tool#,Tool&
dim Texto#,262
dim Tool#,40
Windowstyle 31+512
Windowtitle "Rechte uno Expediente auslesen"
Ventana 0,0-640,440
SETTRUECOLOR 1
CLS @GETSYSCOLOR(15)
USERMESSAGES $10
Usefont Arial,17,5,1,0,0
SetDialogFont  %FONT
LET Ordnername&=@Control("STATIC","Kein Ordner ausgewählt!",$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 Rechte automáticamente 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 auswählen:",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/Gruppe:",5,95,70,25)
LET Beschränkter&=@CREATECHOICEBOX(%HWND,"",75,90,150,100)
@Createtext(%HWND,"Art des Rechtes:",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 no gelesen werden")
LET Vererbungsart&=@CREATECHOICEBOX(%HWND,"",350,120,205,100)
@AddChoice(Vererbungsart&,"Keine Vererbung")
@AddChoice(Vererbungsart&,"Vererbung a Dateien")
@AddChoice(Vererbungsart&,"Vererbung a Unterordner")
@AddChoice(Vererbungsart&,"Vererbung a Archivos y Unterordner")
LET gültig&=@CREATECHOICEBOX(%HWND,"",350,150,245,100)
@AddChoice(gültig&,"Gültig para aktuellen Ordner")
@AddChoice(gültig&,"Gültig sólo para 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 Atributos lesen",5,200,150,25)
Let 10&=@CreateCheckBox(%HWND,"Erweiterte Atributos 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 Rückgabe des Handles warten",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 Recht para Durchsuchen/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 ------Größe el TOOLINFO-Struktur
long Tool#,4=17 ------Flags
long Tool#,36=Texto# --Bereichsvariable con String
String Texto#,0="Ordner wählen y aquí una ACE auswählen, alles otro así dejar!!!" ---Texto des 1.Tooltips
long Tool#,12=ACE_NUMMER&
@SendMessage(Tool&,1028,0,Tool#) ------Tipp inicializar
String Texto#,0="Hier una Ordner wählen y luego ACE auswahlen, alles otro así dejar!!!" ---Texto des 1.Tooltips
long Tool#,12=Auslesen&
@SendMessage(Tool&,1028,0,Tool#) ------Tipp inicializar
Disponer Texto#
Disponer Tool#
@SetFocus(%HWND)

Mientras que %UMESSAGE<>$10

    Waitinput

    IF @ButtonClicked(Auslesen&)

        LET Ordnername$=@ChooseDir$("Bitte Ordner para Auslesen el Rechte 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

        más

            SetCheck Automatische_Vererbung&,0

        endif

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

            SetCheck Block&,1

        más

            SetCheck Block&,0

        endif

        LET ACE_MERKER&=1

        Mientras que @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 konnten no todos ACEs ausgelesen voluntad!","ACE-Array a klein 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"

        Más

            Let Select$="Konnte no gelesen werden"

        endif

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

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

            Setcheck 1&,1

        más

            Setcheck 1&,0

        endif

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

            Setcheck 2&,1

        más

            Setcheck 2&,0

        endif

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

            Setcheck 4&,1

        más

            Setcheck 4&,0

        endif

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

            Setcheck 8&,1

        más

            Setcheck 8&,0

        endif

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

            Setcheck 10&,1

        más

            Setcheck 10&,0

        endif

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

            Setcheck 20&,1

        más

            Setcheck 20&,0

        endif

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

            Setcheck 40&,1

        más

            Setcheck 40&,0

        endif

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

            Setcheck 80&,1

        más

            Setcheck 80&,0

        endif

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

            Setcheck 100&,1

        más

            Setcheck 100&,0

        endif

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

            Setcheck 10000&,1

        más

            Setcheck 10000&,0

        endif

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

            Setcheck 20000&,1

        más

            Setcheck 20000&,0

        endif

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

            Setcheck 40000&,1

        más

            Setcheck 40000&,0

        endif

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

            Setcheck 80000&,1

        más

            Setcheck 80000&,0

        endif

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

            Setcheck 100000&,1

        más

            Setcheck 100000&,0

        endif

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

            Setcheck 10000000&,1

        más

            Setcheck 10000000&,0

        endif

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

            Setcheck 20000000&,1

        más

            Setcheck 20000000&,0

        endif

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

            Setcheck 40000000&,1

        más

            Setcheck 40000000&,0

        endif

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

            Setcheck 80000000&,1

        más

            Setcheck 80000000&,0

        endif

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

            Settext Ererbt&,"Rechte son ererbt"

        más

            Settext Ererbt&,"Rechte son no ererbt"

        endif

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

            LET AUSWAHL$="Vererbung a Archivos y Unterordner"

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

            LET AUSWAHL$="Vererbung a Dateien"

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

            LET AUSWAHL$="Vererbung a Unterordner"

        Más

            LET AUSWAHL$="Keine Vererbung"

        endif

        @SENDMESSAGE(Vererbungsart&,$14E,@SendMessage(Vererbungsart&,$158,-1,@ADDR(Auswahl$)),0)

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

            LET AUSWAHL$="Gültig sólo para Kindobjekte"

        Más

            LET AUSWAHL$="Gültig para aktuellen Ordner"

        endif

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

    endif

wend

Viel Spaß así, aber sólo neue Versión herunterladen!

DACL_SET.zip	31 kB

Kurzbeschreibung:	Zugriffsrechte de Objekten conjunto, Versión 8.3

Hochgeladen:	25.12.2005

Ladeanzahl:
		Descargar

22.12.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Posesiones me beim Einbau el automatischen Vererbung una bastante dicken Bug instalado (rechte wurde siempre ererbt, auch si el en el original no así eingestellt war). Yo voluntad hoffen, el el Fehler ahora beseitigt es. Posesiones una Contribución más oben una Actualización gemacht. Como uno en el Ejemplo oben ya sehen kann, es para el Zukunft auch el Abspeichern des ACE Arrays y así el Editar de Rechten con el DACL_SET.INC geplant.

Der Einbau des Setzens de Token-Zugriffsrechten es ebenfalls todavía geplannt. Hilos voluntad auch kommen.

23.12.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Nochmals Actualización gemacht (Versión 8.2) y 2 Problemas beseitigt:

1.) Parámetro U funzte no (falschen Flag angegeben)
2.) CreateFile benötigt anscheinend siempre el Zugriffsrecht SYNCRONIZE. Lo reichen el Rechte WRITE_DAC y READ_CONTROL also para Erhalten uno Filehandles no de. Das heißt en el Klartext:
Obwohl uno Eigentümer uno Objektes es, puede ser con SetSecurityInfo el Zugriffsrechte no ändern, si al Recht SYNCRONIZE no zusätzlich besitzt.
Also => neue APIs Ge-/SetNamedSecurityInfo wurde instalado, entonces gehts en Archivos con weniger Rechten...

24.12.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita