Xcopy unter VB, um Userdata zu sichern

Hallo, mit einem Script möchte ich alle Users auf einem Rechner ermitteln und ihre Daten sichern.

Mit dem Script ermittele ich alle Benutzer auf einem Client:

Set oShell = CreateObject("WScript.Shell")   
On Error Resume Next

strComputer = "."  
Set objWMIService = GetObject("winmgmts:" _  
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  

Set colItems = objWMIService.ExecQuery _
    ("Select * from Win32_UserAccount Where LocalAccount = True")  

For Each objItem in colItems
    Wscript.Echo "Name: " & objItem.Name  


Next

nun möchte ich für jeden Benutzer seine Daten unter bestimmtem Pfad sichern, z.B. so wie es mit xcopy wäre:
xcopy "C:\App\%Username%" "C:\Documente und Einstellungen\%Username% \App\ /q /I /E
statt %username% möchte objItem.Name verwenden.
Wie könnte das aussehen?
Vielen Dank!!!

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

Content-ID: 170751

Url: https://administrator.de/contentid/170751

Ausgedruckt am: 23.11.2024 um 02:11 Uhr

4 Kommentare

Neuester Kommentar

Hallo kaffeebone!

Ungetestet etwa so:
Vor der Schleife:

Set fso = CreateObject("Scripting.FileSystemObject")

In der Schleife:

fso.CopyFolder "C:\App\" & objItem.Name, "C:\Dokumente und Einstellungen\" & objItem.Name & "\App"

Grüße
bastla

Hallo bastla,

Vielen Dank! Es hat funktioniert. Wie würde es für eine bestimmte Datei und nicht Ordner komplett aussehen?

Viele Grüße
kaffeebone

Hallo kaffeebone!

Wie würde es für eine bestimmte Datei und nicht Ordner komplett aussehen?

Gegenfrage: Wenn Du (ausgehend von "CopyFolder") raten müsstest - was wäre Dein Tipp?

Falls Du Dich ausführlicher mit VBS beschäftigen möchtest, wäre die "script56.chm" (in einer dt Version zB bei dieseyer.de zu finden) zu empfehlen ...

Grüße
bastla