//Сообщить путь к обработке

Сообщить(ЭтотОбъект.ИспользуемоеИмяФайла);   

 РасположениеФайла(<Путь>,<Имя>)

  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(); 

 Перем ИмяПути,ИмяФайла;     

Перем xmlParser;



//пример чтения xml файла.

Функция УстановитьКомпоненту()

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

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

   Сообщить("Не удалось обнаружить компоненту V7Plus.dll!"); 

   Возврат 0;

  КонецЕсли;

 КонецЕсли;

 Попытка

  xmlParser = СоздатьОбъект("Addin.XmlParser") ;

 Исключение 

  Сообщить("Не удалось создать объект Addin.XmlParser!");

  Возврат 0;

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

 Возврат 1;

КонецФункции  // УстановитьКомпоненту



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

  стрИмяФайла=ИмяПути+ИмяФайла;  

  таб=СоздатьОбъект("ТаблицаЗначений");

  таб.НоваяКолонка("Ф","Строка",50,0);

  таб.НоваяКолонка("И","Строка",50,0);

  таб.НоваяКолонка("О","Строка",50,0);

  таб.НоваяКолонка("ДатаР","Дата");

  таб.НоваяКолонка("_01","Число",16,2);

  таб.НоваяКолонка("_02","Число",16,2);

  таб.НоваяКолонка("_03","Число",16,2);

  таб.НоваяКолонка("_04","Число",16,2);

  таб.НоваяКолонка("_05","Число",16,2);

  таб.НоваяКолонка("_06","Число",16,2);

  таб.НоваяКолонка("_07","Число",16,2);

  таб.НоваяКолонка("_08","Число",16,2);

  таб.НоваяКолонка("_09","Число",16,2);

  таб.НоваяКолонка("_10","Число",16,2);

  таб.НоваяКолонка("_11","Число",16,2);

  таб.НоваяКолонка("_12","Число",16,2);

  таб.НоваяКолонка("СумГод","Число",18,2);

  таб.НоваяКолонка("ОблГод","Число",18,2);

  таб.НоваяКолонка("УдерГод","Число",18,2);

  таб.НоваяКолонка("Индекс","Строка",6,0);

  таб.НоваяКолонка("Регион","Строка",2,0);

  таб.НоваяКолонка("Город","Строка",20,0);

  таб.НоваяКолонка("Улица","Строка",20,0);

  таб.НоваяКолонка("Дом","Строка",5,0);

  таб.НоваяКолонка("Корпус","Строка",5,0);

  таб.НоваяКолонка("Квартира","Строка",5,0);

  Документ=xmlParser.СоздатьДокумент();  

  Документ.Загрузить(стрИмяФайла);   

   Данные=Документ.ПолучитьПодчиненныйПоНомеру(2);

   Для Сч=1 По Данные.КоличествоПодчиненных() Цикл 

    таб.НоваяСтрока();

    Элем=Данные.ПолучитьПодчиненныйПоНомеру(Сч); 

    УзелПолучДох=Элем.ВыбратьУзлы("ПолучДох");  

    Для Сч3=0 По УзелПолучДох.КоличествоУзлов-1 Цикл 

   //  Сообщить(УзелПолучДох.ПолучитьУзел(Сч3).ПредставлениеXML); 

   //  Сообщить(УзелПолучДох.ПолучитьУзел(Сч3).КоличествоПодчиненных()); 

     ФИО=УзелПолучДох.ПолучитьУзел(Сч3).ПолучитьПодчиненныйПоНомеру(1);

     таб.Ф=ФИО.ПолучитьПодчиненныйПоНомеру(1).Текст;

     таб.И=ФИО.ПолучитьПодчиненныйПоНомеру(2).Текст;

     таб.О=ФИО.ПолучитьПодчиненныйПоНомеру(3).Текст;

     таб.ДатаР=УзелПолучДох.ПолучитьУзел(Сч3).ПолучитьПодчиненныйПоНомеру(3).Значение;

     адр=УзелПолучДох.ПолучитьУзел(Сч3).ПолучитьПодчиненныйПоНомеру(6);

     Для Сч4=1 По адр.КоличествоПодчиненных() Цикл     

      Если адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Индекс" Тогда

	таб.Индекс=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст;

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="КодРегион" Тогда

       таб.Регион=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст;

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Город" Тогда

       таб.Город=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Улица" Тогда

       таб.Улица=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Дом" Тогда

       таб.Дом=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Корпус" Тогда

       таб.Корпус=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Кварт" Тогда

       таб.Квартира=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 

      Иначе

      	/////// 

      КонецЕсли;

     КонецЦикла;

    КонецЦикла;  

    УзелСвДохСтав=Элем.ВыбратьУзлы("СвДохСтав");  

    Для Сч3=0 По УзелСвДохСтав.КоличествоУзлов-1 Цикл     

     //ел=УзелСвДохСтав.ПолучитьУзел(Сч3);

	УзелДохВыч=УзелСвДохСтав.ПолучитьУзел(Сч3).ВыбратьУзлы("ДохВыч");

     Для Сч4=0 По УзелДохВыч.КоличествоУзлов-1 Цикл     

         МесДоход=УзелДохВыч.ПолучитьУзел(Сч4); 

         ИмяМес="";

      СумМес=0;

      Если МесДоход.ПолучитьПодчиненныйПоНомеру(1).Наименование="НомМес" Тогда

           ИмяМес=МесДоход.ПолучитьПодчиненныйПоНомеру(1).Текст;

      КонецЕсли;  

      Если МесДоход.ПолучитьПодчиненныйПоНомеру(3).Наименование="СумДоход" Тогда

           СумМес=МесДоход.ПолучитьПодчиненныйПоНомеру(3).Значение;

      КонецЕсли;  

      Если ПустоеЗначение(ИмяМес)=0 Тогда

       Если ИмяМес="01" Тогда

        таб._01=СумМес;  

       ИначеЕсли ИмяМес="02" Тогда

        таб._02=СумМес;    

       ИначеЕсли ИмяМес="03" Тогда

        таб._03=СумМес;    

       ИначеЕсли ИмяМес="04" Тогда

        таб._04=СумМес;    

       ИначеЕсли ИмяМес="05" Тогда

        таб._05=СумМес;    

       ИначеЕсли ИмяМес="06" Тогда

        таб._06=СумМес;    

       ИначеЕсли ИмяМес="07" Тогда

        таб._07=СумМес;    

       ИначеЕсли ИмяМес="08" Тогда

        таб._08=СумМес;    

       ИначеЕсли ИмяМес="09" Тогда

        таб._09=СумМес;    

       ИначеЕсли ИмяМес="10" Тогда

        таб._10=СумМес;    

       ИначеЕсли ИмяМес="11" Тогда

        таб._11=СумМес;    

       ИначеЕсли ИмяМес="12" Тогда

        таб._12=СумМес;    

       КонецЕсли;

      КонецЕсли;

     КонецЦикла;   

     

