Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Операционные системы » Microsoft Windows » Задачи на bat-файлах 12

Модерирует : KLASS, IFkO

KLASS (06-03-2018 00:44): Объединение тем по сценариям: Сценарии Windows
 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83

   

hErAx

Редактировать | Цитировать | Сообщить модератору
Задачи на bat-файлах 12
Предыдущие части: (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11)
Вопросы, задачи и их решения по работе с командными файлами, а также сопутствующие ссылки.

 
Важно: копируя батник через буфер обмена из форума не забывайте удалять пробелы в конце каждой строки, т.к. в некоторых случаях из-за этого программа будет работать неправильно!!! Чтобы не копировались концевые пробелы из форума, жмите на ссылку "Редактировать" в посте, и уже из редактора копируйте батник без пробелов.
 
Также для удаления концевых пробелов пользуйтесь скриптом от Nagual, или VBS-Скрипт-Модулем от ViSiToR.
 
Для перекодирования кирилицы 866<—>1251 пользуйтесь онлайн сервисом Перекодировщик кириллицы

 
Дополняем шапку: добавляем готовые решения, полезные ссылки.
 
Примечание: Большие куски кода заключайте в тэг [more]  
 
Смежные темы:
В помощь системному администратору » Автоматизация администрирования
Программы » Командная строка, батники\сценарии
 
Полезные ссылки
 
Полезные утилиты
 
Готовые решения и частые вопросы:
  • При запуске batch-файла от Администратора текущая директория меняется на system32
  • Встроенный справочник по командам
  • Создание помощи по всем командам консоли 2000 и XP
  • Делаем паузу в командном файле стандартными средствами Windows
  • Альтернативные решения »
  • Работа с текстом, датой, и файлами »
  • Администрирование, автоматизация и сеть »
  • Работа с переменными и параметрами ком. строки »
     
    Описания работы команд и символов участниками темы:
    · setlocal enabledelayedexpansion и переменные окружения
    · символы & и && в командной строке
    · Переменная %0

  • Отправлено: 01:53 25-10-2015 | Исправлено: Paromshick, 21:51 18-12-2017
    Victor33Man



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

    Цитата:
    Что значит обнаружить? Написать сценарий, где присутствует запуск программы, ожидание и если требуется, то и проверку наличия, и прибитие процесса можно организовать там же

    Так ожидание бесконечное - процесс то с этим именем не завершается! В этом и проблема.
    ==================================================
    В общем ситуация следующая:
    Программа запускает дочерний процесс, поэтому и не получалось дождаться завершения по имени.
     
     

    Всего записей: 273 | Зарегистр. 06-04-2016 | Отправлено: 10:58 01-05-2016 | Исправлено: Victor33Man, 14:05 01-05-2016
    YuS_two



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Victor33Man

    Цитата:
    ожидание бесконечное - процесс то с этим именем не завершается!

    Вообще, ситуация некорректная, тут бы надо проверить работу самой программы, прежде всего.
    А так, можно запустить сценарий с таймером, который в цикле будет проверять наличие окна

    Код:
     
    :begin
    ...
    tasklist /fi "windowtitle eq имя_окна" | findstr /C:"имя_окна"  >nul
    if not %errorlevel%==0 goto :proc
    goto :begin
     

    и если его нет, то убивать процесс

    Код:
     
    :proc
    tasklist /fi "imagename eq имя_процесса" | findstr /C:"имя_процесса"  >nul
    if %errorlevel%==0 goto :kill
    ...
    :kill
    taskkill ...
     

    Всего записей: 399 | Зарегистр. 28-03-2016 | Отправлено: 13:12 01-05-2016 | Исправлено: YuS_two, 13:13 01-05-2016
    Victor33Man



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Подробнее...
    YuS_twoYuS_two
     
    Спасибо!
     
    Так работает:

    Код:
     
    @echo off
     
    Start Hworks32.exe
     
    :begin
     
    tasklist /fi "windowtitle eq Hex Workshop" | findstr /C:"HWorks32.exe"  >nul
    if not %errorlevel%==0 goto :begin
     
    :begin2
    tasklist /fi "windowtitle eq Hex Workshop" | findstr /C:"HWorks32.exe"  >nul
    if not %errorlevel%==0 goto :next
    goto :begin2
     
    :next
    tasklist /fi "imagename eq HWorks32.exe" | findstr /C:"HWorks32.exe"  >nul
    if %errorlevel%==0 taskkill /IM HWorks32.exe /T /F
     

     
    Да и так тоже

    Код:
     
    @echo off
     
    Start Hworks32.exe
     
    :begin
     
    tasklist /fi "windowtitle eq Hex Workshop" | findstr /C:"HWorks32.exe"  >nul
    if not %errorlevel%==0 goto :begin
     
    :begin2
    tasklist /fi "windowtitle eq Hex Workshop" | findstr /C:"HWorks32.exe"  >nul
    if not %errorlevel%==0 goto :next
    goto :begin2
     
    :next
    taskkill /IM HWorks32.exe /T /F
     

     [/more]

    Всего записей: 273 | Зарегистр. 06-04-2016 | Отправлено: 14:56 01-05-2016 | Исправлено: Victor33Man, 15:06 01-05-2016
    Nuke142



    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Привет!
    Нужно разрешить исполнение кода только для определенных имён пользователей (т.е., под каким логином сейчас пользователь)
    Написал:
    if %username% == Ivanov goto next
    if %username% == Petrov goto next
    if %username% == Sidorov goto next
    :next
    echo "hello world"
     
    Проблема в том, что мне нужно совпадение только по одной из любых этих строк, в случае чего идём в next.
    Но сейчас получается так, что идёт проверка по всем этим именам.
     
    Спасибо.

    Всего записей: 302 | Зарегистр. 03-04-2008 | Отправлено: 14:43 04-05-2016 | Исправлено: Nuke142, 14:50 04-05-2016
    Pasha_ZZZ



    Platinum Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Nuke142
    Ну например
    Цитата:
    echo./Inavov/Petrov/Sidorov/|find /i "/%USERNAME%/"
    if errorlevel 1 goto :eof
    .....<нужный_код>......

    Всего записей: 12396 | Зарегистр. 11-03-2002 | Отправлено: 15:06 04-05-2016
    Nuke142



    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Pasha_ZZZ
    Спасибо!!
     
    --
    Есть еще задача, последняя. Помогите определить, в чем проблема.
     
    Есть код, к примеру:

    Код:
     
    @echo off
    setlocal enabledelayedexpansion
    set /p hours=Введите часы:
    set /p mins=Введите минуты:
    :start
    FOR /F "usebackq tokens=1,2* delims=:" %%a IN ('!time!') DO (
     set h=%%a
     set m=%%b
    )
    if !hours!==!h! (
     if !mins!==!m! (
      start iexplore.exe "http://yandex.ru"
      goto :end
     )
    )
    timeout /t 5 /NOBREAK>nul
    goto :start
    :end
    exit
     

     
    В результате:
    Вводим часы, минуты, жмём enter - каждые 5 сек происходит проверка времени, и в назначенное время происходит открытие яндекса в IE.
    Проблема в том, что в назначенное время ничего не происходит, если нужный час состоит из одной цифры.
    К примеру, не происходит срабатывание в 8 утра. Пробовал вводить и "8", и "08".
    В чем может быть дело?
     
    Спасибо.

    Всего записей: 302 | Зарегистр. 03-04-2008 | Отправлено: 08:42 05-05-2016 | Исправлено: Nuke142, 08:44 05-05-2016
    Pasha_ZZZ



    Platinum Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Nuke142
    Цитата:
    Пробовал вводить и "8", и "08"
    А надо " 8" (с пробелом)

    Всего записей: 12396 | Зарегистр. 11-03-2002 | Отправлено: 08:55 05-05-2016
    nik4z



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Nuke142
    А зачем так сложно ?

    Код:
    @echo off
    set /p hours=Введите часы:
    set /p mins=Введите минуты:
    set /a tm=%hours% * 60 + %mins%
    :start
    FOR /F "usebackq tokens=1,2* delims=:" %%a IN ('%time%') DO set /a tm1=%%a * 60 + %%b
    if not %tm%==%tm1% goto :next
    start iexplore.exe "http://yandex.ru"
    goto :eof
    :next
    timeout /t 5 /NOBREAK>nul
    goto :start


    Всего записей: 218 | Зарегистр. 08-11-2015 | Отправлено: 09:10 05-05-2016 | Исправлено: nik4z, 09:49 05-05-2016
    YuS_two



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Nuke142

    Цитата:
    В чем может быть дело?  

    Как сказал выше Pasha_ZZZ:
    либо вводить так:

    Цитата:
    надо " 8" (с пробелом)

    или добавить пробел в разделители, так:

    Код:
    ...
    FOR /F "usebackq tokens=1,2* delims=: " %%a IN ('!time!') DO (
    ...

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

    Код:
    ...
     set m=%%b
    )
    echo '%h%-%m%' vs '%hours%-%mins%'
    :start
    if !hours!==!h! (
    ...

    Всего записей: 399 | Зарегистр. 28-03-2016 | Отправлено: 09:41 05-05-2016
    VidelSamogO



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Как заблокировать доступ к изменению *.exe в подкаталогах?  
     

    Цитата:
     
     

    Код:
    for /r %1 %%i in (*.exe) do (
    Attrib +R "%%i"
    echo y|cacls.exe %1 /C /G Администратор:C Все:C System:C
    echo y|cacls.exe "%%i" /C /G Администратор:R Все:R System:R
     
    )
    pause>nul

     
     

    Не сработал.

    Всего записей: 765 | Зарегистр. 16-08-2008 | Отправлено: 12:02 10-05-2016 | Исправлено: VidelSamogO, 12:49 10-05-2016
    hErAux



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    VidelSamogO
    вы справку по cacls/? читали?

    Цитата:
    ПРИМЕЧАНИЕ. CACLS считается устаревшей, рекомендуется использовать ICACLS.

    Всего записей: 210 | Зарегистр. 08-04-2016 | Отправлено: 13:01 10-05-2016
    VidelSamogO



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

    Цитата:
    вы справку по cacls/? читали?  

     
    Я работаю в XP. C одиночными каталогами у меня уже 30 лет на сервере всё работает. Справку то я читал. По существу вы стркутуру батника не можете изменить, чтобы работала? Так зачем воздух тогда сотрясать?

    Всего записей: 765 | Зарегистр. 16-08-2008 | Отправлено: 13:13 10-05-2016
    Inoz2000



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    VidelSamogO
    Чтобы от вас - тихонь добиться, что
    Цитата:
    Я работаю в XP
    сами же вы с первого раза не считаете нужным помочь другим в помощи себе.
    Цитата:
    Как заблокировать доступ
    заблокировать кому?

    Всего записей: 4900 | Зарегистр. 23-04-2009 | Отправлено: 13:58 10-05-2016
    VidelSamogO



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

    Цитата:
    заблокировать кому?

    Файловому вирусу. Который кто то упорно заносит в сетку. Или с чьего то компа приходит. Антивирус его не блокирует.  
    Вот такой батник у меня работает для отдельных каталогов.  
     

    Код:
    cacls.exe %1 /C /G Администратор:C Все:C System:C
    cacls.exe %1\*.exe /C /G Администратор:R Все:R System:R
     

     
    Теперь лишь надо настроить его на рекурсивность.

    Всего записей: 765 | Зарегистр. 16-08-2008 | Отправлено: 18:13 10-05-2016 | Исправлено: VidelSamogO, 19:07 10-05-2016
    Inoz2000



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    VidelSamogO
    если не вдаваться в подробности синтаксиса команды cacls, то я бы вынес строку

    Код:
    echo y|cacls.exe %1 /C /G Администратор:C Все:C System:C
    из цикла. и не писал бы русские слова, а то бывают проблемы с кодировками, знаете-ли...
    см. https://support.microsoft.com/ru-ru/kb/243330
     

    Цитата:
    По существу вы стркутуру батника не можете изменить, чтобы работала?

    вроде бы и так работает. только что у себя проверил. никаких ошибок не выдаёт. а что вы подразумеваете под фразой
    Цитата:
    Не сработал.


    Всего записей: 4900 | Зарегистр. 23-04-2009 | Отправлено: 19:58 10-05-2016
    VidelSamogO



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

    Цитата:
    и так работает

    В подкаталогах не блокирует от переименования
    Пытаюсь с использованием forfiles. Но это несколько непрофессионально.

    Цитата:
    не писал бы русские слова, а то бывают проблемы с кодировками

    Что поделаешь? Эта команда в русской винде только с русскими словами выполняется. Это я в ansi из ascii само собой сконвертировал.

    Цитата:
    то я бы вынес строку  
    echo y|cacls.exe %1 /C /G Администратор:C Все:C System:C
    из цикла.

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

    Всего записей: 765 | Зарегистр. 16-08-2008 | Отправлено: 23:30 10-05-2016 | Исправлено: VidelSamogO, 00:15 11-05-2016
    Pasha_ZZZ



    Platinum Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    VidelSamogO
    Цитата:
    Теперь лишь надо настроить его на рекурсивность.

    Цитата:
    for /r %1 %%i in (.) do ......
    - рекурсивное получение дерева каталогов

    Всего записей: 12396 | Зарегистр. 11-03-2002 | Отправлено: 00:05 11-05-2016
    VidelSamogO



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

    Цитата:
    - рекурсивное получение дерева каталогов
     

    А какая должна стоять переменная в первой calcs вместо %1?

    Всего записей: 765 | Зарегистр. 16-08-2008 | Отправлено: 00:18 11-05-2016 | Исправлено: VidelSamogO, 00:19 11-05-2016
    Pasha_ZZZ



    Platinum Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    VidelSamogO
    Код:
    cacls.exe %%i /C /G Администратор:C Все:C System:C
    cacls.exe %%i\*.exe /C /G Администратор:R Все:R System:R
    вы ж сами сказали, что из него надо рекурсию получить.
    Ну или тот код в неизменном виде засунуть в процедуру, а из цикла вызывать ее через CALL, в качестве параметра передав %%i

    Всего записей: 12396 | Зарегистр. 11-03-2002 | Отправлено: 07:10 11-05-2016
    Vepel



    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Если вдруг кто-то будет искать Bat для подключения диска по WebDAV  
     
    Сохранять в OEM 866  
     
    @echo off  
     
    set "user=webtest"  
    set "passwd=Password"  
    set "site=webdav.yoursite.net"  
    set "port=4443"  
    set "letter=w:"  
    set "Label=Общий Диск"  
    set "UNC=\\%site%@SSL@%port%\DavWWWRoot"  
     
     
    cmdkey /delete:%site%  
    cmdkey /add:%site% /user:%site%\%user% /pass:%passwd%  
    Net Use %letter% /delete  
    Net Use %letter% %UNC% /USER:%user% %passwd%  
    Reg delete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\%UNC:\=#%" /f  
    Reg Add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\%UNC:\=#%" /v _LabelFromReg /d "%Label%" /f

    Всего записей: 3 | Зарегистр. 14-02-2006 | Отправлено: 14:30 11-05-2016
       

    Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83

    Компьютерный форум Ru.Board » Операционные системы » Microsoft Windows » Задачи на bat-файлах 12
    KLASS (06-03-2018 00:44): Объединение тем по сценариям: Сценарии Windows


    Реклама на форуме Ru.Board.

    Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
    Modified by Ru.B0ard
    © Ru.B0ard 2000-2024

    BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

    Рейтинг.ru