// соединение с параметрами по умолчанию

Соединение = Новый HTTPСоединение("www.mysite.ru");

 

// сервер использует порт 8080

Соединение = Новый HTTPСоединение("www.mysite.ru", 8080);

 

// сервер использует защищенное соединение (https),

// для подключения к серверу используется прокси

ПроксиСервер = Новый интернетПрокси;

ПроксиСервер.Пользователь = имяПользователя;

ПроксиСервер.Пароль       = парольПользователя;

 

Соединение = Новый HTTPСоединение("www.mysite.ru",,,, ПроксиСервер, Истина);      

  // Укажем настройки прокси-сервера

    ПроксиСервер = Новый ИнтернетПрокси;

    ПроксиСервер.Пользователь = "userfile";

    ПроксиСервер.Пароль = "12345";

    ПроксиСервер.Установить("http", "10.1.1.23", "3185");



    СерверИсточник = "shop.com"; 

    Адрес = "/price.asp"; 

    ИмяВходящегоФайла = "c:\temp\input.html";

    // Укажем в HTTP соединении что у нас есть проксик  

    НТТР = Новый HTTPСоединение(СерверИсточник,,,, ПроксиСервер); 

    НТТР.Получить(Адрес, ИмяВходящегоФайла); 

    ВходящийФайл = Новый Файл(ИмяВходящегоФайла);    

 //Создаем Файл для отправки

ИмяФайлаHTML = КаталогВременныхФайлов() + “My1cV8bNdr”;

ФайлHTML = Новый ЗаписьТекста(ИмяФайлаHTML, КодировкаТекста.ANSI);

ФайлHTML.ЗаписатьСтроку(”–My1cV8bNdr”);

ФайлHTML.ЗаписатьСтроку(”content-disposition: form-data; name=”"userfile”"; filename=”"test.htm”"”);

ФайлHTML.ЗаписатьСтроку(”Content-Type: text/html”);

ФайлHTML.ЗаписатьСтроку(”");

ФайлHTML.ЗаписатьСтроку(”Дальше вставляем html код.”);

ФайлHTML.ЗаписатьСтроку(”–My1cV8bNdr–”);

ФайлHTML.Закрыть();





// Если необходимо использовать прокси

ПроксиСервер = Новый ИнтернетПрокси();

ПроксиСервер.Сервер(”адрес прокси”);

ПроксиСервер.Порт(”порт прокси”);

ПроксиСервер.Пользователь = “пользователь прокси”;

ПроксиСервер.Пароль = “пароль прокси”;





// Формируем заголовок для запроса

ЗаголовокHTTP = Новый Соответствие();

ЗаголовокHTTP.Вставить(”Content-Type”, “multipart/form-data; boundary=My1cV8bNdr”);





// Устанавливаем соединение и отпровляем запрос

HTTP = Новый HTTPСоединение(”сервер куда соединяемся”, , , , ПроксиСервер);

HTTP.ОтправитьДляОбработки(ИмяФайлаHTML, “/upload.php”, КаталогВременныхФайлов() + “result.htm”, ЗаголовокHTTP);

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

 SET TRANSACTION ISOLATION LEVEL READ UNCOMMITTED





DECLARE @dbid AS smallint;

use [ВАШАБАЗА];

SET @dbid=DB_ID();





/*кто кого*/

SELECT DB_NAME(pr1.dbid) AS 'DB'

      ,pr1.spid AS 'ID жертвы'

      ,RTRIM(pr1.loginame) AS 'Login жертвы'

      ,pr2.spid AS 'ID виновника'

      ,RTRIM(pr2.loginame) AS 'Login виновника'

      ,pr1.program_name AS 'программа жертвы'

      ,pr2.program_name AS 'программа виновника'

      ,txt.[text] AS 'Запрос виновника'

FROM   MASTER.dbo.sysprocesses pr1(NOLOCK)

       JOIN MASTER.dbo.sysprocesses pr2(NOLOCK)

            ON  (pr2.spid = pr1.blocked)

       OUTER APPLY sys.[dm_exec_sql_text](pr2.[sql_handle]) AS txt

WHERE  pr1.blocked <> 0





/* Кто что блокирует */

SELECT s.[nt_username]

      ,request_session_id

      ,tran_locks.[request_status]

      ,rd.[Description] + ' (' + tran_locks.resource_type + ' ' + tran_locks.request_mode + ')' [Object]

      ,txt_blocked.[text]

      ,COUNT(*) [COUNT]

FROM   sys.dm_tran_locks AS tran_locks WITH (NOLOCK)

       JOIN sys.sysprocesses AS s WITH (NOLOCK)

            ON  tran_locks.request_session_id = s.[spid]

       JOIN (

                SELECT 'KEY' AS sResource_type

                      ,p.[hobt_id] AS [id]

                      ,QUOTENAME(o.name) + '.' + QUOTENAME(i.name) AS [Description]

                FROM   sys.partitions p

                       JOIN sys.objects o

                            ON  p.object_id = o.object_id

                       JOIN sys.indexes i

                            ON  p.object_id = i.object_id

                            AND p.index_id = i.index_id

                UNION ALL

                SELECT 'RID' AS sResource_type

                      ,p.[hobt_id] AS [id]

                      ,QUOTENAME(o.name) + '.' + QUOTENAME(i.name) AS [Description]

                FROM   sys.partitions p

                       JOIN sys.objects o

                            ON  p.object_id = o.object_id

                       JOIN sys.indexes i

                            ON  p.object_id = i.object_id

                            AND p.index_id = i.index_id

                UNION ALL

                SELECT 'PAGE'

                      ,p.[hobt_id]

                      ,QUOTENAME(o.name) + '.' + QUOTENAME(i.name)

                FROM   sys.partitions p

                       JOIN sys.objects o

                            ON  p.object_id = o.object_id

                       JOIN sys.indexes i

                            ON  p.object_id = i.object_id

                            AND p.index_id = i.index_id

               

                UNION ALL

                SELECT 'OBJECT'

                      ,o.[object_id]

                      ,QUOTENAME(o.name)

                FROM   sys.objects o

            ) AS RD

            ON  RD.[sResource_type] = tran_locks.resource_type

            AND RD.[id] = tran_locks.resource_associated_entity_id

       OUTER APPLY sys.[dm_exec_sql_text](s.[sql_handle]) AS txt_Blocked

WHERE  (

           tran_locks.request_mode = 'X'

           AND tran_locks.resource_type = 'OBJECT'

       )

       OR  tran_locks.[request_status] = 'WAIT'

GROUP BY

       s.[nt_username]

      ,request_session_id

      ,tran_locks.[request_status]

      ,rd.[Description] + ' (' + tran_locks.resource_type + ' ' + tran_locks.request_mode + ')'

      ,txt_blocked.[text]

ORDER BY

       6 DESC

       





IF EXISTS ( SELECT  Name





            FROM    tempdb..sysobjects





            WHERE   name LIKE '#LOCK_01_01%' )

    DROP TABLE #LOCK_01_01









CREATE TABLE #LOCK_01_01





    (





      spid INT,





      dbid INT,





      ObjId INT,





      IndId SMALLINT,





      Type VARCHAR(20),





      Resource VARCHAR(50),





      Mode VARCHAR(20),





      Status VARCHAR(20)





    )





INSERT  INTO #LOCK_01_01





EXEC sp_lock









select OBJECT_NAME(ObjId) as [Имя объекта], Mode [Тип блокировки (код)],





CASE

     WHEN Mode='Sch-S' THEN 'Блокировка стабильности схемы. Гарантирует, что элемент схемы, такой как таблица или индекс, не будет удален до тех пор, пока сеанс связи удерживает блокировку стабильности схемы на данный элемент схемы;'





 WHEN Mode='Sch-М' THEN '= Блокировка изменения схемы. Должен поддерживаться любым сеансом связи, во время которого предполагается изменить схему данного ресурса. Гарантирует, что другие сеансы не имеют ссылок на обозначенный объект;'





 WHEN Mode='S' THEN 'S = Коллективная блокировка. Удерживающему сеансу предоставлен коллективный доступ к ресурсу;'





 WHEN Mode='U' THEN 'U = Блокировка обновления. Указывает блокировку обновления, полученную на ресурсы, которые со временем могут быть обновлены. Используется для предотвращения общей формы взаимоблокировки, которая возникает, когда множество сеансов блокируют ресурсы для потенциального обновления в последующее время;'





 WHEN Mode='X' THEN 'X = Монопольная блокировка. Удерживающему сеансу предоставлен исключительный доступ к ресурсу;'





 WHEN Mode='IS' THEN 'IS = Блокировка с намерением коллективного доступа. Указывает намерение поместить S блокировки на некоторые подчиненные ресурсы в иерархии блокировок;'





 WHEN Mode='IU' THEN 'IU = Блокировка с намерением обновления. Указывает намерение поместить U блокировки на некоторые подчиненные ресурсы в иерархии блокировок;'





 WHEN Mode='IX' THEN 'IX = Блокировка с намерением монопольного доступа. Указывает намерение поместить X блокировки на некоторые подчиненные ресурсы в иерархии блокировок;'





 WHEN Mode='SIU' THEN 'SIU = Коллективная блокировка с намерением обновления. Указывает коллективный доступ к ресурсу с намерением получения блокировок обновления на подчиненные ресурсы в иерархии блокировок;'





 WHEN Mode='SIX' THEN 'SIX = Коллективная блокировка с намерением монопольного доступа. Указывает коллективный доступ к ресурсу с намерением получения монопольных блокировок на подчиненные ресурсы в иерархии блокировок;'





 WHEN Mode='UIX' THEN 'UIX = Блокировка обновления с намерением монопольного доступа. Указывает блокировку обновления ресурса с намерением получения монопольных блокировок на подчиненные ресурсы в иерархии блокировок;'





 WHEN Mode='BU' THEN 'BU = Блокировка массового обновления. Используется для массовых операций;'

     --[ ELSE else_result_expression ]

END as [Тип блокировки]





,syspr.spid, syspr.dbid, syspr.open_tran, syspr.status, syspr.hostprocess, syspr.loginame, syspr.hostname





 From

#LOCK_01_01





inner join master.dbo.sysprocesses as syspr

on syspr.spid = #LOCK_01_01.spid and syspr.dbid = #LOCK_01_01.dbid





where

#LOCK_01_01.Type = 'TAB'

and

#LOCK_01_01.dbid = @dbid     





/* Чем занят сервер*/

SELECT s.[spid]

      ,s.[loginame]

      ,s.[open_tran]

      ,s.[blocked]

      ,s.[waittime]

      ,s.[cpu]

      ,s.[physical_io]

      ,s.[memusage]

       INTO #sysprocesses

FROM   sys.[sysprocesses] s





WAITFOR DELAY '00:00:01'





SELECT txt.[text]

      ,s.[spid]

      ,s.[loginame]

      ,s.[hostname]

      ,DB_NAME(s.[dbid]) [db_name]

      ,SUM(s.[waittime] -ts.[waittime]) [waittime]

      ,SUM(s.[cpu] -ts.[cpu]) [cpu]

      ,SUM(s.[physical_io] -ts.[physical_io]) [physical_io]

      ,s.[program_name]

FROM   sys.[sysprocesses] s

       JOIN #sysprocesses ts

            ON  s.[spid] = ts.[spid]

            AND s.[loginame] = ts.[loginame]

       OUTER APPLY sys.[dm_exec_sql_text](s.[sql_handle]) AS txt

WHERE  s.[cpu] -ts.[cpu]

       + s.[physical_io] -ts.[physical_io]

       > 500

       OR  (s.[waittime] -ts.[waittime]) > 3000

GROUP BY

       txt.[text]

      ,s.[spid]

      ,s.[loginame]

      ,s.[hostname]

      ,DB_NAME(s.[dbid])

      ,s.[program_name]

ORDER BY

       [physical_io] DESC

       

DROP TABLE #sysprocesses

   

 ПоказатьОповещениеПользователя(

	НСтр("ru = 'Выполнение:'"),

	ПолучитьНавигационнуюСсылку(Объект.Ссылка),

	Строка(Объект.Ссылка),

	БиблиотекаКартинок.Информация32

	);

   

 &НаКлиенте

Процедура ПриОткрытии(Отказ)

	Если ПолучитьДатуЗапретаРедактирования() >= Объект.Дата Тогда

		НавигационнаяСсылка = ПолучитьНавигационнуюСсылку(Объект.Ссылка);

		ПоказатьОповещениеПользователя("Только просмотр!", 

		НавигационнаяСсылка, 

		"Разрешен только просмотр документа!");

	КонецЕсли;                                

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



&НаСервереБезКонтекста

Функция ПолучитьДатуЗапретаРедактирования()

	Запрос = Новый Запрос;

	Запрос.Текст = "ВЫБРАТЬ

	|	Константы.ДатаЗапретаРедактирования

	|ИЗ

	|	Константы КАК Константы";

	РезультатЗапроса = Запрос.Выполнить();

	Возврат РезультатЗапроса.Выгрузить()[0].ДатаЗапретаРедактирования;

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

 	#Если Клиент Тогда

			Форма = Источник.ПолучитьФорму();

			Если Форма.Открыта() Тогда

				ПоказатьОповещениеПользователя("Документ изменен", ПолучитьНавигационнуюСсылку(Источник.Ссылка), "Изменен состав рашифровки платежей", БиблиотекаКартинок.Информация32);

			КонецЕсли;

		#КонецЕсли   

 Форма = Обработки.ОповещенияПользователя.ПолучитьФорму("Форма");

          Форма.Открыть();   

          

     Функция ВывестиОповещение(ИмяОтчета);

         ИмяФайла = ПолучитьИмяВременногоФайла();

         Отчет = Справочники.ВнешниеОбработки.НайтиПоНаименованию(ИмяОтчета);

         ДвоичныеДанные = Отчет.ХранилищеВнешнейОбработки.Получить();

         ДвоичныеДанные.Записать(ИмяФайла);

         опФорма = ВнешниеОбработки.ПолучитьФорму(ИмяФайла);

         опФорма.Открыть();

         УдалитьФайлы(ИмяФайла);

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



    Процедура ПроверкаНовыхОповещений() Экспорт



         ОтборПользователей = Новый Структура("Пользователь");

         ОтборПользователей.Пользователь = ПараметрыСеанса.ТекущийПользователь;

         Оповещения = РегистрыСведений.ОповещениеПользователей.Выбрать(ОтборПользователей);

         КолОп = 0;

         Пока Оповещения.Следующий() Цикл

            Если Оповещения.Просмотрено Тогда

            Продолжить;

            КонецЕсли;

            КолОп = КолОп + 1;

        КонецЦикла;  

         Если (КолОп>0) Тогда

           ВывестиОповещение("Оповещения пользователя");

         КонецЕсли;

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



       Процедура ЗадатьИнтервал(Интервал) Экспорт

          ПодключитьОбработчикОжидания("ПроверкаНовыхОповещений",Интервал,5);

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



       Процедура ОчиститьИнтервал() Экспорт

          ОтключитьОбработчикОжидания("ПроверкаНовыхОповещений");

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

 //инициализация часть 1

СсылкаМакет = ПолучитьМакет(Акт);

MSWord = СсылкаМакет.Получить();

Попытка

СсылкаМакет = MSWord.Application.Documents(1);

СсылкаМакет.Activate(); 

//выгружаем табличную часть с нарушениями в строку часть 2

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

str.Open();

СтрочкаТаблицы = ЭлементыФормы.Нарушения.ТекущиеДанные;

Для Каждого СтрочкаТаблицы Из Нарушения Цикл

str.WriteText( + СтрочкаТаблицы.Описание +  Нарушены требования СНИПФЗГОСТ:  + СтрочкаТаблицы.СНИПФЗГОСТ  +  Статья:  + СтрочкаТаблицы.ЧастьСтатья  + Символ(13),0);

КонецЦикла;

str.Position = 0;

НарушенияТекст = str.readText();



//вставляем в закладку текст с нарушениями часть 3

MSWord.Bookmarks(НарушенияТекст).S_elect();

MSWord.Application.S_election.TypeText(НарушенияТекст);



//открыть Word часть 4

СсылкаМакет.Application.Visible = Истина;



СсылкаМакет.Activate();

Исключение

//если ошибка 

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

MSWord.Application.Quit();

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

 Word = MSWord.Application;

Документ = Word.ActiveDocument();

//Переместиться вниз на 22 строк

Word.S_election.MoveDown(,22);

Документ.Paragraphs.Add();

//подготовка таблицы:

Rng = Word.S_election.Range;

//Формируем заголовок:

Rng.I_nsertAfter(№ п/п*Установленные нарушения и меры по их устранению*Основания); 

Rng.I_nsertParagraphAfter();

//сама таблица

СтрочкаТаблицы = ЭлементыФормы.НарушенияПредписание.ТекущиеДанные;

Для Каждого СтрочкаТаблицы из НарушенияПредписание Цикл 

Rng.I_nsertAfter(Строка(СтрочкаТаблицы.НомерСтроки)+*+СтрочкаТаблицы.Описание + ;  + СтрочкаТаблицы.Предписание +* + СтрочкаТаблицы.СНИПФЗГОСТ +   + СтрочкаТаблицы.ЧастьСтатья);

Rng.I_nsertParagraphAfter(); 

КонецЦикла; 

Rng.ConvertToTable(*);

Документ.Tables(1).AutoFormat(17); //номер таблицы в шаблоне

Word.Visible = Истина;   

 Процедура ОсновныеДействияФормыWord(Кнопка)

   АктивныйДокумент = ПолучитьМакет("Макет");

   КомОбъект = АктивныйДокумент.Получить();

   

   КомОбъект.Application.Visible=1;

   КомОбъект.Variables.Item("ДатаПриказа").Value="24.01.2007";

   КомОбъект.Fields.UpDate();



   КомОбъект.PrintOut(); //распечатать документ



   //Ожидание окончания отправки на печать...

   Пока objWord.Application.BackgroundPrintingStatus<>0 Цикл

     Предупреждение("Ожидание",1);

   КонецЦикла;  



   КомОбъект.Application.Quit(); //закрыть Word

   КомОбъект = 0;

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

   

 Процедура ОсновныеДействияФормыWord(Кнопка)

   АктивныйДокумент = ПолучитьМакет("Макет");

   КомОбъект = АктивныйДокумент.Получить();

   КомОбъект.Application.Visible=1;

   КомОбъект.Bookmarks(СокрЛП("ИмяЗакл")).S_elect();

   КомОбъект.Application.S_election.TypeText(СокрЛП("тест проверка"));

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

 // Параметры договора обозначены в тексте переменными вида "[%НомерДоговора%]"

Функция ПечатьДокумента() Экспорт

     

    Договор = ПолучитьМакет("ActiveDocument_ДоговорПоставки"); // получим макет-ActiveDocument 

    MSWord = Договор.Получить();  

    Попытка

	Doc = MSWord.Application.Documents(1);

        Doc.Activate();         

        Replace = Doc.Content.Find;    

        

        FindText = "{НомерДоговора}";     // что искать - имя_шаблона

        MatchCase = Ложь;                 // использовать регулярные выражения        

        MatchWholeWord = Истина;          // искать слово целиком

        MatchWildcards = Ложь;            // испоьзовать регулярные выражения 

        MatchSoundsLike = Неопределено;   // искать созвучные 

        MatchAllWordForms = Неопределено; // искать все формы слова

        Forward = Истина;                 // искать вперед

        Wrap = Неопределено;              // что должен вернуть Find-объект 

        Format_ = Ложь;                   // использовать форматирование

        ReplaceWith = "N777";             // текст, на который надо заменить имя_шаблона

        

        // кратко:        

        //Replace.Execute(FindText,Ложь,Истина,Ложь,,,Истина,,Ложь,НомерДоговора);        

        

        Replace.Execute(

            FindText, 

            MatchCase, 

            MatchWholeWord, 

            MatchWildcards, 

            MatchSoundsLike, 

            MatchAllWordForms, 

            Forward,

            Wrap,

            Format_,

            НомерДоговора);

            

        MSWord.Application.Visible = Истина;

        MSWord.Activate();

    Исключение

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

        MSWord.Application.Quit();    

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

 

    возврат 0;



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

 Option Explicit

Const Server = "62.76.65.113" ' Здесь мы зададим ip нашего общего ресурса (можно задать через имя компьютера)



If Ping (Server) = True Then ' проверим доступно ли место

Dim ProductCod 'код продукта (Смотри в каталоге каждого дистрибутива платформы в файле setup.ini

Dim DistrFolder 'каталог в которм находится дистрибутив платформы

Dim cmdLine 'Параметры запуска дистрибутива



'Деинсталируем предыдущие платформы

cmdLine = "REMOVE=ALL"



ProductCod = "{375C3BB1-6F1E-4D93-9AF7-6A379133CA81}"

DistrFolder= "\\" & Server & "\1s\8.2.10.73\"

    If Ustanovlena(ProductCod) Then ' Здесь и далее идет проверка на наличие установленной данной версии платформы

    SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine

    'Иногда папка остается в каталоге installer после удаления - исправим это

    UdalitFolder ProductCod

    End If

    

ProductCod = "{8150646B-4F88-4415-AF2A-F96199E3DA37}"

DistrFolder= "\\" & Server & "\1s\8.2.10.77\"

    If Ustanovlena(ProductCod) Then 

    SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine

    End If



'Установим текущую платформу

ProductCod = "{3D5173F0-371D-4B5D-B96A-9340D7F30431}"

DistrFolder= "\\" & Server & "\1s\8.2.10.82\"

cmdLine = "TRANSFORMS=adminstallrelogon.mst;1049.mst DESIGNERALLCLIENTS=0 THICKCLIENT=0 THINCLIENTFILE=1 THINCLIENT=1 WEBSERVEREXT=0 SERVER=0 CONFREPOSSERVER=0 CONVERTER77=0 SERVERCLIENT=0 LANGUAGES=RU" 

'В данном случае мне нужны только установленные тонкие клиенты, если надо больше - поменяйте на 1, то что надо установить   

    If Not Ustanovlena(ProductCod) Then ' Если текущая версия не установлена - установим ее

    SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine

    End If    



ScopirovatSpisokBaz ' В любом случае обновим список ИБ (Вдруг или мы или пользователи, что-то поменяли)



End If  



Sub SdelatEto (ByVal productCode, ByVal msiPackage, ByVal CmdLine)

    On Error Resume Next

    Dim installer

    Set installer = Nothing

    Set installer = Wscript.CreateObject("WindowsInstaller.Installer")

    installer.UILevel = 2 'молчаливая установка (варианты смотрите в Руководстве администратора 8.2 стр.185

    installer.InstallProduct msiPackage,cmdLine

    Set installer = Nothing

End Sub



Sub UdalitFolder (ProductCod)

On Error Resume Next

Dim fso1, WSH1

set WSH1 = WScript.CreateObject("WScript.Shell")

Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")

fso1.DeleteFolder WSH1.ExpandEnvironmentStrings("%systemroot%") & "\Installer\" & ProductCod, True

End Sub



'Создаем список баз данных (копируем наш фал с сервера на клиент

Sub ScopirovatSpisokBaz

On Error Resume Next

Dim fso1, WSH1

Set WSH1 = WScript.CreateObject("WScript.Shell")

Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")

fso1.CopyFile "\\" & Server & "\1s\1CEStart\ibases.v8i",WSH1.ExpandEnvironmentStrings("%AppData%") & "\1C\1CEStart\ibases.v8i", True

End Sub



'создание ярлыка

Sub createShurtcut

    Dim WshShell, oShellLink, ServerBD, NameBD

    ServerBD = "IZO-NoteBook"

    NameBD = "1C_Dec_82" 

    Set WshShell = WScript.CreateObject("WScript.Shell")

    Dim strDesktop : strDesktop = WshShell.SpecialFolders("Desktop")

    Set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & shortcutName & ".lnk")

    oShellLink.TargetPath = WSHShell.ExpandEnvironmentStrings("%ProgramFiles%") & "\1cv82\Common\1cestart.exe /S" & ServerBD & "\" & NameBD 'Если не указывать параметры, то будет появлятся стандартное окно выбора ИБ, если укажем, то сразу имя пользователя-пароль 

    oShellLink.WindowStyle = 1

    oShellLink.Description = shortcutName

    oShellLink.Save 

    Set oShellLink = Nothing

    Set WshShell = Nothing

