1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
| @echo off
cls
if exist "%systemdrive%\resultat.txt" del /q "%systemdrive%\resultat.txt"
echo Entrez le nom du fichier sans son extension puis validez.
Set /p target=
echo Saisissez de nouveau le nom du fichier et validez.
Set /p target2=
if %target%==%target2% goto XPlist
:XPlist
@echo off
cls
echo Controle de %target% dans la liste
echo Patientez !
ping 0.0.0.0 -n 10 > nul
for /f "delims=" %%i in ('type "liste.log" ^|findstr /i /r "%target%"') do (
if %errorlevel%==0 goto XPdetect
)
:XPdetec
echo off
cls
echo %target% est autorise !
echo %target% en cours de recherche sur tous les lecteurs du PC !
echo Le scan peut prendre plusieurs minutes !
echo Patientez !
for %%i in (C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Y,Z) do (
if exist "%%i:\" set VrLec=%%i& call :detec %%i
)
goto fin
:detec
echo off
for /r "%VrLec%:\" %%j in (%target% %target%.*) do if exist "%%j" echo %%j >> %systemdrive%\resultat.txt
goto :eof
:fin
pause |
Partager