Workshop Batch for Runaways - Part I - Beispiel FindLongPath.Bat Bedenklich lange Pfade finden

------------------------------------ 

:ParamCheck 

IF (%1)==() (SET p1=C:) ELSE (SET p1=%1) 

------------------------------------

::***************************************************************** 

::* LongPath.bat                                                   * 

::* ===========                                                   * 

::* Listet extrem lange Pfade                                     * 

::* auf einem Laufwerk oder Share auf                             * 

::* Herzlichen Dank an Biber (Forenmitglied bei administrator.de) * 

::* History:                                                      * 

::* 20.06.2007 - New Batch                              * 

::* 25.06.2007 - Batch finalisiert                      * 

::***************************************************************** 

@ECHO off 

cls 

::----------------------------------------------------------------- 

::Parameter-Abfragen 

if "%1"=="" goto manual 

if "%1%"=="" goto Manual 

if "%1%"=="?" goto Manual 

if "%1%"=="/?" goto Manual 

if "%1%"=="-?" goto Manual 

if "%1%"=="-h" goto Manual 

if "%1%"=="--h" goto Manual 

if "%1%"=="-help" goto Manual 

if "%1%"=="--help" goto Manual 

if "%1%"=="help" goto Manual 

::Setze Variablen 

SET usedvars=tmpdatei reportdatei p1 p1masked p2 x YN PAUSE_D ECHO_D  

set p1=%1 

::Falls keine Längenangabe gemacht wird, wird die Länge auf 256 gesetzt 

IF (%2)==() (SET /a p2=256 ) ELSE (SET /a p2=%2) 

::Ersetze Zeichen, die nicht in Dateinamen dürfen (/\:*?"<>|) durch andere 

SET p1masked=%p1::=$% 

SET p1masked=%p1masked:\=_% 

::%ECHO_D% p1-^>p1masked ist %p1%-^>%p1masked%; p2 ist %p2% 

::Setze Variablen für die Logfiles 

SET "tmpdatei=%systemroot%\temp\longpath\dir_%p1masked%.txt" 

SET "Reportdatei=%systemroot%\temp\longpath\report_%p1masked%_Pfade-groesser-%p2%.lst" 

::----------------------------------------------------------------- 

::----------------------------------------------------------------- 

::Vorhergehende Aufgaben 

::Überprüeft, ob bereits ein Ordner für die Logfiles existiert 

if exist %systemroot%\temp\longpath ( 

rmdir /s /q %systemroot%\temp\longpath 

) 

::Erstelle Ordner für Logfiles 

mkdir %systemroot%\temp\longpath 

::----------------------------------------------------------------- 

::----------------------------------------------------------------- 

echo Longpath.bat 

echo ========== 

echo. 

::Überprüft, ob der angegebene Ordner existiert. Falls ja, listet der Batch alle Pfade auf 

If not exist %1 ( 

echo Der Pfad %1 existiert nicht! 

echo. 

goto end 

) else ( 

echo Die Pfadlaengen-Abfrage von %1 wurde gestartet... 

echo. 

dir /s /b  %1 >>%tmpdatei% 

echo Index wurde erstellt, Pfade werden gefiltert... 

) 

::----------------------------------------------------------------- 

::----------------------------------------------------------------- 

::Filtert das File %tmpdatei% nach langen Pfadnamen 

SETLOCAL EnableDelayedExpansion 

FOR /F "delims=" %%i in (%tmpdatei%) do (set "x=%%i") && if "!x:~%p2%,10!" GTR "@" @echo %%i >>%reportdatei% 

if exist %reportdatei% ( 

echo. >>%reportdatei% 

echo ---------------------------- >>%reportdatei% 

echo Report des Batches "Longpath" >>%reportdatei% 

echo ----------------------------- >>%reportdatei% 

echo Ausgefuehrt am %date% von %username% >>%reportdatei% 

echo Ordner: %p1% >>%reportdatei% 

echo Gefilterte maximale Pfadlaenge: %p2% >>%reportdatei% 

echo In %1 wurden Pfade mit Laenge groesser %p2% gefunden! 

choice /c:JN Sollen die Ergebnisse in Notepad angezeigt werden? 

if errorlevel 1 notepad %reportdatei% 

) else ( 

echo In %p1% wurden keine Pfade mit Laenge groesser %p2% gefunden! 

echo. 

) 

ENDLOCAL 

::----------------------------------------------------------------- 

goto end 

:Manual 

echo Longpath.bat 

echo ========== 

echo. 

echo Listet alle Pfade auf, die laenger sind als die angegebene Laenge. 

echo. 

echo. 

echo Starte Batch folgendermassen: 

echo Fatpath Pfad Pfadlaenge 

echo. 

echo. 

echo Beispiele: 

echo Longpath \\server\share$\ordner1\ordner2 200 

echo. 

echo ==^> Listet alle Pfade in \\server\share$\ordner1\ordner2 auf, 

echo      die laenger als 200 Zeichen sind. 

echo. 

echo Falls nicht angegeben wird, wie lange der Pfad sein darf, 

echo geht Longpath davon aus, dass eine Pfadlaenge von 256 Zeichen gemeint ist. 

echo. 

echo Hier einige Angaben zu der maximal erlaubten Pfadlaenge von verschiedenen Dateitypen: 

echo .doc --^>   

echo .xls --^> 218 Zeichen 

echo .ppt --^> 

echo .pdf --^> 

echo .pst --^> 

echo.                            

:end 

if exist N:\nul net use /delete N: 

set param=/C /E /F /H /R /Y 

set info=PW /user:User 

set ID=1 

:Server1 

set server=server1 

set Verz1=\d$ 

set Ziel1=BACKUP\server1 

GOTO Server_Start 

:Server2 

set server=server2 

set Verz1=\d$ 

set Verz2=\e$ 

set Ziel1=BACKUP\server2_D 

set Ziel2=BACKUP\server2_E 

GOTO Server_Start 

:Server3 

GOTO Complete 

:Server_Start 

net use N: \\%server%%Verz1% %info% 

IF NOT %errorlevel% == 0 ( 

	echo Die Netzwerkverbindung zu %server%%Verz1% konnte nicht hergestellt werden.>> C:\DS\Logfiles\%logname%.log 

) ELSE ( 

	xcopy N:\*.* E:\%1\%Ziel1%\*.* %param% 

	net use /delete N: 

	IF NOT %errorlevel% == 0 echo Fehler beim Kopiervorgang.>> C:\DS\Logfiles\%logname%.log 

) 

IF not defined Verz2 ( 

	GOTO Server_Done 

) ELSE ( 

	net use N: \\%server%%Verz2% %info% 

	IF NOT %errorlevel% == 0 ( 

		echo Die Netzwerkverbindung zu %server%%Verz2% konnte nicht hergestellt werden.>> C:\DS\Logfiles\%logname%.log 

	) ELSE ( 

		xcopy N:\*.* E:\%1\%Ziel2%\*.* %param% 

		net use /delete N: 

		IF NOT %errorlevel% == 0 echo Fehler beim Kopiervorgang.>> C:\DS\Logfiles\%logname%.log 

	) 

) 

:Server_Done 

set Verz1= 

set Verz2= 

set Ziel1= 

set Ziel2= 

set param=/C /E /F /H /R /Y 

set /a ID=%ID%+1 

GOTO Server%ID% 

:Complete 

if exist N:\nul net use /delete N:

H:\

zeichen.bat H:\ 120