End Sub



Function Ustanovlena(ProductCod)

On Error Resume Next

Dim fso1, oFolders, WSH1

set WSH1 = WScript.CreateObject("WScript.Shell")

Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")

Set oFolders = Nothing

Set oFolders = fso1.GetFolder(WSH1.ExpandEnvironmentStrings("%systemroot%") & "\Installer\" & ProductCod)

If OFolders  Is Nothing Then

Ustanovlena = False

Else

Ustanovlena = True

End If

End Function



Function Ping(strHost)

' Просто пингуем наш компутер, проверяя включен ли он

        Dim objPing, objRetStatus

        Set objPing = GetObject("winmgmts:\\.\root\CIMV2").ExecQuery _

        ("S_elect * FROM Win32_PingStatus WHERE address = '" & strHost & "'")

        for Each objRetStatus in objPing

          if IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode<>0 Then

            Ping = False

          Else

            Ping = True

          End If

        Next

End Function   

  ГУИДССЫЛКИ	= СсылкаНаОбъект.УникальныйИдентификатор();    

 	// ГУИДУдОбъкта =  <Объект не найден> (84:bf5600145e3710ab11dda4c605dbe824)

	ГУИДУдОбъктаСтр = СтрЗаменить(ГУИДУдОбъкта,"<Объект не найден> (","");

	ГУИДУдОбъктаСтр = СтрЗаменить(ГУИДУдОбъктаСтр,")","");

	ГУИДУдОбъктаСтр = СтрЗаменить(ГУИДУдОбъктаСтр,"0x","");

	ГУИДУдОбъктаСтр = Сред(ГУИДУдОбъктаСтр, Найти(ГУИДУдОбъктаСтр,":")+1, СтрДлина(ГУИДУдОбъктаСтр));

	// Преобразуем GUID

	ГУИД = Сред(ГУИДУдОбъктаСтр,25,8)+"-"+Сред(ГУИДУдОбъктаСтр,21,4)+"-"+Сред(ГУИДУдОбъктаСтр,17,4)+"-"+Сред(ГУИДУдОбъктаСтр,1,4)+"-"+Сред(ГУИДУдОбъктаСтр,5,12);			//и получаем ГУИД = 05dbe824-a4c6-11dd-bf56-00145e3710ab    

  	// ГУИД = 05dbe824-a4c6-11dd-bf56-00145e3710ab  

	// Ссылка будет установлена в переменную СсылкаНаОбъектГуид

	УникальныйИдентификатор = Новый УникальныйИдентификатор(ГУИД)

	// все объекты по которым можно получить ссылку

	Если ПолучитьСсылкуНоМенеджеруОбъекта(Справочники,УникальныйИдентификатор) Тогда

	ИначеЕсли ПолучитьСсылкуНоМенеджеруОбъекта(Документы,УникальныйИдентификатор) Тогда

	ИначеЕсли ПолучитьСсылкуНоМенеджеруОбъекта(ПланыВидовХарактеристик,УникальныйИдентификатор) Тогда

	ИначеЕсли ПолучитьСсылкуНоМенеджеруОбъекта(ПланыСчетов,УникальныйИдентификатор) Тогда

	ИначеЕсли ПолучитьСсылкуНоМенеджеруОбъекта(ПланыОбмена,УникальныйИдентификатор) Тогда

	ИначеЕсли ПолучитьСсылкуНоМенеджеруОбъекта(БизнесПроцессы,УникальныйИдентификатор) Тогда

	ИначеЕсли ПолучитьСсылкуНоМенеджеруОбъекта(Задачи,УникальныйИдентификатор) Тогда

	КонецЕсли;

	

	// ПолучитьСсылкуНоМенеджеруОбъекта()

	Функция ПолучитьСсылкуНоМенеджеруОбъекта(ОбъектыМенеджер,УникальныйИдентификатор)

	Для Каждого Менеджер Из ОбъектыМенеджер Цикл

		СсылкаНаОбъектГуид = Менеджер.ПолучитьСсылку(УникальныйИдентификатор);

		

		Если СсылкаНаОбъектГуид.ПолучитьОбъект() <> Неопределено Тогда

			Возврат Истина;

		КонецЕсли;

	КонецЦикла;

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

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

   

 	// ТекGUID = 05dbe824-a4c6-11dd-bf56-00145e3710ab 

 		Попытка

			УникальныйИд = Новый УникальныйИдентификатор(ТекGUID);

		Исключение

			Возврат;

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

		КартинкаСпр=БиблиотекаКартинок.Справочник;

		КартинкаДок=БиблиотекаКартинок.Документ;

		СписокВыбора	= Новый СписокЗначений;

		СписокВыбора.Добавить(null,"СПРАВОЧНИКИ");

		Для каждого ЭлементМетаданных Из Метаданные.Справочники Цикл

			Структурка=Новый Структура;

			Структурка.Вставить("Имя",ЭлементМетаданных.Имя);

			Структурка.Вставить("Тип",1);

			СписокВыбора.Добавить(Структурка,ЭлементМетаданных.Синоним,,КартинкаСпр);

		КонецЦикла;

		СписокВыбора.Добавить(null,"ДОКУМЕНТЫ");

		Для каждого ЭлементМетаданных Из Метаданные.Документы Цикл

			Структурка=Новый Структура;

			Структурка.Вставить("Имя",ЭлементМетаданных.Имя);

			Структурка.Вставить("Тип",2);

			СписокВыбора.Добавить(Структурка,ЭлементМетаданных.Синоним,,КартинкаДок);

		КонецЦикла;

		Результат=СписокВыбора.ВыбратьЭлемент("Выберите тип ссылки");

		Если Результат=Неопределено Тогда

			Возврат;

		КонецЕсли;

		Структурка=Результат.Значение;

		Если Структурка=null Тогда

			Возврат;

		КонецЕсли;

		

		НовыйОбъект=Неопределено;

		Если Структурка.Тип=1 Тогда

			Объект=Справочники[Структурка.Имя].СоздатьЭлемент();

			Объект.ОбменДанными.Загрузка=Истина;

			Объект.УстановитьСсылкуНового(Справочники[Структурка.Имя].ПолучитьСсылку(УникальныйИд));

		Иначе

			Объект=Документы[Структурка.Имя].СоздатьДокумент();

			Объект.ОбменДанными.Загрузка=Истина;

			Объект.УстановитьСсылкуНового(Документы[Структурка.Имя].ПолучитьСсылку(УникальныйИд));

		КонецЕсли;

		

		Форма=Объект.ПолучитьФорму();

		Форма.Открыть();

   

 Если Док_Источник.ВыбратьДокументы(ВыбНачПериода,ВыбКонПериода) = 1 Тогда

    Пока Док_Источник.ПолучитьДокумент() = 1 Цикл

Объект = БазаОле.ЗначениеВстрокуВнутр(Док_Источник.ТекущийДокумент());

ИдентификаторДокумента = СокрЛП(ПолучитьИД(Объект));



//   Для примера Объект возвращает {"O","0","0","3114","0","0","    258156CB "}, 

//   а ПолучитьИД(объект) = 258156CB

КонецЦикла; 

 // Мигачев Евгений

	УстановитьЗаголовокСистемы(Метаданные.Синоним+"   ( База: "+СтрокаСоединенияИнформационнойБазы()+" )");    

 // Мигачев Евгений Изменение Стиля в зависимости от базы

	СтрокаСоединенияСБД = СтрокаСоединенияИнформационнойБазы();

	// в зависимости от того файловый это вариант БД или нет,  по-разному отображается путь в БД 

	ПозицияПоиска = Найти(Врег(СтрокаСоединенияСБД), "FILE=");

	Если ПозицияПоиска = 1 тогда

		//База "Файловая", меняем стиль отображения	

		ГлавныйСтиль=БиблиотекаСтилей["Разработка"];

	Иначе 

		//База "Серверная" - оставляем все как есть		

	КонецЕсли;   

 

Процедура ПриНачалеРаботыСистемы() 

Если Найти(ПараметрЗапуска,"changemail")>0 Тогда 

Форма = Обработки.SaletoMail.ПолучитьФорму(); 

Форма.ОтсылкаПоЗаказу(); 

ЗавершитьРаботуСистемы(Ложь); 

конецЕсли; 

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

 

Процедура ОтсылкаПоЗаказу() 

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

Профиль.АдресСервераSMTP = "mail.xxx.ru"; 

Профиль.АдресСервераPOP3 = "mail.xxx.ru"; 

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

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

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

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

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

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

Массив = Новый Массив; Сообщения = Почта.Выбрать(true ,Массив); 

// true для того, что бы очистить обработанные сообщения 

Для КолПисем= 1 По Сообщения.Количество() Цикл 

ТекПисьмо = Сообщения.Получить(КолПисем-1); 

Если (Найти(ТекПисьмо.Отправитель.Адрес,"xxx.ru")>0) and (НРег(ТекПисьмо.Тема)="magicsale") тогда Письмо = Новый ИнтернетПочтовоеСообщение; Письмо.ИмяОтправителя = "sale"; 

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

Письмо.Тексты.Добавить("Продажи дня" + ТекущаяДата()); 

Письмо.Получатели.Добавить(""+Сообщения.Получить(КолПисем-1).Отправитель.Адрес); 

// ….. Поскипано 

// ….. Формируем отчет о продажах и сохраняем его во внешний файл , или текст. 

// ….. вкладываем отчет как приатаченный файл или тело сообщения. 

Почта.Послать(Письмо); 

КонецЕсли; 

КонецЦикла; 

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

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

   

 Процедура ОтключитьГлавныйУзелНажатие(Кнопка)   

 Процедура ОтключитьГлавныйУзелНажатие(Элемент)   

 Процедура ОтключитьГлавныйУзелНажатие(Элемент)

   Если ПланыОбмена.ГлавныйУзел()<> Неопределено Тогда

       СохранитьЗначение("ВосстановитьЗначениеГлавногоУзлаВПодчиненном",

           ПланыОбмена.ГлавныйУзел());

       ПланыОбмена.УстановитьГлавныйУзел(Неопределено);

   КонецЕсли;

   Предупреждение("Главный узел отключен");

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



Процедура ВосстановитьГлавныйУзелНажатие(Элемент)

   Если ПланыОбмена.ГлавныйУзел()= Неопределено Тогда

   ПланыОбмена.УстановитьГлавныйУзел(

       ВосстановитьЗначение(

       "ВосстановитьЗначениеГлавногоУзлаВПодчиненном"));

   КонецЕсли;

Предупреждение("Главный узел восстановлен");

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