//Таб - ТабличныйДокумент

//ИмяФайла – путь для сохранения файла PDF  (например «D:\Torg12.pdf»)

Процедура СоздатьФайлПДФ(Таб, ИмяФайла)



Попытка

ПДФПринтер = Новый ComObject(«Bullzip.PDFPrinterSettings»);

ПДФПринтер.SetValue(«output», ИмяФайла);

ПДФПринтер.SetValue(«ShowSaveAS», «never»);

ПДФПринтер.SetValue(«ShowProgress», «no»);

ПДФПринтер.SetValue(«ShowProgressFinished», «no»);

ПДФПринтер.SetValue(«ShowSettings», «never»);

ПДФПринтер.SetValue(«ShowPDF», «no»);

ПДФПринтер.SetValue(«ConfirmOverwrite»,»no»);

ПДФПринтер.WriteSettings();

Таб.Автомасштаб = Истина;

Таб.ИмяПринтера = «Bullzip PDF Printer»;Таб.Напечатать(Истина);

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



Пока НЕ PDFФайл.Существует() Цикл

ОбработкаПрерыванияПользователя();

КонецЦикла;



Исключение



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

Сообщить(«Скорее всего необходимо установить или переустановить «»Bullzip PDF Printer»);

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

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

Таб.ИмяПринтера = ПолучитьПринтерПоУмолчанию();

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

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

Функция ПолучитьПринтерПоУмолчанию()



Скрипт = Новый ComObject(«MSScriptControl.ScriptControl»);

Скрипт.Language = «vbscript»;

Скрипт.AddCode(»

|Function GetDefaultPrinter()

|GetDefaultPrinter=vbNullString

|Set objWMIService=GetObject(«»winmgmts:»" _

|& «»{impersonationLevel=impersonate}!\\.\root\cimv2″»)

|Set colInstalledPrinters=objWMIService.ExecQuery _

|(«»S_elect * from Win32_Printer»")

|For Each objPrinter in colInstalledPrinters

|If objPrinter.Attributes and 4 Then

|GetDefaultPrinter=objPrinter.Name

|Exit For

|End If

|Next

|End Function»);

Возврат СокрЛП(Скрипт.run(«GetDefaultPrinter»));

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

 Функция ПодключитьCOMОбъект(Путь) Экспорт 

    Отказ = Ложь;

    

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

    COMСоединение.ConnectionString  = ".....";

    COMСоединение.ConnectionTimeOut = 1200;

    COMСоединение.CursorLocation    = 3;

    

    Попытка

        COMСоединение.Open(COMСоединение.ConnectionString);

    Исключение

        Отказ = Истина;

        COMСоединение = "";

        Предупреждение("Невозможно установить соединение - " + ОписаниеОшибки());

        Возврат НЕ Отказ;

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

    

    Возврат НЕ Отказ;

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



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

    Если НЕ ПодключитьCOMОбъект(ПутьКФайлуГДБ) Тогда

        ЗакрытьФормуИндикатора();

        Возврат;    

    КонецЕсли;





    КомандаАДО = Новый COMОбъект("ADODB.Command");

    

    ТекстЗапроса = "S_elect id from nomenclature where ext_1c_id = 1";



    Рекордсет = Новый COMОбъект("ADODB.Recordset");

    Попытка

        Рекордсет = КомандаАДО.Execute();

    Исключение

        Предупреждение("Не получилось выполнить запрос!" + " - " + ОписаниеОшибки());

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

   Рекордсет.MoveFirst();                                                               

    Пока Рекордсет.EOF() = 0 Цикл   

       ОбработкаПрерыванияПользователя();

           айди = Рекордсет.Fields("id").Value;

           Сообщить(айди);

        КонецЦикла; 

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

   

 стрПодключения = "Driver={SQL Server};"

стрПодключения = стрПодключения + ИмяСервера + ";";

стрПодключения = стрПодключения +"Uid=" + ИмяПользователя + ";";

стрПодключения = стрПодключения + "Pwd=" + Пароль + ";";

стрПодключения = стрПодключения + "DataBase =" + ИмяБазы + ";";

стрПодключения = стрПодключения + "Pwd=" + Пароль + ";";



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

Connection.OpenServer = стрПодключения;



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



// Запрос к базе на языке SQL запросов.

RS.Open("S_elect * from TradeUnit", Connection);



Пока RS.EOF() = 0 Цикл



// Можно обращаться и обрабатывать значения полей выборки.

ИД = RS.Fields("ID").Value;

Код = RS.Fields("Code").Value;

   // Обработка других полей

RS.MoveNext();

КонецЦикла;



RS.Close();

Connection.Close();    

 Ячейка  = Лист.Cells(1,8);

 Ячейка.Formula="=SUM(R11C:R[-1]C)";   

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

Перем Кат,Шаб;

Ехсел=СоздатьОбъект("Excel.Application");

Книга=Ехсел.Workbooks;

Если ФС.ВыбратьФайл(0,Кат,Шаб,"Выбери файл Еxcel",,"*.xls",)=1 Тогда

     Книга.Open(Шаб+Кат);  

     Ехсел.Range("C1").FormulaR1C1 = "=CONCATENATE(RC[2],R[6]C)";  

     Книга.Close();

     Ехсел="";  

КонецЕсли;

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

 // Пример 1

Сервер="IP-адрес-сайта"; // IP адрес сайта

ПользовательСервера="имя-пользователя-базы-данных"; // имя пользователя базы данных

ПарольСервера="пароль-пользователя-базы-данных"; // пароль пользователя базы данных

БазаСервера="название-SQL-базы-данных";  // название SQL базы данных

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

Соединение_param = "driver={MySQL ODBC 5.1 Driver}; server="+СокрЛП(Сервер)+"; uid="+СокрЛП(ПользовательСервера)+"; pwd="+СокрЛП(ПарольСервера)+"; database="+СокрЛП(БазаСервера)+"; STMT=SET CHARACTER SET utf8";

Try

    Соединение.open(Соединение_param);

    СоединениеУстановлено = Истина;

    Сообщить("Соединение установлено");

Except

    ТекстСообщения = ""+ТекущаяДата()+" Connection error: "+ОписаниеОшибки();

    Сообщить(ТекстСообщения);

    СоединениеУстановлено = Ложь;

    return;

EndTry;   

 ]// Пример 2 

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

ConnectionString = "driver={SQL Server}; server=; uid=; Pwd=; Database = "; // это для MS SQL строка

Попытка

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

  Сообщить("Соединение осуществлено в "+ТекущаяДата());

Исключение

  Предупреждение("Невозможно установить соединение");  

  Возврат;

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



ТекстЗакпроса = "....................";

НаборЗаписей = Новый COMОбъект("ADODB.RecordSet"); 

НаборЗаписей.ActiveConnection = Соединение;

НаборЗаписей.Open(ТекстЗапроса);



Пока не НаборЗаписей.Eof() Цикл

//  ............код обработки.....................

НаборЗаписей.MoveNext();

КонецЦикла;

НаборЗаписей.Close();

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

Сообщить("Обработка завершена в "+ТекущаяДата());   

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

DB.Соединение("DRIVER={MySQL ODBC 5.1 Driver}; SERVER=IP_Супер_мега_сервера; DATABASE=Мега_база; USER=Супер_юзер; PASSWORD=пароль_супер_мега_юзера; OPTION=3;");



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

RS.SetDatabase(DB);



Если RS.Выполнить("set names cp1251") = 0 Тогда

    Сообщить("Ошибка подключения к MySQL" + РазделительСтрок + RS.ПолучитьОписаниеОшибки());

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

    Возврат;

КонецЕсли;

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

Имя0 = "DragNet";

Фл1 = sql.Соединение("DSN=" + Имя0 + ";");

Если Фл1 = 0 Тогда

Сообщить("Не смогли открыть DSN = " + Имя0);

	Сообщить("Ошибка = " +  sql.ПолучитьОписаниеОшибки() );

Иначе

	sql.УстТолькоЧтение(1);

КонецЕсли;

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

rc.УстБД(sql);

 //Тестируем установку параметров соединения

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

клМускул.СтрокаСоединения = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;

|Port=3306;Database=_1c;User=_1c_user; Password=_1c_pass;

|Option=3;";

Результат = клМускул.СтрокаСоединения;

