Dateirechte mit WSH ändern

Meine erste Frage:
Warum funktioniert das folgende Script nicht (Startup-Script des Computers):

Dim wshshell
Dim Proggi
Dim Datei
Dim fso
Set WshShell = WScript.CreateObject("Wscript.Shell")  
Datei = "C:\Temp\test.txt"  
Set fso = CreateObject("Scripting.FileSystemObject")  
on error resume next
if Not fso.FileExists(Datei) Then
  Set Fso =Nothing
  set logbuch =fso.opentextfile(Datei, 8, true,0)
  logbuch.writeline now & ": Datei erstellt"  
  logbuch.close
  Set Logbuch =Nothing
  Proggi = "%COMSPEC% /C c:\Temp\xcacls.exe " & Datei & " /e /p Vordefiniert\Benutzer:C "  
  WshShell.Run Proggi , 0, True
End If
Set Fso =Nothing

Wenn die datei C:\temp\Test.txt nicht existiert, soll sie angelegt werden und die Benutzerrechte für den Benutzer "Vordefiniert\Benutzer" auf "C" (Modifizieren" gesetzt werden.
Ich habe es auch schon mit cacls.exe erfolglos probiert.

Wer hat einen Tip?

Max Moritz

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Kommentar vom Moderator Biber am 16.10.2009 um 16:25:38 Uhr

Code-Tags nachgezogen und das "Persönliche Vorwort" entsorgt (war ein Copy & Paste der gesamten Beitrags).

Zurückgrüßen brauche ich wohl kaum.

Content-ID: 127295

Url: https://administrator.de/forum/dateirechte-mit-wsh-aendern-127295.html

Ausgedruckt am: 08.04.2025 um 07:04 Uhr

1 Kommentar

Auch Dir ein genauso freundliches "Hallo", MaxMoritz6!

Sollte so gehen (wenn es den Ordner "C:\Temp" schon gibt):

Datei = "C:\Temp\test.txt"  
Set WshShell = WScript.CreateObject("Wscript.Shell")  
Set fso = CreateObject("Scripting.FileSystemObject")  
If Not fso.FileExists(Datei) Then 
    fso.CreateTextFile(Datei, True).WriteLine Now & ": Datei erstellt"  
    Prog = "cacls.exe " & Datei & " /e /g Vordefiniert\Benutzer:C "  
    WshShell.Run Prog , 0, True
End If