УзелНалПер=УзелСвДохСтав.ПолучитьУзел(Сч3).ВыбратьУзлы("СГДНалПер");

НалПер=УзелНалПер.ПолучитьУзел(0);

Если НалПер.Наименование="СГДНалПер" Тогда

      таб.СумГод=НалПер.ПолучитьПодчиненныйПоНомеру(1).Значение;

      таб.ОблГод=НалПер.ПолучитьПодчиненныйПоНомеру(2).Значение;

      таб.УдерГод=НалПер.ПолучитьПодчиненныйПоНомеру(3).Значение;

 КонецЕсли;  

    //тут еще берем данные

 КонецЦикла;  

 Состояние(Сч);

КонецЦикла;          

   Т=СоздатьОбъект("Таблица");

   Т.ИсходнаяТаблица("Таблица");

   таб.выбратьСтроки();          

   Т.ВывестиСекцию("Шапка");    

   нпп=1;

   Пока таб.ПолучитьСтроку()=1 Цикл

    Т.ВывестиСекцию("Текст");    

    нпп=нпп+1;

   КонецЦикла;     

   Т.ТолькоПросмотр(1);

      Т.Опции(0, 0, 1, 0);

  // Т.ОбластьПечати(2);

   Т.ПараметрыСтраницы(2,,,5,5,5,5,,, 1);

   Т.Показать("Прочитали из XML");   

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



