Полезные BAT/CMD скрипты

@Echo Off
 
2>nul Reg Query HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion |Find /i "Installer" >nul && (echo Разрядность ОС: х64) || (echo Разрядность ОС: х86)
pause

if exist "%windir%\Sysnative\*" (echo Разрядность ОС: х86) else (echo Разрядность ОС: х64)

@echo off
SetLocal EnableExtensions EnableDelayedExpansion
 
set inifile=settings.ini
 
echo Демонстрация
echo.
echo.Имена всех секций с кол-вом повторов:
call :ini.ShowSections "%inifile%"
::pause
echo.
echo.Кол-во повторов секции [AV]
call :ini.ShowSections "%inifile%" [AV]
::pause
echo.
echo.Имена и кол-во повторов всех параметров 2-й секции [AV]
call :ini.ShowKeys "%inifile%" "[AV]" 2
::pause
echo.
echo.Кол-во повторов параметра ARM во 2-й секции [AV]
call :ini.ShowKeys "%inifile%" "[AV]" 2 ARM
::pause
echo.
echo.Значение 3-го параметра ARM во 2-й секции [AV]
call :ini.ReadKey "%inifile%" "[AV]" 2 ARM 3
::pause
echo.
echo.Запись нового значения в 3-й параметр ARM 2-й секции [AV]
call :ini.WriteKey "%inifile%" "[AV]" 2 ARM 3 "NewValue"
::pause
echo.
echo.Проверка записи: значение 3-го параметра ARM во 2-й секции [AV]
call :ini.ReadKey "%inifile%" "[AV]" 2 ARM 3
 
pause
EndLocal
Exit /B
 
 
:ini.WriteKey
::%1 - путь к файлу
::%2 - имя секции
::%3 - порядковый номер секции (если имеются одноименные), иначе указывайте 1
::%4 - имя параметра
::%5 - порядковый номер параметра (если имеются одноименные), иначе указывайте 1
::%6 - записываемое значение
  SetLocal
  for /f "UseBackQ delims=" %%s in ("%~1") do (
    if Defined BeginRead (
      for /f "tokens=1* delims==" %%k in ("%%s") do (
        set ini.Key.Name=%%k
        call :TrimSpaces "!ini.Key.Name!" " " "ini.Key.Name"
        if /i "!ini.Key.Name!"=="%~4" (
          Set /A ini.Keys.Count+=1
          if !ini.Keys.Count!==%~5 (
            >>"%~1_" echo !ini.Key.Name!=%~6
            set JustWritedValue=true
          )
        )
      )
    )
    if not Defined JustWritedValue (
      echo %%s>>"%~1_"
    ) else (
      set JustWritedValue=
      set BeginRead=
      set LastLines=true
    )
    if not Defined LastLines (
      set ini.Section.Name=%%s
      call :TrimSpaces "!ini.Section.Name!" " " "ini.Section.Name"
      if /i "!ini.Section.Name!"=="%~2" (
        set /A ini.Sections.Count+=1
        if !ini.Sections.Count!==%~3 (
          Set BeginRead=true
        )
      )
    )
  )
  if Defined LastLines >nul copy /y "%~1_" "%~1"
  2>nul del "%~1_"
  EndLocal
Exit /B
 
 
:ini.ReadKey
::%1 - путь к файлу
::%2 - имя секции
::%3 - порядковый номер секции (если имеются одноименные), иначе указывайте 1
::%4 - имя параметра
::%5 - порядковый номер параметра (если имеются одноименные), иначе указывайте 1
  SetLocal
  for /f "UseBackQ delims=" %%s in ("%~1") do (
    if Defined BeginRead (
      for /f "tokens=1* delims==" %%k in ("%%s") do (
        set ini.Key.Name=%%k
        call :TrimSpaces "!ini.Key.Name!" " " "ini.Key.Name"
        if /i "!ini.Key.Name!"=="%~4" (
          Set /A ini.Keys.Count+=1
          if !ini.Keys.Count!==%~5 (
            Set ini.Value=%%l
            call :TrimSpaces "!ini.Value!" " " "ini.Value"
            echo.!ini.Value!
            EndLocal
            Exit /B
          )
        )
      )
    ) else (
      set ini.Section.Name=%%s
      call :TrimSpaces "!ini.Section.Name!" " " "ini.Section.Name"
      if /i "!ini.Section.Name!"=="%~2" (
        set /A ini.Sections.Count+=1
        if !ini.Sections.Count!==%~3 (
          Set BeginRead=true
        )
      )
    )
  )
  EndLocal
Exit /B
 
 
:ini.ShowKeys
::%1 - путь к файлу
::%2 - имя секции
::%3 - порядковый номер секции (если имеются одноименные), иначе указывайте 1
::%4 - (опционально) - имя параметра
  SetLocal
  set ini.Keys.Count=0
  for /f "UseBackQ delims=" %%s in ("%~1") do (
    set ini.Section.Name=%%s
    if "!ini.Section.Name:~0,1!"=="[" if Defined BeginRead goto ext_ShowKeys
    if Defined BeginRead (
      for /f "tokens=1* delims==" %%k in ("%%s") do (
        set ini.Key.Name=%%k
        call :TrimSpaces "!ini.Key.Name!" " " "ini.Key.Name"
        if "%~4"=="" (set seekKey=!ini.Key.Name!) else (set seekKey=%~4)
        if /i "!ini.Key.Name!"=="!seekKey!" (
          rem Количество параметров с одинаковым именем
          rem set /A ini.Keys["%%k"].Count+=1
          call set n_Keys=%%ini.Keys["!ini.Key.Name!"].Count%%
          set /A n_Keys+=1
          set ini.Keys["!ini.Key.Name!"].Count=!n_Keys!
          if not Defined ini.Keys["!ini.Key.Name!"] (
            set ini.Keys["!ini.Key.Name!"]=true
            set /A ini.Keys.Count+=1
            set ini.Keys[!ini.Keys.Count!].Name=!ini.Key.Name!
          )
        )
      )
    ) else (
      call :TrimSpaces "!ini.Section.Name!" " " "ini.Section.Name"
      if /i "!ini.Section.Name!"=="%~2" (
        set /A ini.Sections.Count+=1
        if !ini.Sections.Count!==%~3 (
          Set BeginRead=true
        )
      )
    )
  )
  :ext_ShowKeys
  for /L %%C in (1,1,!ini.Keys.Count!) do (
    set Key.Name=!ini.Keys[%%C].Name!
    call echo %%ini.Keys["!Key.Name!"].Count%% !Key.Name!
  )
  EndLocal
