Top-Themen

Aktuelle Themen (A bis Z)

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

Pfad zu Eigene Dateien (und Sub-Ordner) verschieben

Mitglied: rdietrich

rdietrich (Level 1) - Jetzt verbinden

11.02.2009, aktualisiert 14:20 Uhr, 9579 Aufrufe, 2 Kommentare

Hallo zusammen. Ich möchte unter Win XP via Batch den Pfad zu den Eigenen Dateien (+ Eigene Bilder, Eigene Musik, etc.) verschieben. Zusätzlich sollten die bestehenden Ordner und Dateien ins Ziel verschoben werden. Also eigentlich genau das via Batch realisieren, was man mittels Eigene Dateien -> Eigenschaften -> Verschieben.. im Dialog machen kann.

Mein Versuch:
01.
@echo off & setlocal 
02.
 
03.
set neuerPfad=C:\ed4\ 
04.
 
05.
REM Aktuellen Pfad der Eigenen Dateien auslesen 
06.
 
07.
for /f "tokens=2*" %%i in ('REG QUERY "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v "Personal" ^| find "Personal"') do set "pfad=%%j" 
08.
 
09.
echo Eigene Dateien: %pfad% 
10.
echo. 
11.
echo Neuer Pfad: %neuerPfad% 
12.
 
13.
REG add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v "Personal" /t REG_SZ /d "%neuerPfad%" /f 
14.
 
15.
echo. 
16.
 
17.
for /f "tokens=2*" %%i in ('REG QUERY "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v "Personal" ^| find "Personal"') do set "pfad=%%j" 
18.
 
19.
echo Eigene Dateien: %pfad% 
20.
 
21.
echo. 
22.
pause
...war leider nur begrenzt erfolgreich. Das Auslesen funktioniert, das Setzen nur bedingt. Der Value nach Scriptdurchlauf sieht so aus:

01.
C:\ed4\ /f
Wenn ich dann in die Eigenschaften der Eigenen Dateien klicke, steht immernoch der Standardpfad zu %profile%\Eigene Dateien im Dialogfenster. Ich gehe daher davon aus, dass ich den falschen Registry-Key angehe - finde aber keinen Alternativen.

Bin für jede Hilfe dankbar.

Gruß,

R.D.
Mitglied: rdietrich
17.02.2009 um 13:16 Uhr
hm, keine Reaktion. Äußerst ungewöhnlich in diesem Forum. Hab ich etwas missverständlich formuliert? Kann mir irgendwie nicht vorstellen, dass da niemand eine Lösung weiß.

Bitte warten ..
Mitglied: jenkman
05.03.2009 um 13:26 Uhr
Habe dazu eine Lösung. Dabei werden auch die Zugriffberechtigungen auf die Eigenen Datein verschoben.

Damit die NTFS-Rechte mit verschoben werden, ist es erforderlich, das Programm robocopy.exe aus dem ResourceKit in den Ordner des Scriptes zu kopieren.

Hier nun der Code des Scriptes
01.
  
02.
' Nutzernamen ermitteln 
03.
 
04.
Set fs = CreateObject("WScript.Network") 
05.
username = fs.UserName 
06.
 
07.
wscript.echo "Eigene Datein des aktuellen Nutzer: " & username & " werden verschoben." 
08.
 
09.
 
10.
Const HKEY_CURRENT_USER = &H80000001 
11.
Const HKEY_LOCAL_MACHINE = &H80000002 
12.
 
13.
' === Registry schreiben 
14.
pfad = "SYSTEM\ControlSet001\Control\Print\Monitors\Standard TCP/IP Port\Ports\" & PORT 
15.
 
16.
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\localhost\root\default:StdRegProv") 
17.
 
18.
oReg.CreateKey HKEY_LOCAL_MACHINE, pfad 
19.
 
20.
' HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DocFolderPaths\Azubi: "d:\Azubi\Eigene Dateien" REG_SZ 
21.
pfad = "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DocFolderPaths\"  
22.
oReg.SetStringValue HKEY_LOCAL_MACHINE, pfad , username, "d:\" & username & "\Eigene Dateien" 
23.
 
24.
' HKU\S-1-5-21-606747145-1993962763-1957994488-1006\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\My Pictures: "d:\Azubi\Eigene Dateien\Eigene Bilder" REG_SZ 
25.
pfad = "Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\" 
26.
oReg.SetStringValue HKEY_CURRENT_USER, pfad , "My Pictures", "d:\" & username & "\Eigene Dateien\Eigene Bilder" 
27.
 
28.
' HKU\S-1-5-21-606747145-1993962763-1957994488-1006\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Personal: "d:\Azubi\Eigene Dateien" REG_SZ 
29.
pfad = "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\" 
30.
oReg.SetStringValue HKEY_CURRENT_USER, pfad , "Personal", "d:\" & username & "\Eigene Dateien" 
31.
 
