set v8exe="C:\Program Files\1cv8\bin\1cv8.exe"

set DataBaseName="\\Server1C\BasaBuh"

set DataBase=/F%DataBaseName%

set UserAdmin=/N"Администратор" /WA-

set PassAdmin=

set User=/N"Администратор" /WA-

set Pass=

set Param="" 



rem Обновляем конфигурацию базы данных

start "" /wait %v8exe% CONFIG     %DataBase% %UserAdmin% %PassAdmin% /UpdateDBCfg    



rem Запуск самой программы, чтобы отработала обработка обновления версии

start "" %v8exe% ENTERPRISE %DataBase% %User%  %Pass% /C%Param% /DisableStartupMessages   

 &НаСервере

Функция ОтправитьСервер()

    УспешнаяОтправка = Ложь;

    ПараметрJSON = "{'username': '" + Константы.ПользовательСМС.Получить() + "'";

    ПараметрJSON = ПараметрJSON +  ",'password': '" + Константы.ПарольСМС.Получить() + "'";

    ПараметрJSON = ПараметрJSON +  ",'request_type': 'send_message'";

    ПараметрJSON = ПараметрJSON +  ",'destination_address': '" + Объект.Контрагент.НомерТелефона+ "'";

    ПараметрJSON = ПараметрJSON +  ",'message': '" + Объект.ТекстСМС+ "'";

    ПараметрJSON = ПараметрJSON +  ",'source_address': '" + Константы.ПодписьСМС.Получить() + "'";

    ПараметрJSON = ПараметрJSON +  ",flash:'0'}";



    Попытка

        WinHttp=Новый COMОбъект("WinHttp.WinHttpRequest.5.1");

        WinHttp.Option(2,"Windows-1251");

        WinHttp.Open("POST","http://api.avisosms.ru/sms/json/",0);

        WinHttp.SetRequestHeader("Accept-Language", "ru");

        WinHttp.SetRequestHeader("Accept-Charset","Windows-1251");

        WinHttp.setRequestHeader("Content-Language", "ru");

        WinHttp.setRequestHeader("Content-Charset", "Windows-1251");

        WinHttp.setRequestHeader("Content-Type","application/x-www-form-urlencoded; charset=Windows-1251");

        WinHttp.Send(ПараметрJSON);

        ТекстОтвет = WinHttp.ResponseText();

        Если Найти(ТекстОтвет, "OK_Operation_Completed") Тогда

            УспешнаяОтправка = Истина;

        КонецЕсли;

    Исключение

        Сообщить("Ошибка соединения:");

        Сообщить(ОписаниеОшибки());

    КонецПопытки;



    //Запись отправленной смс в историю

    Если УспешнаяОтправка Тогда

        ПозицияКодаНачало = Найти(ТекстОтвет, "messageId") + СтрДлина("messageId")+3;

        ПозицияКодаКонец = Найти(ТекстОтвет, "}");

        КодСМС = Сред(ТекстОтвет, ПозицияКодаНачало, ПозицияКодаКонец-ПозицияКодаНачало-1);



        СМСРассылка.ЗаписатьСМСВИсторию(Объект.Контрагент, Объект.ТекстСМС, КодСМС);

    Иначе

        Сообщить("Отправка смс не состоялась. Текст ошибки: " + ТекстОтвет);

    КонецЕсли;

    Возврат УспешнаяОтправка;

КонецФункции   

 Connection = Новый COMОбъект("ADODB.Connection");

СтрокаПодключения = "Provider=SQLOLEDB.1;Password=" + Здесь пароль доступа + ";Persist Security Info=True;User ID=" + Здесь имя пользователя + ";Initial Catalog=" + Здесь имя БД + "; Data Source=" + Здесь имя сервера + ";";



//Ну и выполним какой-нибудь запрос с обходом:

Результат = Новый COMОбъект("ADODB.Command");

Результат.ActiveConnection = Connection; // работаем через это соединение

Результат.CommandTimeOut = Connection.CommandTimeOut; // таков тайм-аут

Результат.CommandType = "adCmdText"; // исполняем в точности процедуру

Результат.CommandText =    " S_elect name as Наименование

| FROM

|    dbo.sysobjects'";



Выборка = Результат.Execute(); // выполняем процедуру

Пока Выборка.Eof() = 0 Цикл

    Сообщить(Выборка.Fields("Наименование").Value);

   Выборка.MoveNext();

КонецЦикла;       

 

Set WshShell = CreateObject("WScript.Shell")

dim d,m,y

                    

d = day(date())

if d < 10 then

   d = "0" & d

end if

                     

m = month(date())

if m < 10 then

   m = "0" & m

end if

                     

y = year(date())

                     

h = Hour(Time())

if h < 10 then

   h = "0" & h

end if



Min = Minute(Time())

if Min < 10 then

   Min = "0" & Min

end if

                     

S = Second(Time())

if S < 10 then

   S = "0" & S

end if



'Формируется полное имя файлов выгрузки и лога

s = d & "_" & m & "_" & y & "_" & h & "_" & Min & "_" & S



'Путь к файлу выгрузки

BackupPath = "/DumpIB \\Server1CBackup\SQL_Backup\1c_backup\ZUP\BACKUP\ZUP_" & s & ".dt"



'Путь к логу

LogPath = "/Out \\Server1CBackup\SQL_Backup\1c_backup\ZUP\log\ZUP_Log_" & s & ".log -NoT_runcate"



'Путь к фалу запуска программы 1С

one1CPath = """%systemdrive%\Program Files\1cv81\bin\1cv8.exe"""



'Параметры запуска базы (SQL)                имя кластера\имя базы      пользователь    пароль

Paramters =                       "DESIGNER /S Server1C\ZUP /N UserAdmin1C /P PassWordUserAdmin1C /DisableStartupMessages"



Set fs = CreateObject("Scripting.FileSystemObject")





'Запуск

WshShell.Run one1CPath & " " & Paramters& " " & LogPath & " " & BackupPath, 0, True    

 // Отправка почты

Почта = Новый Почта;

Почта.Подключиться("login", "password");



Сообщ = Новый ПочтовоеСообщение;

Сообщ.Текст = "Вот файл!";

Сообщ.Тема = "Срочно!!!";



Данные = Новый ДвоичныеДанные("c:\file.txt");

Сообщ.Вложения.Добавить(Данные,"file.txt");

Сообщ.Получатели.Добавить("file@server.ru");



Почта.Послать(Сообщ, Ложь);

Почта.Отключиться();



// Получим почту

Почта = Новый Почта;

Почта.Подключиться("login", "password");



Выборка = Почта.Выбрать(Истина, Ложь);

Для Каждого Сообщение Из Выборка Цикл

Сообщить("Тема: " + Строка(Сообщение.Тема));

Сообщить("Текст: " + Строка(Сообщение.Текст));



Для Каждого Вложение Из Сообщение.Вложения Цикл

   Сообщить(Строка(Вложение.Наименование));

КонецЦикла;

КонецЦикла;    

 Функция ЧислоURL(Стр) 

	Возврат СтрЗаменить(Строка(Стр),".",",");

КонецФункции

 Функция МуДата(Стр)  //дата в формате MySQL (ГГГГ-ММ-ДД)

	Возврат "" + ДатаГод(Стр) + "-" +ДатаМесяц(Стр) + "-" + ДатаЧисло(Стр);	

КонецФункции

 Процедура Сформировать()

 	ПЕРЕМ СтрокаДляПриёма;

	ЗагрузитьВнешнююКомпоненту("v7plus.dll");

	HTTP=СоздатьОбъект("addin.v7httpreader");

	адрес="http://www.google.ru";

	HTTP. ПолучитьКакСтроку (адрес, СтрокаДляПриёма);

	сообщить (СтрокаДляПриёма);

КонецПроцедуры

 Функция Сформировать()

   	ПЕРЕМ СтрокаДляПриёма;

	ЗагрузитьВнешнююКомпоненту("v7plus.dll");

	HTTP=СоздатьОбъект("addin.v7httpreader");

	адрес="http://localhost/test.php?text="+текст;

	HTTP. ПолучитьКакСтроку(адрес, СтрокаДляПриёма);

	Сообщить(СтрокаДляПриёма);

КонецФункции

 Процедура Сформировать()

   	ПЕРЕМ СтрокаДляПриёма;

	ЗагрузитьВнешнююКомпоненту("v7plus.dll");

	HTTP=СоздатьОбъект("addin.v7httpreader");

	адрес=адрес="http://localhost/test.php?text="+Стр;

	HTTP. ПолучитьКакСтроку(адрес, СтрокаДляПриёма);

	возврат(СтрокаДляПриёма);

КонецПроцедуры

 Функция ЗапросSQL (SQLServer,Login,Password,ЗапросSQL)

   

  СтрокаСоединения = ("Driver={SQL Server}; Deleted=No; Data Source = ") + SQLServer +  

      (";UID=") + Login + ("; PWD=") + Password + (";");

    

     СоединениеSQL = Новый ComObject("ADODB.Connection");

  СоединениеSQL.ConnectionString=СтрокаСоединения;

   Попытка

    СоединениеSQL.Open();

    Состояние ("Подключение к серверу SQL...");

   Исключение

    Сообщить(ОписаниеОшибки());

    Возврат Ложь;

   КонецПопытки;

    

  Состояние ("Выполнение запроса SQL...");

  ЗаписиSQL = Новый ComObject("ADODB.RecordSet");

  ЗаписиSQL.ActiveConnection = СоединениеSQL;

  ЗаписиSQL = СоединениеSQL.Execute (ЗапросSQL);

   

  Таблица = Новый ТаблицаЗначений;

  Состояние ("Заполнение временной таблицы...");

  Для НомерСтолбца = 0 По ЗаписиSQL.Fields.Count-1 Цикл //Создание и добавление колонок во временную таблицу

   ИмяСтолбца =ЗаписиSQL.Fields.Item(НомерСтолбца).Name;  

   Таблица.Колонки.Добавить(ИмяСтолбца);

   //Сообщить(ИмяСтолбца);

  КонецЦикла;

   

  Пока ЗаписиSQL.EOF=0 Цикл    // Заполнение созданной таблицы

    

   НоваяСтрока =  Таблица.Добавить();

   Для НомерСтолбца = 0 По ЗаписиSQL.Fields.Count-1 Цикл

    НоваяСтрока.Установить(НомерСтолбца,ЗаписиSQL.Fields(НомерСтолбца).Value);

    //Сообщить ("Test " + ЗаписиSQL.Fields(ИмяСтолбца).Value + ИмяСтолбца);

   КонецЦикла;

          

   ЗаписиSQL.MoveNext();

    

  КонецЦикла;

   

  Состояние ("Закрываем соединение с SQL...");

     ЗаписиSQL.Close();

  СоединениеSQL.Close();

   

  Возврат Таблица;   // Возврат таблицы значений запроса SQL

   

КонецФункции    

 

echo off

cls

"C:\Program Files\1cv81\bin\1cv8.exe" ENTERPRISE /S"server\ESKM" /N"Admin" /P"ESKM" /DisableStartupMessages /C"ЗавершитьРаботуПользователей"

"C:\Program Files\1cv81\bin\1cv8.exe" CONFIG /S"server\ESKM" /N"Admin" /P"ESKM" /DisableStartupMessages /UpdateDBCfg /UC"ПакетноеОбновлениеКонфигурацииИБ"

"C:\Program Files\1cv81\bin\1cv8.exe" ENTERPRISE /S"server\ESKM" /N"Admin" /P"ESKM" /C"РазрешитьРаботуПользователей" /UC"ПакетноеОбновлениеКонфигурацииИБ"   

 

Почта = Новый Почта;

Почта.Подключиться(,);   

 

Почта.Подключиться("Outlook");   

 Сообщения = Почта.Выбрать(Ложь,Ложь);   

 Для каждого Сообщение Из Сообщения Цикл

//Добавляем строку в табличную часть

СтрокаТП = ТабличноеПоле1.Добавить();



// Перебираем коллекцию получателей сообщения

Для каждого Получатель Из Письмо.Получатели Цикл

Получатели = Получатели + Получатель.Пользователь + " <" + Получатель.Адрес + "> ";

КонецЦикла; 



СтрокаТП.Кому = Получатели;

Попытка

СтрокаТП.ОтКого= Сообщение.Отправитель.Адрес;

Исключение

СтрокаТП.ОтКого= Сообщение.Отправитель;

КонецПопытки;



СтрокаТП.Тема = Сообщение.Тема;

СтрокаТП.Текст = Сообщение.Текст;

СтрокаТП.Дата = Сообщение.ДатаПолучения;



// Перебираем вложения письма

Для каждого Вложение Из Сообщение.Вложения Цикл

Вложение.Данные.Записать(Вложение.Наименование); 

//Запоминаем имена вложение прикрепленных к данному письму, и сохраним в ТабличноеПоле1

Влож=Влож+Вложение.Наименование+",";

КонецЦикла;



СтрокаТП.ПутьВложения=Влож;

КонецЦикла; 



//отключение 

Почта.Отключиться();   

 Сообщение = Новый ПочтовоеСообщение;

Сообщение.Текст = "текст сообщения";

Сообщение.Отправитель = "petya@pupkin.com";

Сообщение.Тема ="Тема сообщения";

Сообщение.Получатели.Добавить("vasya@pupkin.com");

Сообщение.Вложения.Добавить(Новый ДвоичныеДанные("C:\file.jpg"),"file.jpg");



Почта = Новый Почта;



//подключаемся без параметров, к клиенту установленному по умолчанию в системе

Почта.Подключиться(,);



Попытка

//Пытаемся послать письмо

Почта.Послать(Сообщение,Истина);

Исключение

Сообщить(ОписаниеОшибки()); 

Возврат;

КонецПопытки; 



//отключение

Почта.Отключиться();   

 Функция ПолучитьПрофиль()



Профиль = Новый ИнтернетПочтовыйПрофиль;



// SMTP сервер

Профиль.АдресСервераSMTP = "smtp.pupkin.com";



// Порт SMTP сервера

Профиль.ПортSMTP = 25;



// POP3 сервер

Профиль.АдресСервераPOP3 = "pop.pupkin.com";



// Порт POP3 сервера

Профиль.ПортPOP3 = 110;



// Пароль к почтовому ящику

Профиль.Пароль = "pass";



// Пароль пользователя для SMTP сервера

Профиль.ПарольSMTP = "pass";



// Логин пользователя

Профиль.Пользователь = "vasya";



// Логин пользователя для SMTP сервера

Профиль.ПользовательSMTP = "vasya";



// Время ожидания выполнения операции в секундах



Профиль.ВремяОжидания = 50; 

Возврат Профиль;



КонецФункции





Почта = Новый ИнтернетПочта;



Попытка

Почта.Подключиться(ПолучитьПрофиль());

Исключение

Сообщить(ОписаниеОшибки()); 

Возврат;

КонецПопытки;



Заголовки=Почта.ПолучитьЗаголовки()

Если Заголовки.Количество()=0 Тогда

Предупреждение("В почтовом ящике нет входящих сообщений!", ,"Нет сообщений");

КонецЕсли;



// Загрузка сообщений в массив

Сообщения = Почта.Выбрать(Истина,Заголовки);



Для каждого Сообщение Из Сообщения Цикл

СтрокаТП = ТабличноеПолеИнтернетПочта.Добавить();

СтрокаТП.Дата = Сообщение.ДатаОтправления;

СтрокаТП.ОтКого = Сообщение.Отправитель.Пользователь + " <" + Сообщение.Отправитель.Адрес + "> ";

СтрокаТП.Тема = Сообщение.Тема;



// Перебираем получателей сообщения

Для каждого Получатель Из Сообщение.Получатели Цикл

КомуВходящие = КомуВходящие + Получатель.Пользователь + " <" + Получатель.Адрес + "> ";

КонецЦикла; 

СтрокаТП.Кому = КомуВходящие;



// Перебираем тексты сообщения

Для каждого ТекстСообщения Из Сообщение.Тексты Цикл

ТекстВходящие = ТекстВходящие + ТекстСообщения.Текст;

КонецЦикла; 

СтрокаТП.Текст = ТекстВходящие;



// Перебираем вложения письма

Для каждого Вложение Из Сообщение.Вложения Цикл

Вложение.Данные.Записать(Вложение.Name);

СправочникВложения.РеквизитВложение = новый ХранилищеЗначения(Новый ДвоичныеДанные(Вложение.Name));

СправочникВложения.ИмяВложения=Вложение.Name;

КонецЦикла;

КонецЦикла; 



// отключение

Почта.Отключиться();

   

 

Почта = Новый ИнтернетПочта;

Попытка

Почта.Подключиться(ПолучитьПрофиль());

Исключение

Сообщить(ОписаниеОшибки()); 

Возврат;

КонецПопытки;

Сообщение = Новый ИнтернетПочтовоеСообщение;



Сообщение.Вложения.Добавить(Новый ДвоичныеДанные("C:\file.jpg"),"file.jpg");



Сообщение.Отправитель = "vasya@pupkin.com";

Сообщение.ИмяОтправителя = "Вася";

ПочтовыеАдреса = Сообщение.Получатели;

ПочтовыйАдрес = ПочтовыеАдреса.Добавить();

ПочтовыйАдрес.Адрес = "petya@pupkin.com";

Сообщение.Тема ="Тема сообщения"; 



ИнтернетТекстПочтовогоСообщения = Сообщение.Тексты.Добавить();

ИнтернетТекстПочтовогоСообщения.Текст = "Текст сообщения";

ИнтернетТекстПочтовогоСообщения.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;



Попытка

// Пытаемся послать письмо

Почта.Послать(Сообщение);

Исключение

Сообщить(ОписаниеОшибки()); 

Возврат;

КонецПопытки;

// отключение

Почта.Отключиться();   

 //Пример показывает как из 1С вызывается MS Word, вставляется макрос и запускается!

//Макрос пишет на листе Добрый день!, https://helpf.pro и сохраняет файл в D:/primer.doc 



ПримерМакроса = "Sub VBAprimer()

|S_election.TypeText Text:=""Добрый день!""

|Application.Keyboard (1033)

|S_election.TypeText Text:="": https://helpf.pro""

|S_election.TypeParagraph

|S_election.MoveUp Unit:=wdLine, Count:=2

|S_election.EndKey Unit:=wdLine, Extend:=wdExtend

|S_election.Style = ActiveDocument.Styles(""Заголовок 1"")

|S_election.MoveDown Unit:=wdLine, Count:=1

|S_election.HomeKey Unit:=wdLine

|S_election.EndKey Unit:=wdLine, Extend:=wdExtend

|S_election.Style = ActiveDocument.Styles(""Заголовок 2"")

|ActiveDocument.SaveAs FileName:=""D:/primer.doc"", FileFormat:= _

|    wdFormatDocument, LockComments:=False, Password:="""", AddToRecentFiles:= _

|    True, WritePassword:="""", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _

|    False, SaveNativePictureFormat:=False, SaveFormsData:=False, _

|    SaveAsAOCELetter:=False

|End Sub";



// Создание объекта

