Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#8

AW: Es konnten nicht alle Netzlaufwerke wiederhergestellt werden

  Alt 8. Aug 2016, 07:46
Habe ich auch. Zwei Wochen hat es ohne geklappt, dann auf einmal nicht mehr.

@ECHO OFF
Echo Auf Netzwerkverbindung warten...
rem NAS mit Ping aufwecken und warten
ping 192.168.2.11 -n 8 >nul
if %ERRORLEVEL% NEQ 0 goto ERROR_NAS

rem alles trennen
echo VC Container "Dokumente" trennen...
veracrypt /d /l y /f /q >nul
echo Netzlaufwerk "\\herakles\Michael" trennen...
net use z: /d /yes >nul

rem neu verbinden
echo Netzlaufwerk "\\herakles\Michael" verbinden...
rem Namen an Netzlaufwerk vergeben
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Exp lorer\MountPoints2\##herakles#home /v _LabelFromReg /t REG_SZ /f /d "Daten"
net use z: \\herakles\home /user:Michael passwort /PERSISTENT:no >nul
if %ERRORLEVEL% NEQ 0 goto ERROR_CON

rem VeraCrypt Container einbinden, wenn gewünscht
echo.
choice /M "VC Container 'Dokumente' einbinden?"
if %ERRORLEVEL% == 1 goto MOUNT_VC
if %ERRORLEVEL% == 2 goto DONE
:MOUNT_VC
echo VC Container "Dokumente" einbinden...
set /P pw="Passwort: "
veracrypt /v z:\Dokumente /l y /p %pw% /q
if %ERRORLEVEL% NEQ 0 goto ERROR_VC
goto DONE

rem Fehlerbehandlung
:ERROR_NAS
echo Fehler: Herakles nicht erreichbar!
pause
exit

:ERROR_CON
pause
exit

:ERROR_VC
pause
exit

ONE
exit

Code-Tags funktionieren irgendwie nicht.
Michael
Ein Teil meines Codes würde euch verunsichern.

Geändert von Luckie ( 8. Aug 2016 um 07:52 Uhr)
  Mit Zitat antworten Zitat