Создание бат файла для выгрузок

[SomeBad]

Добрый день,

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

1.Удаленный обьект
Есть сервер который делает выгрузки в формате *.pkg в определенную папку.Таких файлов в этой папке много, так что мне еще нужно найти в них актуальные последние выгрузки(если их нет то выход), переместить их в темп и сжать их в архив с определенным именем.После чего надо отправить на фтп архив от определенного пользователя в определенную папку (in), далее выполнить проверку отправки (если не удалась повторить, нет соединения отправить письмо по электронке с ошибкой).Затем удалить временные выгрузки(актуальность 3 дня).Выполнить проверку на наличие нового архива в папке out(если нет то выход), загрузить во временную папку и распаковать его в определенную папку в сети, после удалить временные файлы.Во всех случаях хотелось бы контролировать работу данного поцесса в виде лога и электронных писем на почту о ошибках.

2.Центральный обьект
Есть сервер который делает выгрузки в формате *.pkg в определенную папку.Таких файлов в этой папке много, так что мне еще нужно найти в них актуальные последние выгрузки(если их нет то выход), переместить их в темп и сжать их в архив с определенным именем.После чего надо скопировать его по сети в определенную папку out,Затем удалить временные выгрузки(актуальность 3 дня).Выполнить проверку на наличие нового архива в папке in(если нет то выход), загрузить во временную папку и распаковать его в определенную папку, после удалить временные файлы.Во всех случаях хотелось бы контролировать работу данного поцесса в виде лога и электронных писем на почту о ошибках.

Заранее спасибо, с уважением и наилучшими пожеланиями.

[SlavaN]

Можно попробовать не через bat-файл, а через nnCron.
0. ...бесплатен для граждан стран бывшего СССР при условии частного и некоммерческого использования. (цитата с сайта)
1. Поддерживает работу в качестве сервиса.
2. Расширяется с помощью плагинов на языке Форт. На сайте есть основные. Чего не найдешь или потребуется помощь - на форум.
3. Ресурсов практически не ест (200-500Кб)
4. Помимо указанной задачи можно навесить все что угодно для выполнения по расписанию

[SomeBad]

Софт конечно неплохой, но разобрать его предстоит.Я конечно попробую, только мне не так просто это сделать, т.к. мало опыта в программировании.

[SomeBad]

Добрый день,

Может кто дать информацию, а лучше инструкцию по bat,vbs.
Дело все в том что сторонний софт уже испробовали.
Думаю целесообразней написать все это.
Заранее Спасибо.

[Taurus3]

Не сказал бы что из самых простых вариантов, но в свое время стояла задача и она была реализована след. образом
(я лишь показываю направление)

_Удаленный объект_
_Test1.bat_

rem --Отправка--
cd с:\Определенная_папка
rem --архивируем все актуальные сегодняшние файлы
arj m /h#2 опр_имя1_ *.* >>log.txt
rem --создаем список файлов-архивов в текущем каталоге
FOR %%i in (*.arj) do echo %%~fi >>sp_arh.txt
rem --организовываем отправку
call cscript.exe //b //nologo send.vbs
rem перемещаем
move /-y с:\Определенная_папка\*.arj c:\temp >>log.txt

rem --проверка архивов в OUT--
if not exist с:\Определенная_папка\out\*.arj goto END
move /-y с:\Определенная_папка\out\*.arj c:\temp\out >>log.txt
arj x -y c:\temp\out\*.arj >>log.txt
move /-y с:\Определенная_папка\out\*.arj c:\temp\out >>log.txt
del *.arj /Q
move /-y c:\temp\out\*.* {Куда надо} >>log.txt
exit /b
:END
rem --end test1.bat--



_send.vbs_
Path_dir="с:\Определенная_папка"
set shell=wscript.createobject("wscript.shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
count=0
'открываем список файлов в текущем каталоге
if fso.FileExists("sp_arh.txt") then
Set file_tmp = FSO.OpenTextFile("sp_arh.txt", 1, false)
filename=Split(file_tmp.ReadAll,vbcrlf)
file_tmp.close
count = Cint(ubound(filename))
End If
Set f = FSO.CreateTextFile("cmd_ftp.txt",true)
Set f2 = FSO.CreateTextFile("upload.bat",true)
f2.WriteLine "echo =======BEGIN= %DATE% %TIME% ========>>log.txt"
f2.WriteLine "cd "+Path_dir
f2.WriteLine "ftp -i -s:cmd_ftp.txt 192.168.0.1 >>log.txt"
f.WriteLine "name"
f.WriteLine "login"
f.WriteLine "binary"
f.WriteLine "cd /in"
if count<>0 then
FOR n1=0 to count-1
upload_filename=rtrim(filename(n1))
f.WriteLine "put "+upload_filename_ifsbal
Next
End If
f2.WriteLine "cd "+Path_dir
f2.WriteLine "echo =========END= %DATE% %TIME% ========>>log.txt"
f2.WriteLine "exit"
f2.close
f.WriteLine "bye"
f.close
Shell.run "upload.bat",3,true
' ---здесь пишем некий анализатор log.txt
' ---и в случае ошибки, отправка на email /использовал sendmail (если не найдешь, пиши, отправлю)/
'Удаляем темповые файлы
Set file2 = FSO.GetFile("cmd_ftp.txt")
file2.Delete
Set file2 = FSO.GetFile("upload.bat")
file2.Delete

Примерно так,возможно что-то упустил, давно это было) сейчас возможно сделал-бы иначе, но и этот вариант имеет право на жизнь

[SomeBad]

Добрый день,

Прошу закрыть топик или сказать как это сделать самому.
(если это надо )