permissions på en mappe

Jeg er bange for at windows scripting host alene ikke er nok, men igennem WSH kan i benytte Windows Management Instrumentation (WMI). Prøv om ikke nedenstående virker:

Const SE_DACL_AUTO_INHERITED = 1024
Const SE_SACL_AUTO_INHERITED = 2048
Const SE_DACL_PROTECTED = 4096
Const SE_SACL_PROTECTED = 8192

Set wmiFileSecSetting = GetObject ("winmgmts:Win32_LogicalFileSecuritySetting.path='c:\\testfolder'")

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


mask = NOT (SE_DACL_AUTO_INHERITED _
            XOR SE_SACL_AUTO_INHERITED _
            XOR SE_DACL_PROTECTED _
            XOR SE_SACL_PROTECTED)

wmiSecurityDescriptor.ControlFlags = wmiSecurityDescriptor.ControlFlags And mask

WScript.Echo wmiSecurityDescriptor.ControlFlags
wmiFileSecSetting.SetSecurityDescriptor(wmiSecurityDescriptor)

Ups, der mangler lige en On Error Resume Next i toppen!