Процедура Выбрать()

 ФС.ВыбратьФайл(0,ИмяФайла,ИмяПути,"Выберите файл","xml файлы (*.xml) |*.xml|Все файлы (*.*) |*.*","xml", );

 Если ПустоеЗначение(ИмяФайла)=0 Тогда

   PathSbitn=ИмяПути+ИмяФайла;

 КонецЕсли;

КонецПроцедуры //Выбрать       



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

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

 ИмяПути = "P:";     

 res=УстановитьКомпоненту();  

// Сообщить(res);

КонецПроцедуры //ПриОткрытии

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

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

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

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

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

	КонецЕсли;   

 

'Скрипт демонстрирует возможность принудительного завершения процессов 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    

 

Функция ПолучимСписокБаз1СИзФайла(Версия)

	// Функция получения списка баз 1С 8.0 8.1 8.2 E_Migachev

	// Возвращает Таблицу Значений содержащую Название, СтрокаСоединения с базами 1С

	

	// Для начала получим программным путем полный путь к папке Application Data 

	// Способ из https://helpf.pro/faq/view/271.html

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

	AppData=App.Namespace(26).Self.Path;

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

	ТЗБаз.Колонки.Добавить("Название",,"Название",25);

	ТЗБаз.Колонки.Добавить("СтрокаСоединения",,"СтрокаСоединения",30);

	Если Версия = "v80" Тогда		

		СписокБаз=AppData+"\1C\1Cv8\v8ib.lst";

	ИначеЕсли Версия = "v81" Тогда

		СписокБаз=AppData+"\1C\1Cv81\ibases.v8i";

	ИначеЕсли Версия = "v82" Тогда

		СписокБаз=AppData+"\1C\1CEStart\ibases.v8i";

	КонецЕсли;

	Сообщить("Файл со списком баз: "+Строка(СписокБаз));

	//Открываем файл в кодировке UTF8

	ФайлБаз= Новый ЧтениеТекста;

	ФайлБаз.Открыть(СписокБаз, КодировкаТекста.UTF8);

	Стр = ФайлБаз.ПрочитатьСтроку();

	Пока НЕ Стр = Неопределено Цикл

		Если СтрДлина(СокрЛП(Стр)) Тогда

			ТекущаяСтрока = СокрЛП(Стр);

			

			Если Лев(ТекущаяСтрока, 1) = "[" Тогда

				НоваяСтрока = ТЗБаз.Добавить();

				НоваяСтрока.Название = ТекущаяСтрока;

			КонецЕсли;

			

			Если Лев(ТекущаяСтрока, 8) = "Connect=" Тогда

				Попытка					

					НоваяСтрока.СтрокаСоединения = Прав(ТекущаяСтрока, СтрДлина(ТекущаяСтрока)-8);

				Исключение

					// Это группа

					НоваяСтрока.СтрокаСоединения = "";

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

			КонецЕсли;     						

		КонецЕсли;

		Стр = ФайлБаз.ПрочитатьСтроку();

	КонецЦикла;

	//Удалим из ТЗ строки с пустой Строкой Соединения, т.к это группы, а они нам не нужны

	ПустыеСтроки = ТЗБаз.НайтиСтроки(Новый Структура("СтрокаСоединения",));

	Для каждого СтрокаТаблицы Из ПустыеСтроки Цикл

		ТЗБаз.Удалить(СтрокаТаблицы)

	КонецЦикла;

	Возврат ТЗБаз;

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



Процедура ПолучимИзФайла(Кнопка)

	ТЗБаз = ПолучимСписокБаз1СИзФайла(Кнопка.Имя);

	//Выведем список баз из ТЗ в табличное поле

	Список=ТЗБаз;

	ЭлементыФормы.Список.СоздатьКолонки();

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

   

 

//Возвращает что-то типо: C:\Documents and Settings\E.S.Migachev\Мои документы\

