Artem_Butenko
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
SetLocal EnableExtensions
For /F "Tokens=2*" %%I In ('Reg Query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList" /V ProfilesDirectory') Do Set Profiles=%%J
Call Set Profiles=%Profiles%
For /F "Delims=" %%I In ('Dir /B /AD-S-H "%Profiles%" ^| FindStr /V /B /I /C:"Users"') Do (
If "%Profiles%\%%I" Neq "%Profiles%\Public" (
Rem Удаление всех файлов в каталоге "C:\Users\%UserProfile%\AppData\Local\Temp".
Del /F /S /Q "%Profiles%\%%I\AppData\Local\Temp\*.*" >nul 2>&1
Rem Удаление всех каталогов в каталоге "C:\Users\%UserProfile%\AppData\Local\Temp".
For /F "delims=" %%a In ('DIR /AD /B "%Profiles%\%%I\AppData\Local\Temp"') Do (RD "%Profiles%\%%I\AppData\Local\Temp\%%a" /S /Q)
)
)
Pause
Cls
EndLocal
Exit |
