Verzeichnisberechtigung über ADS

[JRN 10]

Hallo,

 

ich will per Script die Berechtigung auf Fileebene ändern.

 

WRITE und READ usw funkt ohne Probleme.

 

Kann mir einer vielleicht sagen wie man spezille Berechtigungen vergibt?

 

Ich brauche nun noch folgendes:

 

List(RX) (NOT Specified)

Special Access (RX)(RW)

 

aus folgenden Const:

 

Const ADS_RIGHT_DELETE = &h10000

Const ADS_RIGHT_READ_CONTROL = &h20000

Const ADS_RIGHT_WRITE_DAC = &h40000

Const ADS_RIGHT_WRITE_OWNER = &h80000

Const ADS_RIGHT_SYNCHRONIZE = &h100000

Const ADS_RIGHT_ACCESS_SYSTEM_SECURITY = &h1000000

Const ADS_RIGHT_GENERIC_READ = &h80000000

Const ADS_RIGHT_GENERIC_WRITE = &h40000000

Const ADS_RIGHT_GENERIC_EXECUTE = &h20000000

Const ADS_RIGHT_GENERIC_ALL = &h10000000

Const ADS_RIGHT_DS_CREATE_CHILD = 1

Const ADS_RIGHT_DS_DELETE_CHILD = 2

Const ADS_RIGHT_ACTRL_DS_LIST = 4

Const ADS_RIGHT_DS_SELF = 8

Const ADS_RIGHT_DS_READ_PROP = 16

Const ADS_RIGHT_DS_WRITE_PROP = 32

Const ADS_RIGHT_DS_DELETE_TREE = 64

Const ADS_RIGHT_DS_LIST_OBJECT = 128

Const ADS_RIGHT_DS_CONTROL_ACCESS = 256

Const ADS_RIGHT_CONTAINER_INHERIT_ACE = &H2

Const ADS_RIGHT_OBJECT_INHERIT_ACE = &H1

 

 

newace.AccessMask =

newace.AceType = ADS_ACETYPE_ACCESS_ALLOWED

newace.AceFlags = ADS_RIGHT_OBJECT_INHERIT_ACE + ADS_RIGHT_CONTAINER_INHERIT_ACE

newace.Trustee = ADS_Group_List

 

newace.AccessMask =

newace.AceType = ADS_ACETYPE_ACCESS_ALLOWED

newace.AceFlags = ADS_RIGHT_OBJECT_INHERIT_ACE + ADS_RIGHT_CONTAINER_INHERIT_ACE

newace.Trustee = ADS_Group_Special

 

 

 

Thanks