@echo off
set mxms=a
if not "!mxms!" == "a" set mxms=&&%comspec% /V:ON /C %0 %* && goto :EOF
set mxms=
rem 算法描述:
rem     windows的winsxs目录中文件夹的格式都是:"类型_名字_库id_版本号_语言_签名"
rem     检查所有的文件夹,如果发现有版本不同的文件存在,则删除所有旧版本的文件夹
rem 需要注意：名字部分可能也会包含多个下划线
rem 创建目录
set startT=%TIME%
set move_dir=%SystemRoot%\winsxs_del
if not exist %move_dir%\nul md %move_dir%
set log=%temp%\winsxs-clear.log
pushd "%SystemRoot%\winsxs"
echo ===================== start %DATE% %TIME% ============================ >> "%log%"
rem 遍历winsxs文件夹的所有目录
FOR /F "eol=; tokens=1-4 delims= " %%a in ('dir /ad /o-n %SystemRoot%\winsxs\*.*') do (if "%%c" == "<DIR>" if exist "%SystemRoot%\winsxs\%%d" call:fnDoClear %%d
)echo ===================== OK! %DATE% %TIME% ============================ >> "%log%"
echo clear OK!
echo from %startT% to %TIME%. Check your '%move_dir%' please.
echo view log from %log%
set startT=
set move_dir=
popd
goto :EOF:fnDoClear
rem arg: dir_name
rem 分解目录名
FOR /F "eol=; tokens=1-14 delims=_" %%g in ("%1") do (call:fnSplitName %1if not "%f_type%" == "" call:fnDoClearDir %1 !f_type! !f_name! !f_id! !f_rev! !f_lang! !f_sign!
)
goto :EOF:fnSplitName
rem arg: dir_name
rem return f_xxx vars
set f_type=
set f_name=
set f_id=
set f_rev=
set f_lang=
set f_sign=
FOR /F "eol=; tokens=1-14 delims=_" %%g in ("%1") do (if "%%m" == "" (set f_type=%%gset f_name=%%hset f_id=%%iset f_rev=%%jset f_lang=%%kset f_sign=%%l) else ( if "%%n" == "" (set f_type=%%gset f_name=%%h_%%iset f_id=%%jset f_rev=%%kset f_lang=%%lset f_sign=%%m) else ( if "%%o" == "" (set f_type=%%gset f_name=%%h_%%i_%%jset f_id=%%kset f_rev=%%lset f_lang=%%mset f_sign=%%n) else ( if "%%p" == "" (set f_type=%%gset f_name=%%h_%%i_%%j_%%kset f_id=%%lset f_rev=%%mset f_lang=%%nset f_sign=%%o) else ( if "%%q" == "" (set f_type=%%gset f_name=%%h_%%i_%%j_%%k_%%lset f_id=%%mset f_rev=%%nset f_lang=%%oset f_sign=%%p) else ( if "%%r" == "" (set f_type=%%gset f_name=%%h_%%i_%%j_%%k_%%l_%%mset f_id=%%nset f_rev=%%oset f_lang=%%pset f_sign=%%q) else ( if "%%s" == "" (set f_type=%%gset f_name=%%h_%%i_%%j_%%k_%%l_%%m_%%nset f_id=%%oset f_rev=%%pset f_lang=%%qset f_sign=%%r) else ( if "%%t" == "" (set f_type=%%gset f_name=%%h_%%i_%%j_%%k_%%l_%%m_%%n_%%oset f_id=%%pset f_rev=%%qset f_lang=%%rset f_sign=%%s) else ( if "%%u" == "" (set f_type=%%gset f_name=%%h_%%i_%%j_%%k_%%l_%%m_%%n_%%o_%%pset f_id=%%qset f_rev=%%rset f_lang=%%sset f_sign=%%t) else ( if "%%v" == "" (set f_type=%%gset f_name=%%h_%%i_%%j_%%k_%%l_%%m_%%n_%%o_%%p_%%qset f_id=%%rset f_rev=%%sset f_lang=%%tset f_sign=%%u) else (echo ERROR: can not split "%1"))))))))))
)goto :EOF:fnDoClearDir
rem arg: dir_name type namespace id revision lang sign
rem 找到最新版本的目录名
call:fnStdVer %5
set curorgver=%5
set curver=%R_STDVER%
set cursign=%7
set R_STDVER=
set newver=
set neworgver=
set newsign=
FOR /F "eol=; tokens=1-4 delims= " %%a in ('dir /ad /o-n %2_%3_%4_*_%6_*') do (if "%%c" == "<DIR>" (call:fnSplitName %%dif not "%f_type%" == "" call:fnCompVer "!newver!" !f_rev! !f_sign!)
)
rem 如果没找到则返回
if "%newver%" == "" goto :EOF
rem 如果找到，则将所有旧版本的清除
echo keep %2_%3_%4 %6 version %neworgver%
echo keep %2_%3_%4 %6 version %neworgver% >> "%log%"FOR /F "eol=; tokens=1-4 delims= " %%a in ('dir /ad /o-n %2_%3_%4_*_%6_*') do (if "%%c" == "<DIR>" (call:fnSplitName %%dif not "!f_type!" == "" (if not "!neworgver!" == "!f_rev!" if not "!newsign!" == "!f_sign!" (echo ... clear %2_%3_%4 %6 version !f_rev!echo ... clear %2_%3_%4 %6 version !f_rev! >> "%log%"call:fnDelDir "%%d")))
)goto :EOF:fnCompVer
rem oldver newver newsign
rem result set var newver
rem 分解ver的每一个部分,左侧填充0之后再比较
set V1=%~1
call:fnStdVer %2
set V2=%R_STDVER%
set R_STDVER=
if "%~1" == "" set neworgver=%2&&set newver=%V2%&&set newsign=%3&& goto :EOF
if /I "%V1%" LSS "%V2%" set neworgver=%2&&set newver=%V2%&&set newsign=%3&& goto :EOF
goto :EOF:fnStdVer
rem arg: ver
FOR /F "eol=; tokens=1-10 delims=." %%v in ("%1") do call:fnStdVerImpl %%v %%w %%x %%y %%z
goto :EOF:fnStdVerImpl
rem major, minor, revision, build
rem result set in R_STDVER
set svi_1=0000000000%1
set svi_2=0000000000%2
set svi_3=0000000000%3
set svi_4=0000000000%4
set svi_5=0000000000%5
set svi_6=0000000000%6
set R_STDVER=%svi_1:~-10%.%svi_2:~-10%.%svi_3:~-10%.%svi_4:~-10%.%svi_5:~-10%.%svi_6:~-10%
goto :EOF:fnDelDir
rem arg: dir
echo deleting %SystemRoot%\winsxs\%~1 >> "%log%"
echo --- takeown >> "%log%"
takeown /r /f "%SystemRoot%\winsxs\%~1" >> "%log%"
echo --- takeown = %ERRORLEVEL% >> "%log%"echo --- cacls >> "%log%"
cacls "%SystemRoot%\winsxs\%~1" /t /e /g everyone:f >> "%log%"
echo --- cacls = %ERRORLEVEL% >> "%log%"echo --- move >> "%log%"
move "%SystemRoot%\winsxs\%~1" "%move_dir%\%~1" >> "%log%"
echo --- move = %ERRORLEVEL% >> "%log%"
goto :EOF