32.
' HKU\S-1-5-21-606747145-1993962763-1957994488-1006\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\My Pictures: "d:\Azubi\Eigene Dateien\Eigene Bilder" Reg_SZ 
33.
pfad = "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\" 
34.
oReg.SetStringValue HKEY_CURRENT_USER, pfad , "My Pictures", "d:\" & username & "\Eigene Dateien\Eigene Bilder" 
35.
 
36.
' HKU\S-1-5-21-606747145-1993962763-1957994488-1006\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Personal: "d:\Azubi\Eigene Dateien" Reg_Expand_SZ 
37.
pfad = "Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\" 
38.
oReg.SetExpandedStringValue HKEY_CURRENT_USER, pfad , "Personal", "d:\" & username & "\Eigene Dateien" 
39.
 
40.
Set WshShell = WScript.CreateObject( "WScript.Shell" ) 
41.
 
42.
WshShell.run "robocopy.exe " & Chr(34) & "c:\dokumente und einstellungen\" & username & "\Eigene Dateien"& Chr(34) & " " & Chr(34) & "d:\" & username & "\Eigene Dateien" & Chr(34) & " /E /SEC /MOVE /V /NP /R:10 /W:30 ", , true 
43.
 
44.
' Aktuellen Nutzer Abmelden 
45.
' http://www.motobit.com/tips/detpg_wmi-windows-system-shutdown/ 
46.
'Get connection To local wmi 
47.
 Set Connection = GetObject("winmgmts:root\cimv2") 
48.
   
49.
  'Get Win32_OperatingSystem objects - only one object In the collection 
50.
  WQL = "Select Name From Win32_OperatingSystem" 
51.
  Set SystemClass = Connection.ExecQuery(WQL) 
52.
   
53.
  'Get one system object 
54.
  'I think there is no way To get the object using URL? 
55.
  For Each System In SystemClass 
56.
    System.Win32ShutDown (0) 
57.
  Next
Bitte warten ..
Ähnliche Inhalte
Windows Netzwerk

Dateien und Ordner verschieben mit Rückfrage

Frage von steftsWindows Netzwerk1 Kommentar

Hallo, in einer Windows Server-Client Umgebung habe ich folgende Anforderung: Dateien und Ordner die auf einem Netzwerk Fileshare liegen, ...

Batch & Shell

Verschieben von Dateien in zugehörige Ordner

Frage von vmihaylovBatch & Shell5 Kommentare

Hallo allerseits! Ich habe in einem Ordner sehr viele Dateien mit Artikelnummern als Namen (z.B. 123456.tiff, 123456.jpg, 215456.jpg,215456,tiff,), die ...

Windows Server

Freigegebener Ordner "Eigene Dateien"

gelöst Frage von JensDNDWindows Server8 Kommentare

Hallo Admins, auf unserem Server (WS2012R2) werden die Ordner der einzelnen User unter "Eigene Dateien" freigegeben. nun bekommt ein ...

Batch & Shell

Powershell Dateien mit Pfad in ein Ordner kopieren

gelöst Frage von windelterroristBatch & Shell6 Kommentare

Hallööchen :) Beschäftige mich gerade mit Powershell Ich möchte Dateien mit dem Archivbit = 1 in ein Testordner kopieren ...

Neue Wissensbeiträge
Humor (lol)
IoT-Gefahr: Smartes Aquarium leckt!
Information von Lochkartenstanzer vor 1 TagHumor (lol)3 Kommentare

Moin, Die IoT-Manie hat weitere Opfer gefunden. Ein Casino-Leck durch ein smartes Aquarium: Allerdings haben sie kein Wasser, sondern ...

Router & Routing

Alte Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 1 TagRouter & Routing3 Kommentare

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 2 TagenSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 2 TagenWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Heiß diskutierte Inhalte
Router & Routing
Mikrotik: Routing zwischen Interfaces mit Geräten ohne Gateway
Frage von TonLichtVideoRouter & Routing20 Kommentare

Hallo zusammen, ich komme aus dem Veranstaltungstechnik Bereich und habe zwei Netze um verschiedene Hardware zu Remoten. CONTROL1 192.168.1.0/24 ...

Linux Netzwerk
Raspberry Pi 3: WLAN Power save deaktivieren
Frage von nordie92Linux Netzwerk14 Kommentare

Moin moin, mein Raspberry Pi 3 Model B benötigt eine dauerhaft aktive WLAN-Verbindung. Leider bricht die WLAN-Verbindung nach einigen ...

Vmware
Server 2008 r2 vmware terminalserver
Frage von MasterCVmware11 Kommentare

Guten Abend zusammen, ich hoffe , dass einer von euch mir weiterhelfen kann ,bei meinem kack Problem ! Ist ...

VB for Applications
VBScript mit WINscp für einfachen FTP Transfer und nachträglichem verschieben der Datei in ein erledigt Verzeichnis
Frage von KeiosIDVB for Applications9 Kommentare

Hallo, leider soll ich auf den neueren Servern(Win2016R2) keine *.Bat Dateien mehr laufen lassen. Hier soll nun alles über ...