Мелкие полезности для себя

mode con lines=12 cols=85
chcp 1251 >nul
@Echo *******************************************************************
@Echo Описание:Загруженной программы 7z-x64
@Echo *******************************************************************
call :# "C:\Program Files\7-Zip\7zFM.exe"
:#
Set "MyFile=C:\Program Files\7-Zip\7zFM.exe"
FOR /F "tokens=1,2 delims== " %%i IN ('"WMIC DATAFILE WHERE name="%MyFile:\=\\%" get Version /format:Textvaluelist"') DO If /I "%%i"=="Version" Set "Version=%%j"
echo.=====================================================================================
echo. 7z-x64 Загружен Version %Version% datа  обновления %~t1
echo.=====================================================================================
)
pause

@echo off
if not exist %1\soft md %1\soft
cd /d %1\soft
color 17 & mode con lines=12 cols=85
:install
:7-zip
set "h1=https://www.7-zip.org"
set "d1=[0-9][.]exe"
("%~dp0http2cli.exe" "%h1%" | findstr /R /C:"%d1%") >"%~dp0down.txt"
for %%a in ("%~dp0down.txt") do set size=%%~za
if %size%==0 goto 1
<"%~dp0down.txt" (for /f "tokens=1* delims=[]" %%a in ('find /n /v ""') do set "s%%a=%%b")
FOR /F "tokens=5 delims==>" %%a in ("%s1%") do set "f=%%a"
set "g2=https://www.7-zip.org/%f:~1,-1%"
set "w2=7z-x64.exe"
"%~dp0aria2c.exe" "%g2%" --check-certificate=false --console-log-level=error --file-allocation=none --allow-overwrite=true -x8 -s8 -o "%w2%"
:1
del "%~dp0down.txt" /q
del "%~dp0*.~" /q
)
cd /D "%~dp0"
mode con lines=12 cols=85
  chcp 1251 >nul
@Echo *******************************************************************
@Echo       Описание:Загруженной  программы  7z-x64
@Echo *******************************************************************
call :# "C:\soft\7z-x64.exe"
:#
  Set "MyFile=C:\soft\7z-x64.exe"
  FOR /F "tokens=1,2 delims== " %%i IN ('"WMIC DATAFILE WHERE name="%MyFile:\=\\%" get Version /format:Textvaluelist"') DO If /I "%%i"=="Version" Set "Version=%%j"
echo.=====================================================================================
    echo. 7z-x64   Загружен  Version    %Version%   datа загрузки  %~t1
echo.=====================================================================================
timeout /t 3 /nobreak >NUL
)
:inst
color 27 & mode con lines=12 cols=85
  chcp 1251 >nul
@Echo *******************************************************************
@Echo       Описание:Установленной  программы  7z-x64
@Echo *******************************************************************
call :# "C:\Program Files\7-Zip\7zFM.exe"
timeout /t 1 /nobreak >NUL
:#
  Set "MyFile=C:\Program Files\7-Zip\7zFM.exe"
  FOR /F "tokens=1,2 delims== " %%i IN ('"WMIC DATAFILE WHERE name="%MyFile:\=\\%" get Version /format:Textvaluelist"') DO If /I "%%i"=="Version" Set "Version=%%j"
if exist "C:\Program Files\7-Zip\7zFM.exe" (
echo.=====================================================================================
    echo. 7z-x64   УСТАНОВЛЕН  Version    %Version%   datа загрузки  %~t1
echo.=====================================================================================
timeout 4
) else (
color 57 & mode con lines=12 cols=85
echo.=====================================================================================
    echo  Notepad++   Не    Загружен       Загружаю
echo.=====================================================================================
C:\soft\7z-x64.exe /S
timeout 4
)
exit

ECHO ******************************************************************************************
ECHO Вывод списка установленных программ:
echo *****************************************************************************************
CHCP 1251 > nul
SET UNISTALL=HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall
FOR /f "tokens=7 delims=\" %%a IN ('reg query "%UNISTALL%"') DO (
       FOR /f "tokens=1,2,*" %%b IN ('reg query "%UNISTALL%\%%a" ^| FIND /I "DisplayName"')   DO (
       ECHO  %%d
        )
)

InstallPath="%Temp%\\HardDiskSentinel"
RunProgram="\"HDSentinel.exe\""
Delete="%%T"