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