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
GELÖST

Xcopy unter VB, um Userdata zu sichern

Frage Entwicklung VB for Applications

Mitglied: kaffebone

kaffebone (Level 1) - Jetzt verbinden

01.08.2011, aktualisiert 16:26 Uhr, 3546 Aufrufe, 4 Kommentare

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:
01.
Set oShell = CreateObject("WScript.Shell")  
02.
On Error Resume Next 
03.
 
04.
strComputer = "." 
05.
Set objWMIService = GetObject("winmgmts:" _ 
06.
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
07.
 
08.
Set colItems = objWMIService.ExecQuery _ 
09.
    ("Select * from Win32_UserAccount Where LocalAccount = True") 
10.
 
11.
For Each objItem in colItems 
12.
    Wscript.Echo "Name: " & objItem.Name 
13.
 
14.
 
15.
Next 
16.
 
17.
 
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!!!
Mitglied: bastla
01.08.2011 um 17:19 Uhr
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
Bitte warten ..
Mitglied: kaffebone
02.08.2011 um 11:56 Uhr
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
Bitte warten ..
Mitglied: bastla
02.08.2011 um 12:28 Uhr
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
Bitte warten ..
Mitglied: kaffebone
02.08.2011 um 14:13 Uhr
Hallo bastla,

CopyFile nehme ich an, man weiß aber nie...

Vielen Dank!!!
Grüße
kaffeebone
Bitte warten ..
Ähnliche Inhalte
Visual Studio
Vb.net Datenfelder aus Word 2003 Dokument auslesen (3)

Frage von Herbrich19 zum Thema Visual Studio ...

Vmware
VMWare ESXi 5.5 2xhosts 1xMSA, Wie sichern?

Frage von rudeboy zum Thema Vmware ...

VB for Applications
gelöst VB Skript für mehrere Batch Befehle (30)

Frage von freshman2017 zum Thema VB for Applications ...

Entwicklung
gelöst Verzeichnise sichern mit batch datei (Win10) (13)

Frage von Limbach zum Thema Entwicklung ...

Neue Wissensbeiträge
Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(29)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Windows Server

Exchange 2010 Active Directory und Windows Server 2016

(4)

Erfahrungsbericht von Herbrich19 zum Thema Windows Server ...

Heiß diskutierte Inhalte
Internet
gelöst Mitarbeiter surft auf unerwünschter Seite - Wie damit umgehen? (44)

Frage von sabines zum Thema Internet ...

Netzwerke
Wie erstelle ich ein Intranet (19)

Frage von Leonardnet zum Thema Netzwerke ...

Netzwerke
VPN-Server einrichten PPTPD-Einrichtung gescheitert (15)

Frage von MIlexx zum Thema Netzwerke ...

LAN, WAN, Wireless
gelöst Eintägige Netzwerkunterbrechung trotz Backupleitung (15)

Frage von iAmbricksta zum Thema LAN, WAN, Wireless ...