Option Explicit
Const ORDNERNAME = "C:\Test"
Dim WshShell, FSO, Ordner
 
Set WshShell = CreateObject("Wscript.Shell") 
Set FSO = CreateObject("Scripting.FileSystemObject")
 
FSO.CreateFolder(ORDNERNAME)
WshShell.Run("%COMSPEC% /c Echo J| cacls " & ORDNERNAME & " /t /c /g" & _
  "Administratoren:f")