【技术】批处理碎片整理程序

@echo off
del %systemroot%\divers.txt>nul 2>nul 
del %systemroot%\divers1.txt>nul 2>nul 
set shut=0
@echo  Microsoft windows XP [版本 5.1.2600]
@echo (C) 版权所有 1985-2007  Microsoft Corp.
@echo 源自吴国伟的博客：http://www.99990.net
@ color 0f
@echo ※※※※※※※※※※※※※※※※※※※※※
@echo 欢迎使用碎片整理程序！
@echo 整理完碎片后是否关机？请输入相应的数字，然后回车确定。
:title
@echo 1.关机
@echo 2.不关机
set /p shut=请选择：
if "%shut%"=="1" goto conture
if "%shut%"=="2" (goto conture) else (goto error)
:conture
setlocal
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 Z) do (fsutil fsinfo drivetype %%i:|find /i "驱动器" && if "%errorlevel%" =="0" echo %%i>>%systemroot%\divers.txt)>nul 2>nul 
for /f %%a in (%systemroot%\divers.txt) do (fsutil fsinfo drivetype %%a:|find /i /v "m" && echo %%a>>%systemroot%\divers1.txt)>nul 2>nul 
endlocal
set d=0
:start
set a=%time:~7,1%
if %a% EQU 9 (goto nextt) else (goto next)
:next
set b=0
set c=0
set b=%time:~7,1%
set /a c=%b%-%a%
if "%c%" == "1" (goto hi) else (goto next)
:hi
if %d% GTR 9 (goto look1)
set /a d+=1
cls
echo 整理碎片需要一定的时间，本程序能自动处理，无需人工操作！
echo 请在保证每个分区中有至少百分之十五的可用空间，否则不能完整清理！
echo 碎片整理将在10秒后启动，已经逝去%d%秒…
goto start
:nextt
set b=0
set c=0
set b=%time:~7,1%
set /a c=%b%-%a%
if "%c%" == "-9" (goto hi) else (goto nextt)
:look1
cls
setlocal
@echo 正在对磁盘碎片进行整理！
@echo 在整理磁盘时，光标不停闪烁属于正常现象，请不要关闭本窗口！
@echo 请稍候…
for /f %%j in (%systemroot%\divers1.txt) do CALL :CALL2 %%j
endlocal
del %systemroot%\divers.txt
del %systemroot%\divers1.txt
if "%shut%"=="1" goto shut
if "%shut%"=="2" goto noshut 
:shut 
shutdown -t 0 -s
exit
:noshut
@echo 磁盘碎片整理完成，谢谢使用！请按任意键关闭本窗口。
@pause
exit
:error
cls
@echo 输入错误请重新选择:
goto title
:CALL2
defrag %1: /a|find /i "应该">nul 2>nul 
if "%errorlevel%"=="0" (echo 正在整理%1盘，可能需要比较长的时间 & defrag %1: ) else (echo %1盘不需要整理)