Функция КаталогМоиДокументы() Экспорт

	

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

	Folder = App.Namespace(5);

	Результат = "";

	Попытка

		Результат = Folder.Self.Path;

	Исключение

		Результат = "";

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

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

		Результат = КаталогВременныхФайлов();

	КонецЕсли; 

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

	

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

   

 

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

// Дополнительные данные получаем так:

// Название - App.Namespace(26).Title

// Путь -  App.Namespace(26).Self.Path



//Список доступных каталогов

App.Namespace(1) //  Internet Explorer   пример - ::{871C5380-42A0-1069-A2EA-08002B30309D}

App.Namespace(2) //  Программы   пример - C:\Documents and Settings\E.S.Migachev\Главное меню\Программы

App.Namespace(3) //  Панель управления   пример - ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}

App.Namespace(4) //  Принтеры и факсы   пример - ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}\::{2227A280-3AEA-1069-A2DE-08002B30309D}

App.Namespace(5) //  Мои документы   пример - C:\Documents and Settings\E.S.Migachev\Мои документы

App.Namespace(6) //  Избранное   пример - C:\Documents and Settings\E.S.Migachev\Избранное

App.Namespace(7) //  Автозагрузка   пример - C:\Documents and Settings\E.S.Migachev\Главное меню\Программы\Автозагрузка

App.Namespace(8) //  Недавние документы   пример - C:\Documents and Settings\E.S.Migachev\Recent

App.Namespace(9) //  SendTo   пример - C:\Documents and Settings\E.S.Migachev\SendTo

App.Namespace(10) //  Корзина   пример - ::{645FF040-5081-101B-9F08-00AA002F954E}

App.Namespace(11) //  Главное меню   пример - C:\Documents and Settings\E.S.Migachev\Главное меню

App.Namespace(13) //  Моя музыка   пример - C:\Documents and Settings\E.S.Migachev\Мои документы\Моя музыка

App.Namespace(14) //  Мои видеозаписи   пример - C:\Documents and Settings\E.S.Migachev\Мои документы\Мои видеозаписи

App.Namespace(16) //  Рабочий стол   пример - C:\Documents and Settings\E.S.Migachev\Рабочий стол

App.Namespace(17) //  Мой компьютер   пример - ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}

App.Namespace(18) //  Сетевое окружение   пример - ::{208D2C60-3AEA-1069-A2D7-08002B30309D}

App.Namespace(19) //  NetHood   пример - C:\Documents and Settings\E.S.Migachev\NetHood

App.Namespace(20) //  Fonts   пример - C:\WINDOWS\Fonts

App.Namespace(21) //  Шаблоны   пример - C:\Documents and Settings\E.S.Migachev\Шаблоны

App.Namespace(22) //  Главное меню   пример - C:\Documents and Settings\All Users\Главное меню

App.Namespace(23) //  Программы   пример - C:\Documents and Settings\All Users\Главное меню\Программы

App.Namespace(24) //  Автозагрузка   пример - C:\Documents and Settings\All Users\Главное меню\Программы\Автозагрузка

App.Namespace(25) //  Рабочий стол   пример - C:\Documents and Settings\All Users\Рабочий стол

App.Namespace(26) //  Application Data   пример - C:\Documents and Settings\E.S.Migachev\Application Data

App.Namespace(27) //  PrintHood   пример - C:\Documents and Settings\E.S.Migachev\PrintHood

App.Namespace(28) //  Application Data   пример - C:\Documents and Settings\E.S.Migachev\Local Settings\Application Data

App.Namespace(31) //  Избранное   пример - C:\Documents and Settings\All Users\Избранное

App.Namespace(32) //  Temporary Internet Files   пример - C:\Documents and Settings\E.S.Migachev\Local Settings\Temporary Internet Files

App.Namespace(33) //  Cookies   пример - C:\Documents and Settings\E.S.Migachev\Cookies

App.Namespace(34) //  History   пример - C:\Documents and Settings\E.S.Migachev\Local Settings\History

App.Namespace(35) //  Application Data   пример - C:\Documents and Settings\All Users\Application Data

App.Namespace(36) //  WINDOWS   пример - C:\WINDOWS

App.Namespace(37) //  system32   пример - C:\WINDOWS\system32

App.Namespace(38) //  Program Files   пример - C:\Program Files

App.Namespace(39) //  Мои рисунки   пример - C:\Documents and Settings\E.S.Migachev\Мои документы\Мои рисунки

App.Namespace(40) //  E.S.Migachev   пример - C:\Documents and Settings\E.S.Migachev

App.Namespace(41) //  system32   пример - C:\WINDOWS\system32

App.Namespace(43) //  Common Files   пример - C:\Program Files\Common Files

App.Namespace(45) //  Шаблоны   пример - C:\Documents and Settings\All Users\Шаблоны

App.Namespace(47) //  Администрирование   пример - C:\Documents and Settings\All Users\Главное меню\Программы\Администрирование

App.Namespace(48) //  Администрирование   пример - C:\Documents and Settings\E.S.Migachev\Главное меню\Программы\Администрирование

App.Namespace(49) //  Сетевые подключения   пример - ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}\::{7007ACC7-3202-11D1-AAD2-00805FC1270E}

App.Namespace(53) //  Музыка (общая)   пример - C:\Documents and Settings\All Users\Документы\Моя музыка

App.Namespace(54) //  Рисунки (общие)   пример - C:\Documents and Settings\All Users\Документы\Мои рисунки

App.Namespace(55) //  Видео (общее)   пример - C:\Documents and Settings\All Users\Документы\Мои видеозаписи

App.Namespace(56) //  Resources   пример - C:\WINDOWS\Resources

App.Namespace(57) //  0419   пример - C:\WINDOWS\Resources\0419

App.Namespace(59) //  CD Burning   пример - C:\Documents and Settings\E.S.Migachev\Local Settings\Application Data\Microsoft\CD Burning    

 

	ВозможныеИменаФайлаШрифтаEANGNIVC = Новый Массив;

	ВозможныеИменаФайлаШрифтаEANGNIVC.Добавить("EANGNIVC.TTF");

	ВозможныеИменаФайлаШрифтаEANGNIVC.Добавить("EANG000.TTF");

	Попытка

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

		objFolder = objShell.Namespace(20);

		ПутьККаталогуШрифтов = objFolder.Items().Item().Path;

		Если Прав(ПутьККаталогуШрифтов, 1) <> "\" Тогда

			ПутьККаталогуШрифтов = ПутьККаталогуШрифтов + "\";

		КонецЕсли;

		ФайлШрифтаСуществует = Ложь;

		Для Каждого ВозможноеИмяФайлаШрифта Из ВозможныеИменаФайлаШрифтаEANGNIVC Цикл

			ОбъектФайлШрифтаВКаталогеШрифтов = Новый Файл(ПутьККаталогуШрифтов + ВозможноеИмяФайлаШрифта);

			Если ОбъектФайлШрифтаВКаталогеШрифтов.Существует() Тогда

				ФайлШрифтаСуществует = Истина;

				Прервать;

			КонецЕсли;

		КонецЦикла;

		Если НЕ ФайлШрифтаСуществует Тогда

			ВремКаталог = КаталогВременныхФайлов() + Строка(Новый УникальныйИдентификатор) + "\";

			СоздатьКаталог(ВремКаталог);

			ВремФайлШрифта = ВремКаталог + ВозможныеИменаФайлаШрифтаEANGNIVC[0];

			Обработки.ОбщиеОбъектыРегламентированнойОтчетности.ПолучитьМакет("EANGNIVC").Записать(ВремФайлШрифта);

			objFolder.CopyHere(ВремФайлШрифта);

			УдалитьФайлы(ВремКаталог);

		КонецЕсли;

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

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

	Исключение

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

 // Процедура получает из реестра список зарегистрированных ИБ 7.7

