Weiss jemand wie ich die Sicherheit eines Ordners ändern kann?
Ich kann mit dem ADSI zwar Benutzer hinzufügen aber nicht entfernen.
Ich verwende folgenden Code um zu versuchen überhaupt einen Benutzer entfernen zu versuchen, ich benutze „WinNT:“.
Dim sec As New ADsSecurity
Dim oSd As IADsSecurityDescriptor
Dim oDacl As New AccessControlList
Dim ace As New AccessControlEntry
Set oSd = sec.GetSecurityDescriptor(„FILE://\“ & folder)
Set oDacl = oSd.DiscretionaryAcl
For Each ace In oDacl
If (ace.Trustee = „Everyone“) Then
oDacl.RemoveAce ace
End If
Next
oSd.DiscretionaryAcl = oDacl
sec.SetSecurityDescriptor oSd ’ Bei dieser anweisung stürzt er ab
Danke
Gruss Andreas