Fjern Permission på en mappe

http://www.eksperten.dk/spm/418188

//>Rune

Ja, og hvorfor har du så afvist????

//>Rune

medions >> Det script i spørgsmål 418188, fjerner jo ikke brugerens rettigheder fra mappen. Den fjerner jo kun "allow inheritable permissions from parent to propagate to this opject", men ikke brugen og det vil jeg gerne have at det er muligt at fjerne en bruger fra en mappe, hvordan gør man det.

medions >> Jeg køre script der findes i 418188, det fjerne også "allow inheritable permissions from parent to propagate to this opject", men de bruger der har rettigheder på mappen, er der i nu. Hvordan kan man fjerne dem?

Hver fil i 2000/XP har tilknyttet en "SecurityDescriptor", der definerer alt hvad der har med sikkerhed at gøre for filen.

Hver "SecurityDescriptor" har et array "DACL", bestående af Win32_ACE objekter. Disse indeholder informationer om brugere og deres adgangs-rettigheder.

Fjerner vi en bruger fra "DACL" array'et har han ikke længere adgang til den pågældende fil.

Prøv om ikke nedenstående script virker!

On Error Resume Next
' The folder named "testfolder" must exist on the C:\ drive.

strFolder = "'c:\\testfolder'"

Set wmiFileSecSetting = GetObject ("winmgmts:Win32_LogicalFileSecuritySetting.path=" & strFolder)

RetVal = wmiFileSecSetting.GetSecurityDescriptor(wmiSecurityDescriptor)
If Err <> 0 Then
    WScript.Echo "GetSecurityDescriptor failed" & VBCRLF & Err.Number & VBCRLF & Err.Description
    WScript.Quit
Else
    WScript.Echo "GetSecurityDescriptor suceeded"
End If

' Retrieve the DACL array of Win32_ACE objects.
DACL = wmiSecurityDescriptor.DACL

strDomain = "myDomain"
strName = "myUsername"

ReDim newDACL(UBound(DACL) - 1)
index = 0
For Each wmiAce In DACL
    Set Trustee = wmiAce.Trustee   
    If Trustee.Domain <> strDomain Or Trustee.Name <> strName Then       
        Set newDACL(index) = wmiAce
        index = index + 1     
    End If
Next

wmiSecurityDescriptor.DACL = newDACL

wmiFileSecSetting.SetSecurityDescriptor(wmiSecurityDescriptor)