Gosti » 12 авг 2010, 13:38
Кайрат-F2 » 12 авг 2010, 13:42
Olga062007 » 12 авг 2010, 13:42
Gosti » 12 авг 2010, 13:46
Кайрат-F2 писал(а):Base1CARJ.7z формируется сторонней программой по расписанию?
Кайрат-F2 » 12 авг 2010, 13:58
Кайрат-F2 » 12 авг 2010, 14:08
Кайрат-F2 » 12 авг 2010, 14:11
Gosti » 12 авг 2010, 14:13
Gosti » 12 авг 2010, 14:15
Private Sub StartBackUpToFtp()
ON ERROR RESUME NEXT
Dim CMDBACKUP, FolderName
FolderName = Replace(Replace(cStr(Date)+cStr(Time),":",vbNullString),".",vbNullString)
If fsObj.FileExists(GetDirToFile(BACKUPFILECMD)) Then fsObj.DeleteFile(GetDirToFile(BACKUPFILECMD))
CMDBACKUP = "@ECHO OFF"+vbCRLF+_
"USER СИКРЕТ"+vbCRLF+"СИКРЕТПАРОЛЬ"+vbCRLF+_
"mkdir "+FolderName+vbCRLF+_
"cd "+FolderName+vbCRLF+_
"bin"+vbCRLF+_
"put E:\BackUp\Base1CARJ.7z Base1CARJ.7z"+vbCRLF+_
"bye"
Set fsLog=fsObj.OpenTextFile(GetDirToFile(FTPCMDFILE),8,True)
fsLog.WriteLine(CMDBACKUP)
fsLog.Close
CMDBACKUP = "ftp -n -s:"+FTPCMDFILE+" 192.168.0.98"+vbCRLF+_
"del """+To866(GetDirToFile(FTPCMDFILE))+""""
Set fsLog=fsObj.OpenTextFile(GetDirToFile(BACKUPFILECMD),8,True)
fsLog.WriteLine(CMDBACKUP)
fsLog.Close
rootObj.Run GetDirToFile(BACKUPFILECMD)
End Sub Кайрат-F2 » 12 авг 2010, 14:24
echo @ECHO OFF > backup_to_ftp.txt
echo USER backuper >> backup_to_ftp.txt
echo *password* >> backup_to_ftp.txt
echo mkdir %date% >> backup_to_ftp.txt
echo cd %date% >> backup_to_ftp.txt
echo bin >> backup_to_ftp.txt
echo put E:\BackUp\Base1CARJ.7z Base1CARJ.7z >> backup_to_ftp.txt
echo bye >> backup_to_ftp.txt
ftp -n -s:backup_to_ftp.txt 192.168.0.98
Gosti » 12 авг 2010, 14:28
Кайрат-F2 » 12 авг 2010, 14:30
Gosti » 12 авг 2010, 14:31
Gosti » 12 авг 2010, 14:39
Кайрат-F2 писал(а):Думаю можно было бы обойтись и одним bat файлом без VBS
и люблю иметь полный контроль над всем и вся Кайрат-F2 » 12 авг 2010, 14:43
Gosti » 12 авг 2010, 14:46
я все таки ближе к программисту к чем админу, потому люблю все делать скриптами. shurik_kz » 15 авг 2010, 16:17
Gosti писал(а):тоже моим скриптом на основном сервере каждый день в 10 часов вечера
Gosti » 15 авг 2010, 16:20
файловый конечно, Gosti » 15 авг 2010, 16:22
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 7
![[Новость]](./styles/prosilver/imageset/icon_topic_reported.gif "[Новость]"){kind=icon}
Домовые книги отменяются, возвращаются адресные справки Предварительное информирование о ввозимых товарах ![[Проблема устранена. Получен ответ]](./styles/prosilver/imageset/icon_topic_solved.gif "[Проблема устранена. Получен ответ]"){kind=icon}
Фискальный аппарат ![[Есть вопрос, нерешенная проблема]](./styles/prosilver/imageset/icon_topic_unapproved.gif "[Есть вопрос, нерешенная проблема]"){kind=icon}
Гражданин получил уведомление из налогового органа НПФ: Пенсионные фонды планируется объединить в один фонд 
Новые сообщения Список новых тем 
Налоговый и бухгалтерский учет Налоговые проверки Формы налоговой отчетности Форум о СГДС Кабинет налогоплательщика ИС СОНО Форум об ИНИС Форум об ИС МОП Форум об ИС Декларант Скачать обновления налоговых программ и сами программы Форум по 1С Законодательство (Налоговый кодекс и т.д.) Подшивка полезных тем бухгалтерам и налогоплательщикам по направлениям Другие рубрики и разделы в верхнем меню
Личные темы участников Фискальный аппарат Нужен совет, ранее бездействующее ТОО Предлагайте: Какие сообщества добавить НПФ: Пенсионные фонды планируется объединить в один фонд Работа Сообществ по программам 1С Предварительное информирование о ввозимых товарах