Процедура ПолучитьСписокИБ() 

	Попытка

		ScrptCtrl=Новый COMObject("MSScriptControl.ScriptControl");

		ScrptCtrl.Language="vbscript";

		ScrptCtrl.AddCode("

		|Function Get1CV77Titles()

		|	const HKEY_CURRENT_USER = &H80000001

		|	Set oReg=GetObject(""winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv"")

		|	strKeyPath = ""Software\1C\1Cv7\7.7\Titles""

		|	oReg.EnumValues HKEY_CURRENT_USER, strKeyPath, arrValues

		|	strInfo=vbNullString

		|   Get1CV77Titles = strInfo

		|	On Error Resume Next

		|	For i = LBound(arrValues) To UBound(arrValues)

		|		call oReg.GetStringValue(HKEY_CURRENT_USER,strKeyPath,arrValues(i),Value)

		|		strInfo=strInfo & arrValues(i) & vbTab & Value & vbCrLf

		|	Next		

		| 	Get1CV77Titles = strInfo

		|End Function

		|");

		Текст=СокрЛП(ScrptCtrl.Run("Get1CV77Titles"));

	Исключение

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

		Возврат;

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

	

	ТаблицаПути.Очистить();

	

	Если НЕ ЗначениеЗаполнено(Текст) Тогда

		Возврат;

	КонецЕсли;

		

	Для Ном=1 По СтрЧислоСтрок(Текст) Цикл

		СтрБазы=СтрПолучитьСтроку(Текст,Ном);

		Разд=Найти(СтрБазы,Символы.Таб);

		Путь=Лев(СтрБазы,Разд-1);

		Название=Прав(СтрБазы,СтрДлина(СтрБазы)-Разд);

		

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

		НоваяСтрока.Имя = Название;

		НоваяСтрока.Путь = Путь;

	КонецЦикла;

	

	ТаблицаПути.Сортировать("Имя");



КонецПроцедуры //ПолучитьСписокИБ

 

функция сзПолучитьСписокБаз()

    попытка

        // Создаем объект Microsoft Script Control.

        олеСкрипт = создатьобъект("MSScriptControl.ScriptControl");

        // Устанавливаем в качестве языка для выполнения сценариев Visual Basic

        олеСкрипт.Language = "VBScript";

        // Формируем код на VB.

        // В принципе он все делает. Создает объект

        // Windows Management Instrumentation и уже через него

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

        // в строку.

        стрКод =

        "function strGetListBase()

        |  const RootKey = &H80000001

        |  set Reg = GetObject(""winmgmts:{impersonationLevel=impersonate}!\\."" &_

        |                      ""\root\default:StdRegProv"")

        |  PathKey = ""Software\1C\1Cv7\7.7\Titles""

        |  Reg.EnumValues RootKey, PathKey, Arr

        |  Answer = ""{""""СписокЗначений"""",{""

        |  for x = LBound(Arr) to UBound(Arr)

        |    call Reg.GetStringValue(RootKey, PathKey, Arr(x), Value)

        |    Answer = Answer & ""{{""""Строка"""","""""" &_

        |             Arr(x) & """"""},"""""" & replace(Value, """""""", """""""""""") &_

        |             """""",""""0""""}""

        |    if x <> UBound(Arr) then Answer = Answer & "",""

        |  next

        |  Answer = Answer & ""}}""

        |  strGetListBase = Answer

        |end function";

        // Добавляем наш код.

        олеСкрипт.AddCode(стрКод);

        // Вызываем его на выполнение, и пытаемся из полученного результата

        // сформировать список значений.

        Ответ = значениеизстроки(олеСкрипт.Run("strGetListBase"));

        // Отсортируем список по Представлению баз

        Ответ.СортироватьПоПредставлению();

    исключение

        // Если произошла ошибка. Значит вернем "Error".

        Ответ = "Error";

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

    возврат Ответ;

конецфункции

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

SpecialFolders = WScript.SpecialFolders;

КаталогАвтозагрузки = SpecialFolders.item("AllUsersStartup");

ИмяФайлаСсылки = ПолучитьИмяФайла(КаталогАвтозагрузки, "1Cstart.lnk");

Shortcut = WScript.CreateShortcut(ИмяФайлаСсылки);

Shortcut.IconLocation = "C:\Program Files\1cv81\bin\1cv8.exe";

Shortcut.TargetPath = "1Cstart";

Shortcut.Save();