Командная строка, батники, сценарии (bat, cmd) - [2868] :: Программы

Код:

@echo off
mode con cols=90 lines=30
chcp 1251>nul
set RT=echo Необходимы права администратора
set P=%HOMEDRIVE:~,-1%
set aP=fsutil fsinfo drives
set K=defrag
set m1=Главное меню
set m2=Меню анализа фрагментации дисков
set m3=Меню дефрагментации дисков
set m21=Минимальная информация
set m22=Стандартная информация
set m23=Подробная информация
set m24=Отслеживание выполняемой операции
set m31=Стандартная дефрагментация
set m32=Оптимизация памяти
set m33=Повторная оптимизация
set m34=Оптимизация методом соответствующего типу носителя
set m35=Обьединение свободного места
set m36=С обычным приоритетом (по умолчанию с низким)
set W=Выполнение операции...
set C=Результат
set tP=echo Нажмите ввод для системного диска, или укажите букву другого: x
chcp 866>nul
:m1
net session >nul 2>&1
if %errorLevel% neq 0 (
color 7C
%RT%
    echo.
    pause
)
cls
title %m1%
echo.
echo 1: %m2%
echo 2: %m3%
set /p t1=:
if %t1% == 1 goto m2
if %t1% == 2 goto m3
goto m1
:m2
mode con cols=90 lines=30
cls
title %m2%
echo.
echo 1: %m21%
echo 2: %m22%
echo 3: %m23%
echo 4: %m24%
echo 0: %m1%
set /p t2=:
if %t2% == 0 goto m1
echo.
%aP%
%tP%
set t22=%P%
set /p t22=:
title %W%
if %t2% == 1 (
setlocal EnableDelayedExpansion
for /F "Delims=" %%i in ('%K% /u /a %t22%:') do (set res=%%~i)
echo !res! & echo.
    endlocal
)
if %t2% == 2 %K% %t22%: /u /a
if %t2% == 3 (
mode con cols=90 lines=50
%K% %t22%: /u /v /a
)
if %t2% == 4 %K% %t22%: /t
title %C%
pause
goto m2
:m3
mode con cols=90 lines=30
cls
title %m3%
echo.
echo 1: %m31%
echo 2: %m32%
echo 3: %m33%
echo 4: %m34%
echo 5: %m35%
echo 6: %m36%
echo 0: %m1%
set /p t3=:
if %t3% == 0 goto m1
echo.
%aP%
%tP%
set t32=%P%
set /p t32=:
mode con cols=90 lines=50
title %W%
if %t3% == 1 %K% %t32%: /u /d
if %t3% == 2 %K% %t32%: /u /k
if %t3% == 3 %K% %t32%: /u /l
if %t3% == 4 %K% %t32%: /u /o
if %t3% == 5 %K% %t32%: /u /x
if %t3% == 6 %K% %t32%: /u /h
title %C%
pause
goto m3

Модерирует : gyra, Maz
Maz (19-09-2020 13:36): Командная строка, батники, сценарии (bat, cmd) Часть 6	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению