//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

// Запись данных справочника в DBF-файл:

БД = Новый XBase;

// проектируется структура таблицы, т.е. имена и типы полей

БД.Поля.Добавить("Code","N",6,0);	// числовое поле Код

БД.Поля.Добавить("Name","S",30);	// строковое поле Наименование

// создание файла с указанной структурой

БД.СоздатьФайл("C://1.dbf");

Выборка = Справочники.Клиенты.Выбрать();

Пока Выборка.Следующий() Цикл

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

	БД.Добавить();

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

	БД.Code = Выборка.Код;

	БД.Name = Выборка.Наименование;

КонецЦикла;

// зафиксировать изменения в файле

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



// Чтение данных из DBF-файла в справочник:

БД = Новый XBase;

БД.ОткрытьФайл("C://1.dbf");

// считываем файл построчно

Пока БД.Следующая() Цикл

	// создаем новый элемент справочника

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

 	// переносим в реквизиты данные из текущей строки таблицы

 	Спр.Код = БД.Сode; 

 	Спр.Наименование = БД.Name;

Спр.Записать();

КонецЦикла;

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

  // ПРИМЕР 2

// Выгрузка данных в DBF

БД = Новый XBase;

БД.Поля.Добавить("CODE", "S", 5);

БД.Поля.Добавить("NAME", "S", 40);

БД.СоздатьФайл(Путь + "start.dbf", Путь + "index.cdx");

БД.Индексы.Добавить("IDXCODE", "CODE");

ФлИБД = БД.СоздатьИндексныйФайл(Путь + "index.cdx");

БД.АвтоСохранение = Истина;

Выборка = Справочники.Номенклатура.ВыбратьИерархически();

Пока Выборка.Следующий() Цикл

	БД.Добавить();

	БД.CODE = Выборка.Код;

	БД.NAME = Выборка.Наименование;

КонецЦикла;

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



// Загрузка данных из DBF

БД = Новый XBase;

БД.ОткрытьФайл(Путь + "start.dbf", Путь + "index.cdx"); 

БД.ТекущийИндекс = БД.Индексы.IDXCODE;

Пока БД.Следующая() Цикл

	Сообщить(БД.CODE);

	Сообщить(БД.NAME);

КонецЦикла;	

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

  // Выгрузка ТЗ, Таблицы значений в DBF файл  

 НачВремя = _GetPerformanceCounter(); // Запоминаем время запуска алгоритма

 ДБФ = СоздатьОбъект("XBASE"); 

 ДБФ.ДобавитьПоле("IsGroup","N",1,0);  

 ДБФ.ДобавитьПоле("Level","N",1,0);

 ДБФ.ДобавитьПоле("ParentCode","S",8,0);

 ДБФ.ДобавитьПоле("Code","S",8,0);

 ДБФ.ДобавитьПоле("Descr","S",60,0); 

 ДБФ.КодоваяСтраница(0); // Windows

 ДБФ.СоздатьФайл("c:\export.dbf"); 



 ТЗ.ВыбратьСтроки();

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

  ДБФ.Добавить();  

  ДБФ.IsGroup= ТЗ.ЭтоГруппа;

  ДБФ.Level= ТЗ.Уровень; 

  ДБФ.ParentCode = ТЗ.КодРодителя;

  ДБФ.Code= ТЗ.Код; 

  ДБФ.Descr= СокрЛП(ТЗ.Наименование); 

  ДБФ.Записать(); 

 КонецЦикла;  

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



 КонВремя = _GetPerformanceCounter(); // Запоминаем время окончания алгоритма

 // Рассчитываем продолжительность выполнения алгоритма в секундах

 Длительность = Окр((КонВремя-НачВремя)/1000,3);

 Сообщить("Время выгрузки в DBF файл: "+Длительность+" с");



 // Загрузка ТЗ, Таблицы значений из DBF файла

  НачВремя = _GetPerformanceCounter(); // Запоминаем время запуска алгоритма 

  ДБФ = СоздатьОбъект("XBASE"); 

  ДБФ.КодоваяСтраница(0); // Windows

  ДБФ.ОткрытьФайл("c:\export.dbf");  

  Если ДБФ.Открыта()=0 Тогда

   Сообщить("Файл DBF не открыт !","!");

   Возврат;

  КонецЕсли;

  КолСтр  = ДБФ.КоличествоЗаписей();

  н= 0; 

  ДБФ.Первая(); 

  ПризнакГруппы  = ДБФ.IsGroup;

  ТекУровень  = ДБФ.Level; 

  ТекКодРодителя = ДБФ.ParentCode;

  ТекКод  = ДБФ.Code; 

  ТекНаименоване = ДБФ.Descr;  

  н = н+1;

  Состояние("В файле прочитано записей "+н+" из "+КолСтр); 

  Пока ДБФ.Следующая()=1 Цикл

   ПризнакГруппы  = ДБФ.IsGroup;

   ТекУровень  = ДБФ.Level; 

   ТекКодРодителя = ДБФ.ParentCode;

   ТекКод  = ДБФ.Code; 

   ТекНаименоване = ДБФ.Descr;

   н = н+1;

   Состояние("В файле прочитано записей "+н+" из "+КолСтр); 

  КонецЦикла;  

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

  

  КонВремя = _GetPerformanceCounter(); // Запоминаем время окончания алгоритма

  // Рассчитываем продолжительность выполнения алгоритма в секундах

  Длительность = Окр((КонВремя-НачВремя)/1000,3);

  Сообщить("Время чтения DBF файла: "+Длительность+" с"); 

 

