Процедура КнопкаВыполнитьНажатие(Кнопка)

ЭлементыФормы.ТекВремя.Заголовок = ТекущаяДата();

Батник = Новый ТекстовыйДокумент;

Батник.ДобавитьСтроку("echo off");

Батник.ДобавитьСтроку("w32tm /config /syncfromflags:manual /manualpeerlist:ntp.time.in.ua");

Батник.ДобавитьСтроку("w32tm /config /update");

Батник.ДобавитьСтроку("w32tm /resync > c:\res_set_time.txt");

Батник.Записать("c:\settime.bat",КодировкаТекста.OEM);



WshShell = Новый COMОбъект("WScript.Shell");

//WshExec = WshShell.Exec("c:\settime.bat");

СтрокаЗапуска = "c:\settime.bat";

WshShell.Run(СтрокаЗапуска,0,Истина);



Результат = Новый ТекстовыйДокумент;

Попытка

Результат.Прочитать("c:\res_set_time.txt",КодировкаТекста.OEM);

Исключение

Сообщить("Ошибка открытия файла!");

Возврат;

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

Рез = Результат.ПолучитьСтроку(2);

Сообщить(?(Найти(Рез,"успешно") > 0,"ОК!","Не удалось"));

Попытка

УдалитьФайлы("c:\settime.bat");

УдалитьФайлы("c:\res_set_time.txt");

Исключение

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

ЭлементыФормы.ТекВремя.Заголовок = ТекущаяДата();

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

 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   

 

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    

  // Передать файл по FTP

