BATCH: Dateibesitzer mit kopieren

Hallo Zusammen,

ich brüte schon länger über folgenderm Problem:

In einem umfangreichen Batch-Ablauf werden zeitgetriggert alle PDF-Dateien im Verzeichnis "t:\Scan" bearbeitet. D.h. umwandeln in PNG, dann wird jedes PNG nach einem bestimmten QR-Code mit Qualifier durchsucht (XY;123456) und anhand Qualifier und Dokumentnummer mit entsprechenden Parametern einer automatischen Archivierung zugeführt. Klappt alles einwandfrei.

Es gibt aber auch Dokumente ohne QR-Code und die User leeren nicht regelmäßig das Fehlerverzeichnis. Da das Batch auf einem Server läuft, weil ich nicht, wer die Datei gespeichert hat. Daher hole ich mir den Dateibesitzer des Files. Im Fehlerfall möchte ich dem user eine Email senden.

Das funktioniert in der Theorie und solange die Dateien verschoben werden, geht der Dateibesitzer mit. Nun möchte ich aber zum Testen der neuen Funktion ein paar Testfiles kopieren. Und beim Kopieren werde immer ich Besitzer. Mit xcopy /o habe ich keinen Zugriff. Hat sonst noch jemand eine Idee, wie man den Dateibesitzer kopieren kann ohne Admin zu sein?

Sparsame Grüße vom Schottenrock

Function GetFileUser(FileDir As String, FileName As String) As String
Dim secUtil As Object
Dim secDesc As Object

Set secUtil = CreateObject("ADsSecurityUtility")  
Set secDesc = secUtil.GetSecurityDescriptor(FileDir & FileName, 1, 1)
GetFileUser = secDesc.owner
End Function