Ankündigung

Einklappen
Keine Ankündigung bisher.

VBS FSO (ordner rechte) Rechte

Einklappen
X
 
  • Filter
  • Zeit
  • Anzeigen
Alles löschen
neue Beiträge

  • VBS FSO (ordner rechte) Rechte

    Hallo Zusamen Habe eine Kleine Problem mit VBS

    ich moechte auf ein dir schreibrechte fur alle user geben und diese in unterordner vererben

    habe das mit der ADsSecurity.dll gamcht (anhang)

    und folgendes script laufen lassen (siehe Unten)

    jetzt geht das eigentlich auch nur kommt soblad ich nacher die berechtigungen im explorer anschaue die meldung: "fehler berechtigung in falscher reienvollge vergeben"

    PS: ihr muesst die dll noch mit regsvr32 im system anmeldn

    Weiss jemad von euch rat

    gruss koni




    '================================================= ==============================
    'Dieses VBScript setzt NTFS-Rechte für einen Ordner oder eine Datei
    'Wenn die angegebene Datei bzw. der Ordner nicht exestiert, wird nichts gemacht!
    '================================================= ==============================

    Const ADS_ACETYPE_ACCESS_ALLOWED = 0
    Const ADS_ACEFLAG_INHERIT_ACE = 3

    Set sec = CreateObject("ADsSecurity")
    Set sd = CreateObject("SecurityDescriptor")
    Set dacl = CreateObject("AccessControlList")
    Set ace = CreateObject("AccessControlEntry")
    Set newace = CreateObject("AccessControlEntry")
    Set FSO = CreateObject("Scripting.FileSystemObject")


    dim FileOrDir

    '====================== Hier Datei oder Ordner angeben =========================

    FileOrDir = "C:\WINDOWS\Temp"

    '================================================= ==============================

    If FSO.FolderExists(FileOrDir) or FSO.FileExists(FileOrDir) Then

    Set sd = CreateObject("SecurityDescriptor")
    Set sd = sec.GetSecurityDescriptor("FILE://" & FileOrDir)
    Set dacl = sd.DiscretionaryAcl



    '====================== Hier die Rechte angeben ================================

    newAce.Trustee = "Jeder" 'Jeder
    newAce.AccessMask = -1 'Vollzugriff
    newAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED 'Auf 'Zulassen'
    newAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE 'Vererben auf Unterordner und Dateien

    '================================================= ==============================

    dacl.AddAce newAce
    sd.DiscretionaryAcl = dacl
    sec.SetSecurityDescriptor sd

    End If
Lädt...
X