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

::*****************************************************************
::* 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