Функция ПолучимСписокБаз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СИзФайла(Кнопка.Имя);

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

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

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

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

   

 // Процедура получает из реестра список зарегистрированных ИБ 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";

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

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

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

  regedit /ea 1СBase.reg HKEY_CURRENT_USER\Software\1C\1Cv7\7.7\Titles    

 

// Функция возвращает Истина при соответствии типов, ложь в обратном случае

Функция НужныйТипЗнач(ИсхЗнач,ТипЗнач)

	Возврат ТипЗнч(ИсхЗнач) = Тип(ТипЗнач);

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



// Некоторые примеры обращения

// ИсхЗнач  - проверяемое значение

// НужныйТипЗнач(ИсхЗнач,"Строка")

// НужныйТипЗнач(глЗначениеПеременной("глТекущийПользователь"),"СправочникСсылка.Пользователи")

// НужныйТипЗнач(ИсхЗнач,"Форма")

// НужныйТипЗнач(ИсхЗнач,"Булево")

// НужныйТипЗнач(ИсхЗнач,"Строка") 

// НужныйТипЗнач(ИсхЗнач,"Число")

// НужныйТипЗнач(ИсхЗнач,"Дата"))

// НужныйТипЗнач(ИсхЗнач,"Массив") 

// НужныйТипЗнач(ИсхЗнач,"Структура") 

// НужныйТипЗнач(ИсхЗнач,"Соответствие")

// НужныйТипЗнач(ИсхЗнач,"СписокЗначений")

// НужныйТипЗнач(ИсхЗнач,"ТаблицаЗначений")

// НужныйТипЗнач(ИсхЗнач,"ДеревоЗначений")

// НужныйТипЗнач(ИсхЗнач,"ПланСчетовСсылка.Хозрасчетный") 

// НужныйТипЗнач(ИсхЗнач,"ПланСчетовСсылка.Налоговый") 

// НужныйТипЗнач(ИсхЗнач,"ХранилищеЗначения")

// НужныйТипЗнач(ИсхЗнач,"Картинка")

// НужныйТипЗнач(ИсхЗнач,"ПолеВвода")

// НужныйТипЗнач(ИсхЗнач,"Панель")

// НужныйТипЗнач(ИсхЗнач,"Флажок")	

// НужныйТипЗнач(ИсхЗнач,"РегистрРасчетаНаборЗаписей.УправленческиеНачисления")

// НужныйТипЗнач(ИсхЗнач,"ПланВидовРасчетаСсылка.ОсновныеНачисленияОрганизаций") 

