Dateirechte mit WSH ändern
Meine erste Frage:
Warum funktioniert das folgende Script nicht (Startup-Script des Computers):
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
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
Ich habe es auch schon mit cacls.exe erfolglos probiert.
Wer hat einen Tip?
Max Moritz
Please also mark the comments that contributed to the solution of the article
Kommentar vom Moderator Biber am Oct 16, 2009 um 14: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.
Zurückgrüßen brauche ich wohl kaum.
Content-Key: 127295
Url: https://administrator.de/contentid/127295
Printed on: May 2, 2024 at 23:05 o'clock
1 Comment
Auch Dir ein genauso freundliches "Hallo", MaxMoritz6!
Sollte so gehen (wenn es den Ordner "C:\Temp" schon gibt):
Ein
ist erst sinnvoll, wenn ein Script funktioniert ...
Grüße
bastla
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
On Error Resume Next
Grüße
bastla