Exit /B
 
 
:ini.ShowSections
::%1 - путь к файлу
::%2 - (опционально) - имя секции
  SetLocal
  set ini.Sections.Count=0
  for /f "UseBackQ delims=" %%s in ("%~1") do (
    set ini.Section.Name=%%s
    call :TrimSpaces "!ini.Section.Name!" " " "ini.Section.Name"
    if "!ini.Section.Name:~0,1!"=="[" (
      if "%~2"=="" (set seekSection=!ini.Section.Name!) else (set seekSection=%~2)
      if /i "!ini.Section.Name!"=="!seekSection!" (
        rem Количество секций с одинаковым именем
        rem set /A ini.Sections["%%s"].Count+=1
        call set n_Sections=%%ini.Sections["!ini.Section.Name!"].Count%%
        set /A n_Sections+=1
        set ini.Sections["!ini.Section.Name!"].Count=!n_Sections!
        if not Defined ini.Sections["!ini.Section.Name!"] (
          set ini.Sections["!ini.Section.Name!"]=true
          set /A ini.Sections.Count+=1
          set ini.Sections[!ini.Sections.Count!].Name=!ini.Section.Name!
        )
      )
    )
  )
  for /L %%C in (1,1,!ini.Sections.Count!) do (
    set Section.Name=!ini.Sections[%%C].Name!
    call echo %%ini.Sections["!Section.Name!"].Count%% !Section.Name!
  )
  EndLocal
Exit /B
 
::Удаляет слева и справа лишние пробелы, или другие подряд идущие символы, заданные переменной %2 (Symbol)
:TrimSpaces
::%1-in.String
::%2-in.Symbol
::%3-out.String.Variable
  Set "%~3="
  Set "_String=%~1"
  if "%_String%"=="" Exit /B
  :Begin_Trim_Left
    if "%_String:~0,1%"=="%~2" (set "_String=%_String:~1%"& Goto Begin_Trim_Left)
  if "%_String%"=="" Exit /B
  :Begin_Trim_Right  
    if "%_String:~-1%"=="%~2" (set "_String=%_String:~0,-1%"& Goto Begin_Trim_Right)
  set "%~3=%_String%"
Exit /B

@set @x=0; /*
@echo off
SetLocal EnableExtensions
For /F "delims=" %%? in ('cscript //nologo /e:jscript "%~f0"') do set desktop=%%?
echo del /F /Q "%desktop%\*.txt"
pause
exit /B
*/WScript.echo (new ActiveXObject("Wscript.Shell").SpecialFolders("Desktop"));

rem @echo off
setlocal enabledelayedexpansion EnableExtensions
set task=i_view32.exe
::Префикс имени файла
set filename=pic_
::Количество картинок
set count=9999
 
For /L %%? in (1 1 %count%) do (
  set num=000%%?
  set num=!num:~-4!
  set FN=%filename%!num!.jpg
  start "" "%task%" "/capture=1" "/convert=$U(%%Y_%%m_%%d)\$U(%%H.%%M)\!FN!"
  cscript //nologo sleep.js 300
)

x264 --fps 3 --sar 640:480 -o vid.mkv "pic_%%04d.jpg"

@echo off
SetLocal EnableExtensions EnableDelayedExpansion
Set /p "Seek=Введите часть имени искомой папки: "
For /F "tokens=2 delims==" %%D in ('wmic logicaldisk where drivetype^=3 get caption /value^| find /i "Caption"') do (
  set Disk=%%D
  set Disk=!Disk:~0,2!
  set Again=
  for /f "delims=" %%? in ('dir /B /AD "!Disk!\*" ^| find /i "%Seek%"') do (
    if not Defined Again (
      set Again=true
      echo.
      echo Drive !Disk!
      echo ============      
    )
    Set /A C+=1
    Set Folder.!C!=!Disk!\%%?
    echo !C!. %%?
))
Echo.
:select
set /p "ch=Выберите № папки для перехода: "
start "" "!Folder.%ch%!"
goto select

set WindowsISO=c:\Windows7.ISO
 
ECHO -Mounting Original Windows ISO File-
powershell.exe "Mount-DiskImage ""%WindowsISO%"""
FOR /F "skip=3" %%I IN ('powershell.exe "Get-DiskImage """%WindowsISO%""" | Get-Volume | Select-Object {$_.DriveLetter}"') DO echo Disk %%I
pause
ECHO -Unmounting Original Windows ISO File-
powershell.exe "Dismount-DiskImage ""%WindowsISO%"""

@echo off
SetLocal EnableExtensions
call :msg "Строка № 1 \nСтрока № 2"
pause
Exit /B
 
:msg
  chcp 866 >NUL& for /F "delims=" %%a in ("%~1") do chcp 1251 >NUL& call :convert "%%~a"& chcp 866 >NUL& Exit /B
:convert
  set "text=%~1"
  (@for %%a in ("%text:\n=" "%") do @echo.%%~a) | msg *
Exit /B