ПроверитьРавенство(Результат,"Driver={MySQL ODBC 3.51 Driver};Server=localhost;

|Port=3306;Database=_1c;User=_1c_user; Password=_1c_pass;

|Option=3;");

 Процедура ЗаполнитьНажатие(Элемент)

запрос = СоставитьЗапрос(); //Функция СоставитьЗапрос() возвращает строку запроса

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

ТаблицаВывода.Очистить();

ТаблицаВывода = ЗапросКСкуль(CRM_MSSQL_Сервер,CRM_MSSQL_БазаДанных,CRM_MSSQL_Логин,CRM_MSSQL_Пароль,Запрос);



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

ЭлементыФормы.ТабличноеПоле.Значение=ТаблицаВывода;

ЭлементыФормы.ТабличноеПоле.СоздатьКолонки();



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



Функция ЗапросКСкуль(SQLServer,DSN,Login,Password,txtSQL)

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

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

Команда = Новый COMОбъект("ADODB.Command");



Соединение.ConnectionString = ("Provider=SQLOLEDB; Data Source = ") + SQLServer +

    (";Initial Catalog=") + DSN + (";UID=") + Login + ("; PWD=") + Password + (";");

Соединение.ConnectionTimeOut = 15;

//Попытка

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

// Сообщить("Connect");

//Исключение

// Сообщить("No connect");

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



Команда.ActiveConnection = Соединение;

Команда.CommandText = txtSQL;

//Попытка

 НаборЗаписей = Команда.Execute ();

// Сообщить("Add record");

//Исключение

// Сообщить("No I_nsert");

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



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

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



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

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

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

 //Сообщить(ИмяСтолбца);            // Тестовая строка

КонецЦикла;

 

Пока НЕ НаборЗаписей.EOF Цикл        // Заполнение созданной таблицы

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

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

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

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

 КонецЦикла;

 НаборЗаписей.MoveNext();

КонецЦикла;



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

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

Возврат Таблица;

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

 Функция ЗапросSQL (SQLServer,Login,Password,ТекстSQL)   //Функция выборки данных из SQL сервера и передача во временную таблицу 1С



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

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

              

   Подключение = Новый ComObject("ADODB.Connection");

Подключение.ConnectionString=СтрокаСоединения;

 Попытка

  Подключение.Open(СтрокаСоединения);

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

 Исключение

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

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

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

 

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

СоединениеSQL.ActiveConnection = Подключение;

СоединениеSQL.NamedParameters = True;

СоединениеSQL.CommandText = ТекстSQL;

СоединениеSQL.CommandType = 1;

//СоединениеSQL.Prepared = Истина;



Param1 = СоединениеSQL.CreateParameter("n",3,1,1,1);

СоединениеSQL.Parameters.Append(Param1);



Param2 = СоединениеSQL.CreateParameter("ДатаПриходаС",200,1,8,Формат(НачалоПериода,"ДФ=ггггММдд"));//Формат(НачалоПериода,"ДФ=ггггММдд"));

СоединениеSQL.Parameters.Append(Param2);



Param3 = СоединениеSQL.CreateParameter("ДатаПриходаПо",200,1,8,Формат(КонецПериода,"ДФ=ггггММдд"));

СоединениеSQL.Parameters.Append(Param3);

   

СоединениеSQL.Parameters.Refresh();



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

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



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



 

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

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

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

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

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

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

КонецЦикла;





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

 

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

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

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

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

 КонецЦикла;

       

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

 

КонецЦикла;



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

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

Подключение.Close();



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



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

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

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

ИмяФайла = СокрП(ПутьККаталогуСБазой)+"1sconst.dbf";

Попытка

    ДБФ.ОткрытьФайл(ИмяФайла,,1);

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

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

         Пока ДБФ.ВКонце() = 0 Цикл

             Если Найти(ДБФ.Value,"7.70.") > 0 Тогда

                  НомерРелиза = СокрП(ДБФ.Value);

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

                  Прервать;

             КонецЕсли;         

             ДБФ.Следующая();

        КонецЦикла;

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

Исключение

    Сообщить("ОШИБКА: " + ОписаниеОшибки());

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

 

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

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

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

Загрузчик = СоздатьОбъект("ЗагрузчикВК");

Результат = Загрузчик.ЗагрузитьВК("Events.dll", "Addin.Events=2E5E6B2C-EFE0-4872-9AB6-DF187B9CE397");

 Попытка

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

Исключение

    ИмяДЛЛ=КаталогИБ()+"cool.ocx";

    КомандаСистемы(КаталогИБ()+"regsvrex.exe /s /c "+ИмяДЛЛ);

    Попытка

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

    Исключение

        Сообщить("Ошибка загрузки компоненты: "+ИмяDLL,"!");

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

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

 COMPlus = Новый COMОбъект("COMAdmin.COMAdminCatalog");

Приложения = COMPlus.GetCollection("Applications");

Приложения.Populate();

ПоследнийНомер = Приложения.Count - 1;

Для Номер = 0 по ПоследнийНомер Цикл

    Приложение = Приложения.Item(Номер);

    Если Приложение.Name = "1CV8" Тогда

        COMPlus.ShutdownApplication(Приложение.Name);

        Прервать;

    КонецЕсли;

КонецЦикла;   

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

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

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

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

 

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

   

 

// Функция возвращает 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);

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

КонецЦикла;    

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