Процедура ПередатьПоFTP(ИмяФайла,ПутьФТП=Неопределено) Экспорт

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

        ТекПутьФТП = ПараметрыСеанса.FTPПуть;

    Иначе

        ТекПутьФТП = ПутьФТП;

    КонецЕсли;    

    

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

    Скрипт=Новый ТекстовыйДокумент;

    Скрипт.ДобавитьСтроку("open "+ПараметрыСеанса.FTP);

    Скрипт.ДобавитьСтроку("user");

    Скрипт.ДобавитьСтроку(ПараметрыСеанса.FTPЛогин);

    Скрипт.ДобавитьСтроку(ПараметрыСеанса.FTPПароль);

    Скрипт.ДобавитьСтроку("binary");

    

   //при необходимости входим в каталог, возможно, таких команд будет несколько

    Скрипт.ДобавитьСтроку("cd "+ТекПутьФТП);

    Скрипт.ДобавитьСтроку("put "+ПараметрыСеанса.ПутьКФайлуОбраза+"\"+ИмяФайла);

    Скрипт.ДобавитьСтроку("bye");

    

    //записываем скрипт на диск

    Файл = Новый Файл(ПараметрыСеанса.ПутьКФайлуОбраза+"\"+"ftp.txt");

    Скрипт.Записать(ПараметрыСеанса.ПутьКФайлуОбраза+"\"+"ftp.txt", "windows-1251");



    //а теперь запускаем его выполнение

    КомандаСистемы("ftp -n -s:"+ПараметрыСеанса.ПутьКФайлуОбраза+"\ftp.txt");

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



// Получить файл по FTP

Процедура ПолучитьПоFTP(ИмяФайла,ПутьФТП=Неопределено) Экспорт

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

        ТекПутьФТП = ПараметрыСеанса.FTPПуть;

    Иначе

        ТекПутьФТП = ПутьФТП;

    КонецЕсли;    

    

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

    Скрипт=Новый ТекстовыйДокумент;

    Скрипт.ДобавитьСтроку("open "+ПараметрыСеанса.FTP);

    Скрипт.ДобавитьСтроку("user");

    Скрипт.ДобавитьСтроку(ПараметрыСеанса.FTPЛогин);

    Скрипт.ДобавитьСтроку(ПараметрыСеанса.FTPПароль);

    Скрипт.ДобавитьСтроку("binary");



    //при необходимости входим в каталог, возможно, таких команд будет несколько

    Скрипт.ДобавитьСтроку("cd "+ТекПутьФТП);

    Скрипт.ДобавитьСтроку("get");

    Скрипт.ДобавитьСтроку(ИмяФайла);

    Скрипт.ДобавитьСтроку(ПараметрыСеанса.ПутьКФайлуОбраза+"\"+ИмяФайла);

    Скрипт.ДобавитьСтроку("bye");

 

   //записываем скрипт на диск

    Файл = Новый Файл(ПараметрыСеанса.ПутьКФайлуОбраза+"\"+"ftp.txt");

    Скрипт.Записать(ПараметрыСеанса.ПутьКФайлуОбраза+"\"+"ftp.txt", "windows-1251");



    //а теперь запускаем его выполнение

    КомандаСистемы("ftp -n -s:"+ПараметрыСеанса.ПутьКФайлуОбраза+"\ftp.txt");

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

 // Пример от 0xFFFFFF

// Может быть проблема в том, что 1С естественно не дожидается окончания перемещения файлов (movehere) 

// и пока копируются файлы, код продолжает выполняться далее.



Функция ОтправитьФайлыЧерезFTP()          

    //подключаемся, отправляем

    Попытка

        Шел=СоздатьОбъект("shell.application");

        ПапкаФТП=Шел.namespace("ftp://" +СокрЛП(ФТП_Пользователь)+ ":" +СокрЛП(ФТП_Пароль)+ "@" + СокрЛП(ФТП_УРЛ) + "/" +СокрЛП(ФТП_ПутьИсходящих));

         ПапкаИсточник=Шел.namespace(КаталогИсходящих);

        ПапкаЗагруженных = Шел.namespace(КаталогЗагруженных);

        Предупреждение("Подключение к FTP серверу...",1);    

        Темы=ПапкаИсточник.items();

        ПапкаЗагруженных.copyhere(Темы);

        //Темы.filter(64,"*.txt"); 

         ПапкаФТП.movehere(Темы);

    Исключение                  

        Предупреждение("Внимание! Не удалось передать файлы адресату через FTP! Возможно, параметры FTP заданы неверно, либо отсутствует связь.");

        Возврат 0;

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

    

    //проверяем

     ФС.УстТекКаталог(КаталогИсходящих);

    ПопытокПроверки = 3;

    Для Сч = 1 По ПопытокПроверки Цикл

        Если НЕ ((СокрЛП(ФС.НайтиПервыйФайл("*.*"))="") или (СокрЛП(ФС.НайтиПервыйФайл("*.*"))=".")) Тогда

            Если Сч = ПопытокПроверки Тогда

                Предупреждение("Внимание! Не удалось передать файлы адресату через FTP! Попробуйте совершить обмен позже.");

                Возврат 0;

            КонецЕсли;

            Предупреждение("Передача файлов....", 3);

        КонецЕсли;

    КонецЦикла;

    

    Возврат 1;

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



Функция ПолучитьФайлыЧерезFTP()          

    //подключаемся

     Попытка

        Шел=СоздатьОбъект("shell.application");

        ПапкаФТП=Шел.namespace("ftp://" +СокрЛП(ФТП_Пользователь)+ ":" +СокрЛП(ФТП_Пароль)+ "@" + СокрЛП(ФТП_УРЛ) + "/" +СокрЛП(ФТП_ПутьВходящих));

 

        ПапкаПриемник=Шел.namespace(КаталогВходящих);   

        ПапкаЗагруженных = Шел.namespace(КаталогЗагруженных);

        Предупреждение("Подключение к FTP серверу...",1);

        Темы=ПапкаФТП.items();

        ПапкаЗагруженных.copyhere(Темы);

        //Темы.filter(64,"*.txt");                             

         ПапкаПриемник.movehere(Темы);

    Исключение                  

        Предупреждение("Внимание! Не удалось получить файлы через FTP! Возможно, параметры FTP заданы неверно, либо отсутствует связь.");

        Возврат 0;

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

    

    //проверяем

    ПопытокПроверки = 3;

    Для Сч = 1 По ПопытокПроверки Цикл

        Если ПапкаФТП.items().count>0 Тогда

            Если Сч = ПопытокПроверки Тогда

                Предупреждение("Внимание! Не удалось получить файлы через FTP! Попробуйте совершить обмен позже.");

                Возврат 0;

            КонецЕсли;

            Предупреждение("Получение файлов....", 3);

        КонецЕсли;

    КонецЦикла;

    

    Возврат 1;             

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

  //БЛОК ВЫГРУЗКИ НА ФТП 

    ТекстВыгрузки.Записать(КаталогПользователя()+(ИмяПрайса+".csv"));

    ТекстВыгрузки = "";

    ТекстВыгрузки = СоздатьОбъект("Текст");

    ТекстВыгрузки.ДобавитьСтроку("open " + "192.168.0.1"); //адрес

    ТекстВыгрузки.ДобавитьСтроку("****"); //логин

    ТекстВыгрузки.ДобавитьСтроку("*****"); //пароль

    ТекстВыгрузки.ДобавитьСтроку("put " + КаталогПользователя() + (ИмяПрайса+".csv"));

    ТекстВыгрузки.ДобавитьСтроку("bye");

    ТекстВыгрузки.Записать(КаталогПользователя() + "ftp.txt");

    ТекстВыгрузки = "";

    

    КомандаСистемы("ftp -s:" + КаталогПользователя() + "Ftp.txt>> " + (КаталогПользователя() + "report.txt"));

    ФС.УдалитьФайл(КаталогПользователя() + "ftp.txt");

    

    ТекстВыгрузки = СоздатьОбъект("Текст");

    ТекстВыгрузки.Открыть(КаталогПользователя() + "report.txt");

    КС = ТекстВыгрузки.КоличествоСтрок()-4; //если все нормально - то в этой строке файла должно быть соотв.сообщение

 

   //проверим его 

    Попытка 

        строкаКомплете = ТекстВыгрузки.ПолучитьСтроку(КС);

        Если  Найти(Нрег(строкаКомплете),"226 transfer complete") = 0

        Тогда а=1; а=а/0;

        КонецЕсли;

        тПротокол = ТекущееВремя()+" файл данных успешно отправлен на сервер интернет-магазина"+РазделительСтрок+тПротокол;

        Форма.Обновить();

        ТекстВыгрузки = "";

        ФС.УдалитьФайл(КаталогПользователя() + (ИмяПрайса+".csv"));

        ФС.УдалитьФайл(КаталогПользователя() + "report.txt");

    Исключение

        тПротокол = ТекущееВремя()+" ПРОИЗОШЛА ОШИБКА ВО ВРЕМЯ ЗАГРУЗКИ СФОРМИРОВАННОГО ФАЙЛА НА СЕРВЕР ИНЕТРНЕТ-МАГАЗИНА"+РазделительСтрок+тПротокол;

        тПротокол = ТекущееВремя()+ИмяПрайса+РазделительСтрок+тПротокол;

        Форма.Обновить();

        ТекстВыгрузки.Показать();

        ТекстВыгрузки = "";

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

 ЭлементыФормы.Добавить(Тип("ПолеHTMLДокумента"), "Поле_HTML_Документа_acb123", Ложь);

Окно = ЭлементыФормы.Поле_HTML_Документа_acb123.Документ.ParentWindow;

Окно.ClipboardData.SetData("Text", ТекстПисьма);

ЭлементыФормы.Удалить(ЭлементыФормы.Индекс(ЭлементыФормы.Найти("Поле_HTML_Документа_acb123")));   

 ЭлементыФормы.Добавить(Тип("ПолеHTMLДокумента"), "Поле_HTML_Документа_acb123", Ложь);

Окно = ЭлементыФормы.Поле_HTML_Документа_acb123.Документ.ParentWindow;

СодержимоеБуфера = Окно.ClipboardData.GetData("Text");

ЭлементыФормы.Удалить(ЭлементыФормы.Индекс(ЭлементыФормы.Найти("Поле_HTML_Документа_acb123")));

ТекстПисьма = ТекстПисьма + СодержимоеБуфера;    

 

Функция ПолучитьТекстБуфераОбмена() Экспорт

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

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

    Возврат Объект.ParentWindow.ClipboardData.Getdata("Text");

#КонецЕсли

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

 

Функция УстановитьТекстВБуферОбмена(Текст) Экспорт

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

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

    Объект.ParentWindow.ClipboardData.Setdata("Text", Текст);

    Возврат Текст;

#КонецЕсли 

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

 Set objHTM = CreateObject("htmlfile");

Текст = "Помощь в 1С";

objHTM.ParentWindow.ClipboardData.Setdata("Text", Текст);

Текст = objHTM.ParentWindow.ClipboardData.GetData("text");

  // через SendKeys передаем Ctrl-C и Ctrl-V    

wsh=Новый COMОбъект("WScript.Shell");    

// Скопировать текст     

wsh.SendKeys("^c");      

// Вставить текст  

wsh.SendKeys("^v");   

  // через SendKeys передаем Ctrl-C и Ctrl-V    

wsh=СоздатьОбъект("WScript.Shell"); 

// Скопировать текст     

wsh.SendKeys("^c");  // или так:  wsh.SendKeys("^(C)");          

// Вставить текст  

wsh.SendKeys("^v");  // или так:  wsh.SendKeys("^(V)");  



//Объект Clipboard

WshExtra = СоздатьОбъект("WshExtra.Clipboard");  

// Скопировать текст   

WshExtra.Copy("Запись в буфер обмена")

// Вставить текст 

Текст = WshExtra.Paste(); 

 // функция сохраняет рабочую конфигурацию в файл, в случае успеха возвращает Истина

// параметры:

//    Логин - имя пользователя с правами на админисирирование БД

//    Пароль - строка пароля

//    ИмяФайла - полное имя файла для сохранения конфигурации, не обязательно. 

//               по умолчанию использует каталог временных файлов и имя 1Cv8.cf

функция СохранитьТекущуюКонфигурацию (Логин, Пароль, ИмяФайла="") экспорт

    результат = Ложь;

    

    Если ИмяФайла = "" Тогда

        ИмяФайла = КаталогВременныхФайлов() + "1Cv8.cf";        

    КонецЕсли;

    

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

    Если Лев(СтрокаБазы, 5) = "File=" Тогда

        // файловый вариант

        СтрокаБазы = Сред(СтрокаБазы, 6, СтрДлина(СтрокаБазы) - 6);

    Иначе

        // серверный вариант пока не готов...

                // может кто допишет?

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

    КонецЕсли;

    

    ВыбФайл = Новый Файл(ИмяФайла);

    Если ВыбФайл.Существует() Тогда

        Сигнатура = Строка(ВыбФайл.Размер()) + Строка(ВыбФайл.ПолучитьВремяИзменения()); 

    Иначе

        Сигнатура = "";

    КонецЕсли;

    

    СтрокаЗапуска = """" + КаталогПрограммы() + "1cv8.exe"" CONFIG /F " + СтрокаБазы 

                + ?(Логин = "", "", " /N " + Логин) 

                + ?(Пароль = "", "", " /P " + Пароль) + " /DumpDBCfg """ + ИмяФайла + """";

                

    //            

    // КомандаСистемы (СтрокаЗапуска); не работает!!!!! из-за кавычек в параметрах

    // приходиться  идти кругом...

    // зато можно избежать черного окошка

    //

    WshShell = Новый COMОбъект("WScript.Shell");

    WshShell.Run(СтрокаЗапуска, 0, Истина);

    

    ВыбФайл = Новый Файл(ИмяФайла);

    Если ВыбФайл.Существует() Тогда

        НоваяСигнатура = Строка(ВыбФайл.Размер()) + Строка(ВыбФайл.ПолучитьВремяИзменения());

        Если Сигнатура <> НоваяСигнатура Тогда

            Результат = Истина;

        КонецЕсли;            

    КонецЕсли;

    

    Возврат Результат;

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

 Функция  ЗаписатьКонфигурациюВФайл(ИмяФайла="")

    Результат = Ложь;

    ВыбФайл = Новый Файл(ИмяФайла);

    Если ВыбФайл.Существует() Тогда

        Если ВыбФайл.ЭтоКаталог() Тогда

            ИмяФайла="";

        КонецЕсли;

    КонецЕсли;

    

    Попытка

        Массив = ПользователиИнформационнойБазы.ПолучитьПользователей();

        Логин = "";

        Пароль = "";

        Если Массив.Количество() > 0 тогда

            Пользователь = ПользователиИнформационнойБазы.ТекущийПользователь();

            Логин = Пользователь.Имя;

            Если Пользователь.ПарольУстановлен Тогда

                // тут нужно получить пароль, лучше интерактивно

                 // но лично мне это совсем не нужно

                Предупреждение("У Вас установлен пароль, этот режим сейчас не доступен");

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

            КонецЕсли 

        КонецЕсли;

        

        Результат = СохранитьТекущуюКонфигурацию(Логин, Пароль, ИмяФайла);

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

            Предупреждение("Конфигурация не сохранена");

        Иначе

            Сообщить("Конфигурация успешно сохранена в файл: " + ИмяФайла);

        КонецЕсли;

        

    Исключение

        Предупреждение("У Вас не достаточно прав для сохранения конфигурации");

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

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

    

    Возврат Результат;

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

 Сервис=СоздатьОбъект("Сервис");

Сервис.РаскладкаКлавиатуры("Russian");

   Если (ЗагрузитьВнешнююКомпоненту("NetaTable.dll")=1) Тогда

    РовнаяТаблица=СоздатьОбъект("AddIn.NTable");

  Иначе

    Предупреждение("Внешняя компонента AddIn.NetaTable НЕ подключена!!!"+РазделительСтрок+"Работа программы невозможна!!!");

    СтатусВозврата(0);

    Возврат

  КонецЕсли;

Процедура ПриНачалеВыбораЗначения(ИдентЭлемента,ФлагОтбора)

  Если ИдентЭлемента = "Диагноз" Тогда

    РовнаяТаблица.УстановитьРаскладку(67699721);

  ИначеЕсли ИдентЭлемента = "ИсточникФинансирования" Тогда

    РовнаяТаблица.УстановитьРаскладку(68748313);

  КонецЕсли;

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

  //примеры Sserj

Процедура СменитьРаскладку(Реж)

    //Можно и просто через wrapper.dll

    //Wrapper = CreateObject("DynamicWrapper"); 

    //Wrapper.Register("USER32.DLL", "ActivateKeyboardLayout", "i=ll", "f=s", "r=l"); 

    //Wrapper.Register("USER32.DLL", "LoadKeyboardLayout", "i=sl", "f=s", "r=l"); 

    //rus = Wrapper.LoadKeyboardLayout("00000419", 0); 

    //eng = Wrapper.LoadKeyboardLayout("00000409", 0); 

    //Если Реж = "RUS" Тогда 

    //    Wrapper.ActivateKeyboardLayout(rus, 0); 

    //ИначеЕсли Реж = "EN" Тогда 

    //    Wrapper.ActivateKeyboardLayout(eng , 0); 

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

    Если Не (Константа.ВключатьНамЛоокВТелефонах = Истина) Тогда

        Возврат;

    КонецЕсли;

    wshShell=createObject("wScript.shell");

    Если Реж = "RUS" Тогда

        wshShell.SendKeys("^(8)",0);

    ИначеЕсли Реж = "EN" Тогда

        wshShell.SendKeys("^(9)",0);

    КонецЕсли;

КонецПроцедуры // СменитьРаскладку(Реж)



//ЕЩЕ



  //Обновляем хоткеи смены языков, для подмены в полях где нужна английская раскладка 

        текст = СоздатьОбъект("текст");

        текст.ДобавитьСтроку("Windows Registry Editor Version 5.00");

        текст.ДобавитьСтроку("");

        текст.ДобавитьСтроку("[HKEY_CURRENT_USER\Control Panel\Input Method\Hot Keys\00000100]");

        текст.ДобавитьСтроку("""Virtual Key""=hex:39,00,00,00");

        текст.ДобавитьСтроку("""Key Modifiers""=hex:02,c0,00,00");

        текст.ДобавитьСтроку("""Target IME""=hex:09,04,09,04");

        текст.ДобавитьСтроку("");

        текст.ДобавитьСтроку("[HKEY_CURRENT_USER\Control Panel\Input Method\Hot Keys\00000101]");

        текст.ДобавитьСтроку("""Virtual Key""=hex:38,00,00,00");

        текст.ДобавитьСтроку("""Key Modifiers""=hex:02,c0,00,00");

        текст.ДобавитьСтроку("""Target IME""=hex:19,04,19,04");

        ИмяФайла = КаталогИБ() + "LangHotKey.reg";

        Попытка

            текст.Записать(ИмяФайла);

            wshShell=createObject("wScript.shell");

            StrComand = "regedit /S " + СокрЛП(ИмяФайла);

            wshShell.Run(StrComand,1);

            //Задерживаемся, иначе скрипт не успевает прочитать файл 

            Для Сч=1 По 50000 Цикл

            КонецЦикла;

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

        Исключение

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

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

Shell.SendKeys("{ENTER}");   

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

// с заданным в качестве параметра необходимым таймаутом:

Предупреждение("Пауза!",60);

// или

Если Вопрос("Перепроведение?", РежимДиалогаВопрос.ОКОтмена, 60) = КодВозвратаДиалога.Отмена Тогда

   Возврат;

КонецЕсли;   

 // А если мы не хотим выводить пользователю ни каких сообщений

// Установим паузу в 5 минут, т.е. 300 секунд

сек = 300;

КонДата = ТекущаяДата() + сек;

  Пока ТекущаяДата() < КонДата Цикл

      // ждемссс....

  КонецЦикла;

   

 Процедура глПауза(Сек)

scr = Новый COMОбъект("WScript.Shell");

scr.Run("sleep "+СокрЛП(Число(Сек)),0,1);

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

 Процедура глПауза(Сек)

    scr = СоздатьОбъект("WScript.Shell");

    scr.Run("sleep "+СокрЛП(Число(Сек)),0,1);

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

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

РабочийСтол =  Shell.SpecialFolders("Desktop");

Ярлык = Shell.CreateShortcut(РабочийСтол + "\\Regedit.lnk");

Ярлык.TargetPath = Shell.ExpandEnvironmentStrings("%windir%\\regedit.exe");

Ярлык.WorkingDirectory = Shell.ExpandEnvironmentStrings("%windir%");

Ярлык.WindowStyle = 1;

Ярлык.IconLocation = Shell.ExpandEnvironmentStrings("%windir%\\regedit.exe, 0");

Ярлык.Save();   

  Shell = СоздатьОбъект("WScript.Shell");

РабочийСтол = Shell.SpecialFolders("Desktop");

Ярлык = Shell.CreateShortcut(РабочийСтол + "\\Regedit.lnk");

Ярлык.TargetPath = Shell.ExpandEnvironmentStrings("%windir%\\regedit.exe");

Ярлык.WorkingDirectory = Shell.ExpandEnvironmentStrings("%windir%");

Ярлык.WindowStyle = 1;

Ярлык.IconLocation = Shell.ExpandEnvironmentStrings("%windir%\\regedit.exe, 0");

Ярлык.Save(); 

 //Emigachev Проверим дату на компе

	Если ТекущаяДата()<Дата(2009,1,1) Тогда 

		Предупреждение("Установите правильную дату!");

		//Открыть диалог установки Даты и Времени

		ЗапуститьПриложение("rundll32 shell32,Control_RunDLL timedate.cpl");

	КонецЕсли;   

 

Процедура Сформировать(ДискДляЗаписи="E:\",АвтоИзвлечениеСД=0,АвтоЗакрытиеМастера=1)

    Перем Имя,Каталог;

    scr=СоздатьОбъект("MSScriptControl.ScriptControl");

    scr.language="javascript";

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

    scr.AddObject("Shell",shell);

    ИмяСлужбы="ImapiService";

    Если Shell.CanStartStopService(ИмяСлужбы)=0 Тогда

        Предупреждение("Вам недозволено записывать диски СД!",5);

        Возврат;

    КонецЕсли;

    scr.Eval("Shell.ServiceStart('"+ИмяСлужбы+"',true)");

    РасположениеФайла(Каталог,Имя);

    Если ФС.ВыбратьФайл(0,Имя,Каталог,"Выбирите файл для записи","Все файлы|*.*","*")=0 Тогда

        Возврат;

    КонецЕсли;

    fso=СоздатьОбъект("Scripting.FileSystemObject");

    wshshell=СоздатьОбъект("WScript.Shell");

    КаталогДляЗаписи=wshshell.regread("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\CD Burning");

    fso.CopyFile(Каталог+Имя,КаталогДляЗаписи+"\"+Имя,-1);

    ДискДляЗаписиNS=shell.NameSpace(ДискДляЗаписи);

    wshshell.regwrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\CD Burning\Auto Eject",АвтоИзвлечениеСД,"REG_DWORD");

    wshshell.regwrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\CD Burning\Auto Close",АвтоЗакрытиеМастера,"REG_DWORD");

    scr.AddObject("Verbs",ДискДляЗаписиNS.items().item().verbs());

    e=scr.Eval("new Enumerator(Verbs)");

    Пока e.atEnd(0)=0 Цикл

        Если Найти(Нрег(e.item(0).name),"записать файлы на компакт-диск")>0 Тогда

            e.item(0).doit();

            Пока wshshell.appactivate("Мастер записи компакт-дисков")=0 Цикл

            КонецЦикла;

            wshshell.sendkeys("{ENTER}")

        КонецЕсли;

        e.moveNext(0);

    КонецЦикла;

    Пока wshshell.appactivate("Мастер записи компакт-дисков")=-1 Цикл

        ВвестиСтроку("","Пауза",1,0,1);

    КонецЦикла;

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

 

"C:\Program Files\Ahead\Nero\NeroCmd.exe" --no_user_interaction --write --real --iso Archive_1C --drivename M --force_erase_cdrw --dvd --dvd_high_compatibility --close_session --verify E:\Full_Archive_1C\*.* >H:\BackUp\Log\write.log

   

 

'Скрипт демонстрирует возможность принудительного завершения процессов 1С

'на всех компьютерахуказанного домена. Данный код можно применять непосредственно перед пакетным запуском 1С:Предприятия,

'требующим монопольного входа в базу данных (например, при резервном копировании).



'ВНИМАНИЕ! Задайте нужное значение переменной "DomainName"!



'ВНИМАНИЕ! Для успешной работы скрипта его желательно запускать с правами администратора домена.



'ВНИМАНИЕ! Чтобы опробовать скрипт, не производя деструктивных действий, достаточно закомментировать

'оператор "Proc.Terminate".



Option Explicit

On Error Resume Next



Dim DomainName 'Имя домена

DomainName = "MYDOMAIN"



Dim StrResult 'строка результата работы всей программы

StrResult = StrResult & CStr(Now) & " начало работы скрипта" & VbCrLf



Dim ADSI

Set ADSI = GetObject("WinNT://" & DomainName)

ADSI.Filter = Array("computer")



Dim Comp 'компьютер

Dim WMI 'объект WMI

Dim Proc 'процесс



Dim CurrName 'имя текущего компьютера

CurrName = GetNameComp()



'Цикл по компьютерам домена

For Each Comp In ADSI

    If Comp.Name <> CurrName Then

        Set WMI = GetObject("winmgmts:{ImpersonationLevel=Impersonate}!\\" & Trim(Comp.Name) & "\Root\CIMV2")

        If Err.Number=0 Then

            'Цикл по процессам компьютера

            For Each Proc In WMI.ExecQuery("S_elect * FROM Win32_Process WHERE Name = '1cv7s.exe'")

                StrResult = StrResult & _

                            CStr(Now) & " Computer=" & Comp.Name & " PID=" & Proc.ProcessId & _

                            VbCrLf

                'Завершение процесса

                Proc.Terminate

            Next 'Цикл по процессам компьютера

        Else 'Не удалось соединиться с компьютером

            If Err.Number <> 462 Then 'The remote server machine does not exist or is unavailable

                StrResult = StrResult & _

                  	        "    " & CStr(Now) & " Computer=" & Comp.Name & " ERROR " & Err.Number & _

                      	    VbCrLf

            End If

        End If

        Err.Clear

    End If

Next 'Цикл по компьютерам домена



StrResult = StrResult & CStr(Now) & " конец работы скрипта" & VbCrLf



'Отображение результата

ShowInNotepad("Процессы 1cv7s.exe:" & VbCrLf & VbCrLf & StrResult)

'==========================================================================

'Процедура отображает переданную строку в блокноте

Sub ShowInNotepad(StrToFile)

    Dim FSO 'Объект файловой системы Scripting.FileSystemObject

    Dim TempPath 'Путь к временному файлу

    Dim TxtFile 'Поток текстового файла

    

    Set FSO = CreateObject("Scripting.FileSystemObject")

    TempPath = GetTempPath() & "\" & FSO.GetTempName

    Set TxtFile = FSO.CreateTextFile(TempPath)

    TxtFile.WriteLine(StrToFile)

    TxtFile.Close

    CreateObject("WScript.Shell").Run "notepad.exe " & TempPath

    WScript.Sleep 1000

    FSO.DeleteFile TempPath

End Sub 'ShowInNotepad

'==========================================================================

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

Function GetTempPath()

    GetTempPath = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%TEMP%")

End Function 'GetTempPath

'==========================================================================

'Функция возвращает имя текущего компьютера

Function GetNameComp()

    GetNameComp = CreateObject("WScript.Network").ComputerName

End Function 'GetNameComp    

 

Dim WshShell, ObjFSO 

Set WshShell = CreateObject("WScript.Shell")  

set objFSO = CreateObject("Scripting.FileSystemObject")  

 

appl="C:\1Cv7\BINOP\1CV7s.exe"  

users="DomenKompanii\emigachev"  

Set objWMIService = GetObject _  

      ("winmgmts:\\.\root\cimv2:Win32_Process")  

      errReturn = objWMIService.Create _  

("cmd.exe /K ""title RUNAS_AUTO & runas.exe /user:" & users & " """ & appl  & """""", Null, Null, intProcessID)  

wscript.Sleep(1000)  

wshShell.AppActivate "RUNAS_AUTO"

function WriteWord() 

WshShell.SendKeys "P@ssw0rd"

end function

wscript.Sleep(1000)  

wshShell.SendKeys "{ENTER}"    

 

Set WshShell = CreateObject("Wscript.Shell")

Set WshEnv = WshShell.Environment("PRocess")

WshShell.Run "runas.exe /user:DomenKompanii\emigachev C:\WD\1Cv7\BINOP\1CV7s.exe" 

Wscript.Sleep 800

WshShell.AppActivate WshEnv("SystemRoot") & "\system32\runas.exe"

Wscript.Sleep 200

WshShell.SendKeys "P@ssw0rd"

Wscript.Sleep 500    

 // заполним список пользователей 

    FSO=createobject("Scripting.FileSystemObject");

    WshShell = CreateObject("WScript.Shell");

    Txt=FSO.OpenTextFile(КаталогИБ()+"usrdef\users.usr");

    LineUser="";

    ChI=0;

    Пока Txt.AtEndOfStream=0 Цикл

        Chi=Chi+1;

        Buf=Txt.Read(1);

        Если КодСимв(Buf)>31 Тогда

            LineUser=LineUser+Buf;

        КонецЕсли;

    КонецЦикла;

    LineBof="{"+chr(34)+"Container.Contents"+chr(34)+",";

    LineUser=Сред(LineUser,Найти(LineUser,LineBof)+23);

    LineUser=Сред(LineUser,1,Найти(LineUser,"}}"));

    //Сп=СоздатьОбъект("СписокЗначений"); 

    LineUser=СтрЗаменить(LineUser,РазделительСтрок," ");

    LineUser=СтрЗаменить(LineUser,"},{",РазделительСтрок);

    Для к=1 По СтрКоличествоСтрок(LineUser) Цикл

        а=СтрЗаменить(СтрПолучитьСтроку(LineUser,к),Симв(34),"");

        а=СтрЗаменить(СтрПолучитьСтроку(LineUser,к),"}","");

        а=Сред(а,19);

        а=Сред(а,Найти(а,",")+1);

        а=Сред(а,1,Найти(а,",")-1);  

        а=СтрЗаменить(а,"""",""); // уберем кавычки 

        списПользователи.Установить(а,а);

    КонецЦикла;     

    списПользователи.ТекущаяСтрока(1);

    // Список Пользователей заполнен