set wshnet = CreateObject("WScript.Network")
authority = wshnet.UserDomain
if authority="" then authority=wshnet.ComputerName
 
Set sec = CreateObject("ADsSecurity")
 
    Dim prog1 As String = "D:\Install"
 
 
 
    Sub RechteSetzen(ByVal prog1)
 
 
        ' Security Descriptor besorgen
        sd = sec.GetSecurityDescriptor("FILE://" & prog)
 
        ' DACL aus Security Descriptor lesen
        dacl = sd.DiscretionaryACL
 
        ' alle vorbestehenden Berechtigungen entfernen
        For Each ace In dacl
            dacl.RemoveACE(ace)
        Next
 
        ' neue ACE anlegen
        ace1 = CreateObject("AccessControlEntry")
        ace1.AccessMask = 2032127
        ace1.AceType = 0
        ace1.AceFlags = 3   'hier die 1 setzen um erweiterte berechtigungen zu 
        ' sezten
        ace1.Trustee = authority & "\Praxis"
 
        ' in DACL einbauen
        dacl.AddAce(ace1)
 
        ' noch eine ACE anlegen
        ace2 = CreateObject("AccessControlEntry")
        ace2.AccessMask = 2032127
        ace2.AceType = 0
        ace2.AceFlags = 3
        ace2.Trustee = authority & "\Administrator"
 
        ' auch in DACL einbauen
        dacl.AddAce(ace2)
 
        ' Änderungen in Datei speichern
        sec.SetSecurityDescriptor(sd)
 
    End Sub