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:
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!!!
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!!!
Please also mark the comments that contributed to the solution of the article
Content-Key: 170751
Url: https://administrator.de/contentid/170751
Printed on: May 4, 2024 at 11:05 o'clock
4 Comments
Latest comment
Hallo kaffeebone!
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
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