Word = Новый COMОбъект("Word.Application");

Word.Documents.Add();

//VBComponents = Word.VBE.ActiveVBProject.VBComponents;

VBComponents = Word.ActiveDocument.VBProject.VBComponents;

Count = VBComponents.Count();

VBComponents.Add(1);

VBComponents.Item(Count + 1).CodeModule.I_nsertLines(1, ПримерМакроса);

Word.Application.Run(VBAprimer");

Word.Quit();

Word = Неопределено;    

  // Если не будет работать - возможно установлен высокий уровень безопасности. Понизьте до среднего ...

Процедура Сформировать()

     Попытка     

          W=СоздатьОбъект("Word.Application"); 

     Исключение

          Возврат;

     КонецПопытки;

     W.Documents.Add();

     i = W.VBE.ActiveVBProject.VBComponents.Count();

     W.VBE.ActiveVBProject.VBComponents.Add (1);

     W.VBE.ActiveVBProject.VBComponents.Item(i + 1).CodeModule.I_nsertLines (1, "Sub Golif()");

     W.VBE.ActiveVBProject.VBComponents.Item(i + 1).CodeModule.I_nsertLines (2, "MsgBox " + """" + "Работает" + """");

     W.VBE.ActiveVBProject.VBComponents.Item(i + 1).CodeModule.I_nsertLines (3, "End Sub");

     W.Application.Run ("Golif");

     W="";

КонецПроцедуры

  // Пробуем подключиться

		Профиль = Новый ИнтернетПочтовыйПрофиль;

		// Получение почты нам не нужно, коментируем

		//	Профиль.АдресСервераPOP3 = POP3Сервер;

		Профиль.АдресСервераSMTP = СокрЛП(Константы.SMTPSERVER.Получить()); // айпишник екченжа

		//Если ВремяОжиданияСервера > 0 Тогда

		//	Профиль.ВремяОжидания = ВремяОжиданияСервера;

		//КонецЕсли; 

		Профиль.Пароль           = СокрЛП(Константы.SMTPSERVERPASSWORD.Получить());

		Профиль.Пользователь     = СокрЛП(Константы.SMTPSERVERLOGIN.Получить());

		//Профиль.ПортPOP3         = ПортPOP3;

		Профиль.ПортSMTP         = СокрЛП(Константы.SMTPSERVERPORT.Получить());

		

		Профиль.ПарольSMTP       = СокрЛП(Константы.SMTPSERVERPASSWORD.Получить());

		Профиль.ПользовательSMTP = СокрЛП(Константы.SMTPSERVERLOGIN.Получить());

		

		//Профиль.ПарольSMTP       = УчетнаяЗапись.Пароль;

		//Профиль.ПользовательSMTP = УчетнаяЗапись.Логин;

		

		ИнтернетПочта = Новый ИнтернетПочта;

		Попытка

			ИнтернетПочта.Подключиться(Профиль);

		Исключение

			Сообщить(ОписаниеОшибки());

		КонецПопытки;

		

		ПочтовоеСообщение = Новый ИнтернетПочтовоеСообщение;

		ПочтовоеСообщение.ИмяОтправителя  = "1C-ka";

		ПочтовоеСообщение.Отправитель     = СокрЛП(Отправитель.Email);

		ПочтовоеСообщение.Тема            = Тема;

		

		ПочтовоеСообщение.Получатели.Добавить(СокрЛП(Получатель.Email));

		ПочтовоеСообщение.Тексты.Добавить(ТекстПисьма, ТипТекстаПочтовогоСообщения.ПростойТекст);

		

		Если Не пустаястрока(файл) Тогда

			Данные = Новый ДвоичныеДанные(файл); 

			ПочтовоеСообщение.Вложения.Добавить(Данные,файлн); 	

		конецесли;	

		попытка

			ИнтернетПочта.Послать(ПочтовоеСообщение);

		исключение

			Сообщить(ОписаниеОшибки());

		конецпопытки;