Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
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.

Dateirechte mit WSH ändern

Frage Entwicklung

Mitglied: MaxMoritz6

MaxMoritz6 (Level 1) - Jetzt verbinden

16.10.2009, aktualisiert 16:25 Uhr, 2964 Aufrufe, 1 Kommentar

Meine erste Frage:
Warum funktioniert das folgende Script nicht (Startup-Script des Computers):
01.
Dim wshshell 
02.
Dim Proggi 
03.
Dim Datei 
04.
Dim fso 
05.
Set WshShell = WScript.CreateObject("Wscript.Shell") 
06.
Datei = "C:\Temp\test.txt" 
07.
Set fso = CreateObject("Scripting.FileSystemObject") 
08.
on error resume next 
09.
if Not fso.FileExists(Datei) Then 
10.
  Set Fso =Nothing 
11.
  set logbuch =fso.opentextfile(Datei, 8, true,0) 
12.
  logbuch.writeline now & ": Datei erstellt" 
13.
  logbuch.close 
14.
  Set Logbuch =Nothing 
15.
  Proggi = "%COMSPEC% /C c:\Temp\xcacls.exe " & Datei & " /e /p Vordefiniert\Benutzer:C " 
16.
  WshShell.Run Proggi , 0, True 
17.
End If 
18.
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
Mitglied: bastla
16.10.2009 um 15:32 Uhr
Auch Dir ein genauso freundliches "Hallo", MaxMoritz6!

Sollte so gehen (wenn es den Ordner "C:\Temp" schon gibt):
01.
Datei = "C:\Temp\test.txt" 
02.
Set WshShell = WScript.CreateObject("Wscript.Shell") 
03.
Set fso = CreateObject("Scripting.FileSystemObject") 
04.
If Not fso.FileExists(Datei) Then  
05.
    fso.CreateTextFile(Datei, True).WriteLine Now & ": Datei erstellt" 
06.
    Prog = "cacls.exe " & Datei & " /e /g Vordefiniert\Benutzer:C " 
07.
    WshShell.Run Prog , 0, True 
08.
End If
Ein
On Error Resume Next
ist erst sinnvoll, wenn ein Script funktioniert ...

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Outlook & Mail
gelöst Kontoname ändern in Outlook 2016 mit Exchange (5)

Frage von klanax zum Thema Outlook & Mail ...

Windows 10
Dell M6700 Windows 10 TPM Besitzerkennwort ändern

Frage von Torsten2010 zum Thema Windows 10 ...

VB for Applications
Anpassungsdatei verschiedene Parameter (Hostname, SQL, Registry) ändern (3)

Frage von MiMa89 zum Thema VB for Applications ...

LAN, WAN, Wireless
Per Script auf UniFi-controller zugreifen und WPA2-Key ändern (11)

Frage von Winfried-HH zum Thema LAN, WAN, Wireless ...

Heiß diskutierte Inhalte
Exchange Server
gelöst Email in Exchange an 2ten Empfänger senden (18)

Frage von MultiStorm zum Thema Exchange Server ...

Weiterbildung
Gehaltsvorstellungen (14)

Frage von SYS64738 zum Thema Weiterbildung ...

Windows Server
gelöst Microsoft-Lizenz CALs und passendes Server-Betriebssystem (13)

Frage von planetIT2016 zum Thema Windows Server ...

Verschlüsselung & Zertifikate
gelöst Festplattenverschlüsselung im Ausland (13)

Frage von Nicolaas zum Thema Verschlüsselung & Zertifikate ...