// НужныйТипЗнач(ИсхЗнач,"ДокументСсылка.ОтпускПоУходуЗаРебенком")

// НужныйТипЗнач(ИсхЗнач,"ИнтернетПочтовоеСообщение")

// НужныйТипЗнач(ИсхЗнач, "БизнесПроцессСсылка.м_Документооборот")

   

 

// Функция возвращает 1 при соответствии типов, 0 в обратном случае

Функция НужныйТипЗнач(ИсхЗнач,ТипЗнач)

	Если ТипЗначенияСтр((ИсхЗнач) = ТипЗнач тогда

		Возврат 1;

	Иначе

		Возврат 0;

	КонецЕсли;

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



// Некоторые примеры обращения

// ИсхЗнач  - проверяемое значение

// НужныйТипЗнач(ИсхЗнач,"Строка")



// Значения типов данных:

// ''Число'' (''Number'') - числовой тип данных;

// ''Строка'' (''String'') - строковый тип данных;

// ''Дата'' (''Date'') - тип данных Дата;

// ''Перечисление'' (''Enum'') - агрегатный тип данных ''Перечисление'';

// ''Справочник'' (''Reference'') - агрегатный тип данных ''Справочник'';

// ''Документ'' (''Document'') - агрегатный тип данных ''Документ'';

// ''Регистр'' (''Register'') - агрегатный тип данных ''Регистр'';

// ''Календарь'' (''Calendar'') - агрегатный тип данных ''Календарь'';

// ''ВидРасчета'' (''Calculation'') - агрегатный тип данных ''ВидРасчета'';	

// ''ЖурналРасчетов'' (''CalcJournal'') - агрегатный тип данных ''ЖурналРасчетов'';

// ''ПланСчетов'' (''ChartOfAccounts'') - агрегатный тип данных ''ПланСчетов'';

// ''Счет'' (''Account'') - агрегатный тип данных ''Счет'';

// ''Операция'' (''Operation'') - агрегатный тип данных ''Операция'';

// ''КорректныеПроводки'' (''CorrectEntries'') - агрегатный тип данных ''КорректныеПроводки'';

// ''БухгалтерскиеИтоги'' (''BookkeepingTotals'') - агрегатный тип данных ''БухгалтерскиеИтоги'';

// ''Таблица'' (''Table'') - агрегатный тип данных ''Таблица'';

// ''Текст'' (''Text'') - агрегатный тип данных ''Текст'';

// ''Запрос'' (''Query'') - агрегатный тип данных ''Запрос'';

// ''СписокЗначений'' (''ValueList'') - агрегатный тип данных ''СписокЗначений'';

// ''ТаблицаЗначений'' (''ValueTable'') - агрегатный тип данных ''ТаблицаЗначений'';

// ''Периодический'' (''Periodic'') - агрегатный тип данных ''Периодический'';

// ''Картинка'' (''Picture'') - агрегатный тип данных ''Картинка'';

// ''ГрупповойКонтекст'' (''GroupContext'') - контекст программного модуля или Формы;

// ''OLE'' (''OLE'') - OLE-объект.

// ''НеизвестныйОбьект'' (''UnknownObject'') - для типов, для которых в системе не предусмотрено специальное строковое обозначение;

// '''' (пустая строка)  - неопределенный тип данных.

  Новый COMОбъект(    

  СоздатьОбъект( 

  FSO = Новый COMОбъект("Scripting.FileSystemObject"); 

// Выборка объектов из коллекции Drives

Для каждого Диск Из FSO.Drives Цикл

	// Диск.DriveLetter - буква диска

	Стр = Диск.DriveLetter;

	// Диск.DriveType = 1 - Flash накопитель

	// Диск.DriveType = 2 - Локальный жесткий диск

	// Диск.DriveType = 3 - Сетевой диск

	// Диск.DriveType = 4 - CD/DVD дисковод

	Если Диск.DriveType = 3 Тогда  // если это сетевой диск, то укажем сетевой путь

		Стр = Стр + " - " + Диск.ShareName;

	ИначеЕсли Диск.IsReady Тогда

		Стр = Стр + " - " + Диск.VolumeName;

	Иначе

		Стр = Стр + " - [Диск не найден]";

	КонецЕсли; 

	Сообщить(Стр);

КонецЦикла;     

 

//При помощи скрипта получаем перечень всех дисков компьютера:

Попытка                                                       

	ScrptCtrl = Новый COMОбъект("MSScriptControl.ScriptControl"); 

	ScrptCtrl.Language="vbscript";                                

	ScrptCtrl.addcode("                                           

	|Function GetComputers()		

	| Set objWMIService = GetObject(""winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2"")		

	| Set colDisks = objWMIService.ExecQuery (""Select * from Win32_LogicalDisk"")               		

	| For Each objDisk in colDisks                                                               		

	| disk = disk & objDisk.DeviceID & "";"" & objDisk.DriveType& "";""                          		

	| Next                                                                                       		

	| GetComputers = disk                                                                        		

	|End Function

	|");                                                                                         		

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

Исключение                                                                                       		

	Предупреждение(ОписаниеОшибки());                                                            		

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

//Далее создадим таблицу дисков компьютера

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

ТабДисков.Колонки.Добавить("Диск");                                                          		

ТабДисков.Колонки.Добавить("Описание");                                                      		

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

Пока СтрДлина (Текст)> 0 Цикл                                                                			

	Строка = ТабДисков.Добавить();                                                           			

	Строка.Диск = Лев(Текст,2);    

	// Далее определим тип диска:

	// 1 - Дисковод

	// 2 - Flash накопитель

	// 3 - Локальный жесткий диск

	// 4 - Сетевой диск

	// 5 - CD/DVD дисковод

	Строка.Описание = Сред(Текст,4,1);                                                       			

	Текст = Сред(Текст,6,СтрДлина (Текст)-5);                                                			

КонецЦикла;

// Далее переберая элементы таблицы выведем флешки в окно сообщений

Сообщить("Флешки:");

Для Каждого Элемента Из ТабДисков Цикл                    		

	Если Элемента.Описание = "2" Тогда

		Сообщить(Элемента.Диск);

	КонецЕсли;                                            			

КонецЦикла;    

  //Попытка подключения к WMI на локальном компьютере

Попытка

	Locator = Новый COMОбъект("WbemScripting.SWbemLocator");

Исключение

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

	Возврат;

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

ServicesSet = Locator.ConnectServer(".");

//Извлечение экземпляров класса Win32_LogicalDisk

ObjectSet = ServicesSet.InstancesOf("Win32_LogicalDisk"); 

Для каждого Item Из ObjectSet Цикл

	Сообщить("Имя: " + Item.Caption);

	Сообщить("Описание: " + Item.Description); // здесь выводится тип диска

	Сообщить("Файловая система: " + Item.FileSystem);

	Сообщить("Свободное место: " + Item.FreeSpace);

	Сообщить("Метка диска: " + Item.VolumeName);

	Сообщить ("=======================") ;

КонецЦикла;    

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

    попытка

        олеСкрипт = новый COMОбъект("MSScriptControl.ScriptControl");

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

        стрКод =

        "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 = ""{""""#"""",4772b3b4-f4a3-49c0-a1a5-8cb5961511a3,"" & chr(10)

        |  Answer = Answer & ""{3,1e512aab-1b41-4ef6-9375-f0137be9dd91,0,0,"" & chr(10)

        |  Answer = Answer & ""{"" & (UBound(Arr) + 1) & "","" & chr(10)

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

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

        |    Answer = Answer & ""{1e512aab-1b41-4ef6-9375-f0137be9dd91,"" & chr(10) &_

        |             ""{"""""" & replace(Value, """""""", """""""""""") & """""",0,"" &_

        |             chr(10) & ""{""""S"""","""""" & Arr(x)& """"""},"" &_

        |             chr(10) & ""{3,0,"" & chr(10) & ""{0},"""""""",-1,-1,0,0}"" &_

        |             chr(10) & ""}"" & chr(10) & ""}""

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

        |    Answer = Answer & chr(10)

        |  next

        |  Answer = Answer & ""},"" & chr(10) & ""{""""Pattern""""}"" & chr(10) &_

        |           ""}"" & chr(10) & ""}""

        |  strGetListBase = Answer

        |end function";

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

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

        Ответ = ЗначениеИзСтрокиВнутр(стрОтвет);

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

    исключение

        Ответ = новый СписокЗначений;

        Ответ.Добавить("Базы 1С:Передприятия 7.7 не обнаруженны!");

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

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

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

 

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

    Перем Value,arrValues;

    Scr = CreateObject("MSScriptControl.ScriptControl");

    Scr.Language = "vbscript";

    Scr.Timeout=-1;

    HKEY_CURRENT_USER = 2147483649;

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

    Locator=СоздатьОбъект("WbemScripting.SWbemLocator");

    ServiceDef=Locator.ConnectServer(".","root\default");

    oReg = ServiceDef.Get("StdRegProv");

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

    Scr.AddObject("Dict",Dict);

    Scr.AddObject("oReg",oReg);

    Scr.ExecuteStatement("dim arrValues,Value:");

    Scr.ExecuteStatement("oReg.EnumValues "+HKEY_CURRENT_USER+","""+strKeyPath+""",arrValues:");

    Scr.ExecuteStatement("for i=lbound(arrValues) to ubound(arrValues):Dict.add ""pj"" & i, arrValues(i):next");

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

    ТЗБаз.НоваяКолонка("Путь");

    ТЗБаз.НоваяКолонка("Описание");

    Для к=0 По Dict.count Цикл

        Д=Dict.Item("pj"+к);

        Scr.ExecuteStatement("oReg.GetStringValue "+HKEY_CURRENT_USER+","""+strKeyPath+""","""+Д+""",Value");

        ТЗБаз.НоваяСтрока();

        ТЗБаз.Путь = Д;

        ТЗБаз.Описание = Scr.eval("Value");

    КонецЦикла;

	//Посмотрим что в ТЗ

	//ТЗБаз.ВыбратьСтроку();

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

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



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

     Попытка

          scrptCtrl=createobject("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

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

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

          | strInfo=strInfo & arrValues(i) & ""="" & Value & vbCrLF

          |Next

          |Get1CV77Titles = strInfo 

          |End Function");

          Сообщить(scrptCtrl.run("Get1CV77Titles"));

     Исключение

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

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

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

<Сообщил Gloom>

                  

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

     Ключ="HKEY_CURRENT_USER\Software\1C\1Cv7\7.7\Titles";

     ИмяКаталога=СокрЛП(КаталогПользователя());

     ИмяБазы=СокрЛП(каталогИБ());

     Если прав(ИмяКаталога,1)<>"\" Тогда ИмяКаталога=ИмяКаталога+"\" КонецЕсли;

     Если прав(ИмяБазы,1)<>"\" Тогда ИмяБазы=ИмяБазы+"\" КонецЕсли;

     ИмяБазыСтр=Симв(34)+СтрЗаменить(ИмяБазы,"\","\\")+Симв(34);

     ИмяФайла="USER.TXT";

     Команда="Regedit /ea "+Симв(34)+ИмяКаталога+ИмяФайла+Симв(34)+" "+Симв(34)+Ключ+Симв(34);

     КомандаСистемы(Команда);

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

     Текст.КодоваяСтраница(0);

     Текст.Открыть(ИмяКаталога+ИмяФайла);

     Текст.Показать();

     Стр=""; Нашли=0;

     Для сч=1 по Текст.КоличествоСтрок() Цикл

          Стр=СокрЛП(Текст.ПолучитьСтроку(сч));

          Сообщить(Стр);

          Если Найти(стр,ИмяБазыСтр)<>0 Тогда

               Нашли=1;

               прервать;

          КонецЕсли;

     КонецЦикла;

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