Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Berechtigungsproblem bim Kopieren
Autor: Laubfrosch
Datum: 18.02.07 10:08
Hallo zusammen Ich bin neu hier im Forum sowie auch in VBS. Ich habe mir hier einige Beiträge angeschaut und draus ein Script „gebastelt“. Ich würde gerne auf einem Client den aktuell angemeldeten User auslesen und dessen Favoriten und die Auto-Korrektur wegkopieren: Option Explicit ' Variablendeklaration Dim objFSO, objShell Dim strUser Dim strPath Dim WshShell, FSO, Ordner ' Objekte erzeugen   = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("Wscript.Shell") Set WshShell = CreateObject("Wscript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") ' Jetzt den Usernamen ermitteln und anzeigen strUser = objShell.ExpandEnvironmentStrings("%username%") Wscript.Echo strUser ' Das User-Verzeichnis auf dem Netzwerk-Share anlegen und Berechtigungen setzen strPath = "C:\" & strUser FSO.CreateFolder(strPath) WshShell.Run("%COMSPEC% /c Echo J| cacls " & strPath & " /t /c /g Jeder:f") 'Hier den Pfad zu dem Source Ordner mit den entsprechenden Dateien drin angeben. Dim sSource : sSource = "C:\Dokumente und Einstellungen\" & strUser & "\Favoriten\" Dim sSource1 : sSource1 = "C:\Dokumente und Einstellungen\" & strUser & "\Anwendungsdaten\Microsoft\Office\" 'Hier den Zielpfad der Applikation angeben. Dim sFolder : sFolder = "C:\" & strUser Dim oWSNet : Set oWSNet = CreateObject("Wscript.Network") Dim oFSO : Set oFSO = CreateObject("Scripting.FileSystemObject") Dim oFSO1 : Set oFSO1 = CreateObject("Scripting.FileSystemObject") Dim oFSO2 : Set oFSO2 = CreateObject("Scripting.FileSystemObject") Dim sDest : sDest = "" 'Diese Zeile kopiert Dateien (CopyFile) oFSO.CopyFile sSource & "\*.*", sFolder oFSO2.CopyFile sSource1 & "\MSO1031.acl", sFolder 'Diese Zeile kopiert Verzeichnisse inkl. Inhalt (copyFolder) oFSO1.CopyFolder sSource & "\*.*", sFolder sDest = sFolder Bei folgender Zeile: oFSO2.CopyFile sSource1 & "\MSO1031.acl", sFolder erhalte ich folgende Fehlermeldung: „Erlaubnis verweigert“, Code:800A0046 Ich habe auf dem gesamten Verzeichnis (Anwendungsdaten) Vollzugriff. Wenn ich die Attribute für dieses Verzeichnis und alle Unterverzeichnisse entferne (Versteckt und Schreibgesützt), erhalte ich dieselbe Fehlermeldung. Wenn ich nun aber bei den Pfadangaben nicht mit Variablen arbeite und diese direkt angebe funktioniert es. Was mache ich falsch?

Berechtigungsproblem bim Kopieren	4.381	Laubfrosch	18.02.07 10:08
Re: Berechtigungsproblem bim Kopieren	1.971	Elwood	18.02.07 12:12
Re: Berechtigungsproblem bim Kopieren	1.892	Laubfrosch	18.02.07 14:20

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen