vu1tur Moderator-Saaber Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Задачи на bat-файлах 8 (часть 1, часть 2, часть 3, часть 4, часть 5, часть 6, часть 7) Вопросы, задачи и их решения по работе с командными файлами, а также сопутствующие ссылки.   Важно: копируя батник через буфер обмена из форума не забывайте удалять пробелы в конце каждой строки, т.к. в некоторых случаях из-за этого программа будет работать неправильно!!!   Также для удаления концевых пробелов пользуйтесь скриптом от Nagual, или VBS-Скрипт-Модулем от ViSiToR.   Для перекодирования кирилицы 866<<>>1251 пользуйтесь онлайн сервисом Перекодировщик кириллицы   Дополняем шапку: добавляем готовые решения, полезные ссылки.   Примечание: Большие куски кода заключайте в тэг [more]     Смежные темы: В помощь системному администратору » Автоматизация администрирования Программы » Командная строка, батники\сценарии   Полезные ссылки   Полезные утилиты   Готовые решения и частые вопросы: Встроенный справочник по командам Создание помощи по всем командам консоли 2000 и XP Делаем паузу в командном файле стандартными средствами Windows Альтернативные решения » Работа с текстом, датой, и файлами » Администрирование, автоматизация и сеть » Работа с переменными и параметрами ком. строки »   Описания работы команд и символов участниками темы: · setlocal enabledelayedexpansion и переменные окружения · символы & и && в командной строке · Переменная %0 Всего записей: 3690 | Зарегистр. 01-02-2003 | Отправлено: 12:40 25-01-2010 | Исправлено: bomzzz, 13:37 20-08-2010

Mark_Titov Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору wolf0425 Спасибо огромное - работает!     А на второй вопрос есть вообще решение или может это не реализуемо?   Благодарю... Всего записей: 387 | Зарегистр. 12-04-2010 | Отправлено: 17:29 01-05-2010

wolf0425 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: А на второй вопрос есть вообще решение или может это не реализуемо?   да реализуемо наверно - только если брать информацию с той простыни sc то батник надо с нуля переписывать, вписывая полный ручной разбор информационных блоков. лениво же. если вдруг придумаешь как по имени сервиса узнать конкретно его статус - скрутить их попроще будет. Всего записей: 2929 | Зарегистр. 25-04-2007 | Отправлено: 18:36 01-05-2010 | Исправлено: wolf0425, 18:38 01-05-2010

Mark_Titov Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Ну хотя бы что бы он писал на против статус службы - Код:   1. Windows Audio       RUNING 2. Windows Installer   STOPING   Для продолжения нажмите любую клавишу . . .     вот исходный код -   Код:   @echo off echo. set "sernum=1" for /f "tokens=1*" %%a in ('sc query state^= all ^|findstr /i "Windows"') do call:_1 "%%~b"   echo. pause :_1   echo.%sernum%. %~1 set /a sernum=%sernum%+1   Всего записей: 387 | Зарегистр. 12-04-2010 | Отправлено: 19:11 01-05-2010 | Исправлено: Mark_Titov, 19:15 01-05-2010

wolf0425 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: вот исходный код -   толку то от него. держи. Код: @echo off echo. set "sernum=1" for /f "tokens=1*" %%a in ('sc query state^= all') do (     if /i .%%a equ .DISPLAY_NAME: echo %%b | find /i "Windows" 1>nul && set "name=%%b" || set "name="     if defined name if /i .%%a equ .STATE call :_print %%b ) echo. pause exit   :_print   echo.%sernum%. %name% %3 set /a sernum += 1 goto :eof Всего записей: 2929 | Зарегистр. 25-04-2007 | Отправлено: 21:12 01-05-2010

Mark_Titov Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: толку то от него. держи. Спасибо большое! Работает... Толк есть - не сомневайся! Всего записей: 387 | Зарегистр. 12-04-2010 | Отправлено: 00:25 02-05-2010

Mark_Titov Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Вот теперь наверное самое трудное. Я честно говоря не знаю можно ли это вообще реализовать встроенными средствами. Ну может кто из гуру командной строки знает. Как говорится - надежда умерает последней.   Вообщем я все собрал как нужно для моей задачи.   Код:   @ECHO OFF   color A :_menu   CLS ECHO. ECHO  ******************************************************************************     ECHO.   ECHO                                1. START SERVICE ECHO. ECHO                                2. STOP SERVICE ECHO. ECHO                                3. ADVANCED MENU ECHO. ECHO                                4. Exit   ECHO.   ECHO  ****************************************************************************** ECHO.   ECHO Write here[1,2,3,4] and press Enter:   SET /P reply=   IF /I "%reply%"=="1" GOTO :10   IF /I "%reply%"=="2" GOTO :20 IF /I "%reply%"=="3" GOTO :30 IF /I "%reply%"=="4" exit   :10 CLS @echo off echo. set "sernum=1" for /f "tokens=1*" %%a in ('sc query state^= all') do ( if /i .%%a equ .DISPLAY_NAME: echo %%b | find /i "Windows" 1>nul && set "name=%%b" || set "name=" if defined name if /i .%%a equ .STATE call :_print %%b )   echo.   ECHO Write here[1,2,3,4] and press Enter: SET /P reply= IF /I "%reply%"=="0" GOTO :_menu IF /I "%reply%"=="1" GOTO :11   :_print echo.%sernum%. %name% %3 set /a sernum += 1 goto :eof   :11 CLS @echo off echo. pause     Теперь нужно что бы вот в этой части -   Код:   ECHO Write here[1,2,3,4] and press Enter: SET /P reply= IF /I "%reply%"=="0" GOTO :_menu IF /I "%reply%"=="1" GOTO :11   :_print echo.%sernum%. %name% %3 set /a sernum += 1 goto :eof   :11 CLS @echo off echo. pause     ...нажав 1 служба под номером 1 в нашем случае это служба "Windows Audio"- останавливалась. Гуру командной сторки - скажите это возможно реализовать встроенными средствами? Заранее благодарю... Всего записей: 387 | Зарегистр. 12-04-2010 | Отправлено: 12:45 02-05-2010 | Исправлено: Mark_Titov, 13:41 02-05-2010

wolf0425 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Mark_Titov, ты опять полностью поменял задачу, сделав ненужным 80% ранее сделанного. замечание по манере твоего программирования: Цитата: IF /I "%reply%"=="0" GOTO :_menu IF /I "%reply%"=="1" GOTO :11   а куда пойти когда например %reply%==666 ? такая же бага в остальных аналогичных ветвлениях.   написать то всё это можно, основной вопрос - нафига так извращаться. почему не управлять сервисами через штатные гуевые средства или например через плагин к FARу? Всего записей: 2929 | Зарегистр. 25-04-2007 | Отправлено: 13:52 02-05-2010 | Исправлено: wolf0425, 13:56 02-05-2010

Mark_Titov Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: написать то всё это можно, Очень нужно - подскажите как?   Цитата: нафига так извращаться.   почему не управлять сервисами через штатные гуевые средства или например через плагин к FARу? Дело в том что эта консоль как я говорил уже для "БЛОНДИНОК". Задача поставленна сделать мониторинг беспроводной связи на предпреятии с ведением логов и отсылкой на корп почту в случае отсутствия ее. Это для анализа промежутков времени пропадания связи и др задач. Сделал. Это был первый этап реализации.   А вот теперь нужно что бы эта консоль управления была универсальной... Что бы сама находила нужные сервисы (в качестве сервисов - батники с пингами и соданием логов и отсыла на мыла и прочей лабуды) - это уже с вашей помощью реализованно (Спасибо за это) и запускала либо останавливала отдельно требуемый сервис. Другими словами - написал и забыл. Что бы по сто раз туда не лезть и не переписывать что-то при изменении чего-либо. И самое главное - этим менеджером будет пользоваться человек который крайне мало знаком с компами - скажем просто юзер. Потому и говорю что для "блондинок" нужно сделать. И не устанавливать человеку который будет за этим следить (у нас отдельный человек за этим следит, будет смотреть логи, анализировать их и принимать решения к действию) кучу плагинов и утилей - просто кинул ему этот менеджер и все. А там все на пальцах расписанно и показанно что  и как... Вот в чем суть...   Прошу подскажите как это сделать Премного благодарен... Всего записей: 387 | Зарегистр. 12-04-2010 | Отправлено: 14:15 02-05-2010 | Исправлено: Mark_Titov, 14:33 02-05-2010

wolf0425 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: Очень нужно - подскажите как?   когда печатается список сервисов - в цикл сверху добавить формирование массива переменных с  именами сервисов. if /i .%%a equ .SERVICE_NAME: set _service_%sernum%=%%b Это делаешь один раз на старте программы, после чего работать прицельно только с нужными сервисами.   по имени сервиса можно сервис запустить, остановить, посмотреть статус... много чего... sc /? пример   set sernum=2 sc stop !_service_%sernum%!   быстро пройтись по переменным for "tokens=2,3 delims=_=" %%a in (' set _service_') do echo.%%a. %%b   отображаемые имена сервисов тоже имеет смысл засунуть в переменные, раз тебе много раз надо их печатать.   и в начало батника добавь setlocal enabledelayedexpansion чтоб !переменные! поддерживались. Всего записей: 2929 | Зарегистр. 25-04-2007 | Отправлено: 22:21 02-05-2010 | Исправлено: wolf0425, 22:59 02-05-2010

Mark_Titov Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору ...Круто. Спасибо. Но настолько глубоко я еще не залезал. Тут мне не совсем понятно. Может на этом примере покажешь что и куда прикручивать?   Код:   @echo off echo.   set "sernum=1" for /f "tokens=1*" %%a in ('sc query state^= all') do (       if /i .%%a equ .DISPLAY_NAME: echo %%b | find /i "Windows" 1>nul && set "name=%%b" || set "name="       if defined name if /i .%%a equ .STATE call :_print %%b   )   echo.     ECHO PLEASE SELECT NUMBER AND PRESS ENTER:   SET /P reply=   :_print   echo.%sernum%. %name% %3   set /a sernum += 1   goto :eof     ...при нажатии 1+ENTER - должен остановиться сервис "Windows Audio" так как только он в данный момент запущен. Всего записей: 387 | Зарегистр. 12-04-2010 | Отправлено: 23:09 02-05-2010

01MDM Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Nikoderiko Код:   echo %~dp0   call /? for /?   Всего записей: 2638 | Зарегистр. 13-02-2006 | Отправлено: 01:24 03-05-2010

melboyscout Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Помогите пожалуйста...   Есть  текстовый файл примерно следующего содержания: ./file001_3.fcd|203814|2010|Apr|16|10:22:43 ./file002_3.fcd|295581|2010|Apr|19|09:35:53 ./file003_3.fcd|658518|2010|Apr|20|10:22:11 необходимо извлечь в переменную имя файла с датой создания: yyyy mm (число, а не символы) dd [если проще - то это текущая дата] и нужно отбросить первых 2 "служебных" символа задача возникла для автоматизации скачки "сегодняшнего файла" с фтп (т.е. я предварительно скачиваю файл-список с фтп, нахожу нужный файл, а потом загружаю искомый)   нашел что то подобное: for /f "usebackq delims=| tokens=1,3" %%i in ( `type "InFile"` ) do (   if "%%i"=="UF" (       echo %%j>>"OutFile"   )   )   ... но незнаю как адаптировать Всего записей: 2004 | Зарегистр. 16-02-2010 | Отправлено: 01:37 03-05-2010 | Исправлено: melboyscout, 01:39 03-05-2010

01MDM Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору melboyscout Код:   @echo off setlocal   for /f "tokens=1,3-5 delims=|" %%i in (InFile) do call:set %%i %%j %%k %%l goto:eof   :set set "name=%1" set "yyyy=%2"   for %%i in (Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec) do (     set /a cnt+=1     if "%%i"=="%3" goto:next )   :next set "mm=0%cnt%" set "dd=%4"   set file=%name:~2%_%yyyy%-%mm:~-2%-%dd%   1>>OutFile echo %file%         Всего записей: 2638 | Зарегистр. 13-02-2006 | Отправлено: 01:56 03-05-2010

melboyscout Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору 01MDM немного не так.... вот что выходит в файл: Цитата: d11241_3.fdz_2010-17-15         d11242_3.fdz_2010-21-16         d11243_3.fdz_2010-25-19         d11244_3.fdz_2010-29-20         d11245_3.fdz_2010-33-27 1. чтото с датами... 2. мне нужно имя только одного файла, который удовлетворяет дате размещения  2010|Apr|27 , например 3. имя желательно передать в переменную для последующей загрузки       Всего записей: 2004 | Зарегистр. 16-02-2010 | Отправлено: 02:05 03-05-2010

01MDM Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору melboyscout Цитата: 1. чтото с датами... Забыл обнулить %cnt% Цитата: 2. мне нужно имя только одного файла, который удовлетворяет дате размещения  2010|Apr|27 , например Вот немного переделал Код:   @echo off setlocal   for /f "tokens=1,3-5 delims=|" %%i in (InFile) do call:set %%i %%j %%k %%l echo %file% goto:eof   :set for %%i in (Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec) do (     set /a cnt+=1     if "%%i"=="%3" goto:next )   :next set "mm=0%cnt%" if "%4.%mm:~-2%.%2"=="27.04.2010" (       set "file=%~nx1" )   set "cnt="     Всего записей: 2638 | Зарегистр. 13-02-2006 | Отправлено: 02:55 03-05-2010 | Исправлено: 01MDM, 02:57 03-05-2010

melboyscout Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору 01MDM Цитата: Вот немного переделал Отлично!!! А вот как вместо фиксированной даты подставить переменные текущей даты? Что-то типа Цитата: set "mm=0%cnt%"   if "%4.%mm:~-2%.%2"=="%DATE:~-4%.%DATE:~3,2%.%DATE:~0,2%" (         set "file=%~nx1"   )     так или не так? не работает? может удвоить %% ?   Add   Поспешил... если подставить дату "08.04.2010" то не работает... подходит только если "8.04.2010"   Add2   Вообще это глупо... я хотел скачать с фтп файл за текущий день, а нагородилось такое 1. Закачай сначала список файлов 2. Выбери нужный файл 3. Скачай нужный файл...   А если за последний день не один, а два файла будет выложено... ... и еще много если....   01MDM СПАСИБО, что не бросил Всего записей: 2004 | Зарегистр. 16-02-2010 | Отправлено: 03:07 03-05-2010 | Исправлено: melboyscout, 03:15 03-05-2010

wolf0425 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: Может на этом примере покажешь что и куда прикручивать?   проще прикрутить, чем дальше объяснять. Код: @echo off setlocal enabledelayedexpansion   title Scanning set "sernum=100" for /f "tokens=1*" %%a in ('sc query state^= all') do (     if /i .%%a equ .SERVICE_NAME: set "_servicen_=%%b" && title Scanning: %%b     if /i .%%a equ .DISPLAY_NAME: echo %%b | find /i "Windows" 1>nul && (         echo %%b         set /a sernum += 1         set "_service_!sernum:~1!=!_servicen_!"         set "_serviced_!sernum:~1!=%%b"     ) )   :display title Display cls for /f "tokens=2,3* delims=_=" %%a in ('set _service_') do (     for /f "tokens=4" %%s in ('sc query %%b ^| findstr /r /b /c:" *STATE " ') do (         set "_displ_=%%b            "         echo.%%a !_displ_:~0,12!    %%s    !_serviced_%%a!     ) ) echo.   title Select service set /p reply="Please select number for start/stop and press Enter (0=rescan): " set "reply=00%reply%" set "reply=%reply:~-2%" if %reply% == 00 goto :display if not defined _service_%reply% echo Service %reply% not defined & pause & exit   sc query !_service_%reply%! | findstr /r /b /c:" *STATE " | 1>nul find "RUNNING" && sc stop !_service_%reply%! || sc start !_service_%reply%! pause & goto :display Всего записей: 2929 | Зарегистр. 25-04-2007 | Отправлено: 03:31 03-05-2010 | Исправлено: wolf0425, 04:07 03-05-2010

Mark_Titov Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору wolf0425 - ВОТ ЭТО ДА! ЭТО ВЫШЕ ВСЕХ ПОХВАЛ... ОГРОМНОЕ ТЕБЕ ЧЕЛОВЕЧЕСКОЕ СПАСИБО! РЕСПЕКТ И УВАЖУХА! Я НЕ ДУМАЛ ЧТО ВСЕ ЭТО ТАК МОЖНО РЕАЛИЗОВАТЬ. ПРЕКЛОНЯЮСЬ ПЕРЕД ТВОИМ МАСТЕРСТВОМ, ЧЕСТНОЕ СЛОВО - СПАСИБО! БЛАГОДАРЮ ЗА ТВОЕ ТЕРПЕНИЕ И ТРУД!   С УВАЖЕНИЕМ...   Add   ...слушай, а где можно убрать эту команду (не нашел) -   Код:   SERVICE_NAME: AudioSrv         TYPE               : 20  WIN32_SHARE_PROCESS         STATE              : 3  STOP_PENDING                                 (STOPPABLE,NOT_PAUSABLE,IGNORES_SHUTDOWN)         WIN32_EXIT_CODE    : 0  (0x0)         SERVICE_EXIT_CODE  : 0  (0x0)         CHECKPOINT         : 0x2         WAIT_HINT          : 0x0     Это конечно полезно, но для юзера это лишнее - запутает его. Что бы просто после старта/остановки сервиса автоматом возвращало на - goto isplay, там ведь статус показан. Ему больше ничего и не надо видеть...   И в какой конкретно строке нужно прописать имя компа для выполнения этого кода на удаленной машине? Это ведь отдельно выделенный комп у меня для этой задачи в домене...   Заранее извиняюсь за назойливость... Всего записей: 387 | Зарегистр. 12-04-2010 | Отправлено: 08:27 03-05-2010 | Исправлено: Mark_Titov, 10:02 03-05-2010

01MDM Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору melboyscout Цитата: if "%4.%mm:~-2%.%2"=="%DATE:~-4%.%DATE:~3,2%.%DATE:~0,2%" Зачем? просто %date% Всего записей: 2638 | Зарегистр. 13-02-2006 | Отправлено: 10:28 03-05-2010

Страницы: 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 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199

Компьютерный форум Ru.Board » Операционные системы » Microsoft Windows » Задачи на bat-файлах 8

vu1tur (04-09-2010 17:46): http://forum.ru-board.com/topic.cgi?forum=62&topic=21297

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование