ПереместитьФайл("C:\Temp\Order.htm", "C:\My Documents\Order.htm");    

 Если НайтиФайлы("C:\est.txt") <> Неопределено Тогда 

    ПереместитьФайл("C:\est.txt", "C:\estnew.txt"); 

    Сообщить("Файл перемещен."); 

Иначе 

    Сообщить("Действие не выполнено. Файл в источнике не найден."); 

КонецЕсли;   

 ФС.ПереименоватьФайл("transinvcust.dbf", "st.dbf"); 

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

КодВозвр=WshShell.Run("RENAME C:\folder\test.txt test1.txt");

 КомандаСистемы("ren c:\A.txt B.txt"); 

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

objFolder = objFSO.GetFolder("C:\_1"); 

objFolder.Name = "_21";   

  //при использовании кода заменить [ на < и ] на >

Функция ЗашифроватьSHA512(Строка, СекретныйКлюч)

    Текст = Новый COMОбъект("System.Text.UTF8Encoding");

    Криптография = Новый COMОбъект("System.Security.Cryptography.HMACSHA512");

    Криптография.Key = Текст.GetBytes_4(СекретныйКлюч);

    ХешБайт = Криптография.ComputeHash_2(Текст.GetBytes_4(Строка)).Выгрузить();

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

    HTML.Open("text/html");

    HTML.Write("[script] ПреобразоватьСтроку = function(x,y){return x.toString(y?y:16)} [/ script]");

    ЯваСкрипт = HTML.documentElement.document.Script;

    Хеш = "";

    Для Каждого Байт Из ХешБайт Цикл

        Символ = ЯваСкрипт.ПреобразоватьСтроку(Байт);

        Хеш = Хеш + ?(СтрДлина(Символ) = 2, Символ, "0"+Символ);

    КонецЦикла;

    Возврат Хеш;

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

 Функция GetClientOrders()

    МассивЗаказовПокупателейТип = ФабрикаXDTO.Тип("http://company.com/1C/ClientOrder", "ArrayOfClientOrders");

    ЗаказПокупателяТип = ФабрикаXDTO.Тип("http://company.com/1C/ClientOrder", "ClientOrder");

    ЗаказПокупателяСтрокаТип = ФабрикаXDTO.Тип("http://company.com/1C/ClientOrder", "ClientOrderRow");

    НоменклатураТип = ФабрикаXDTO.Тип("http://company.com/1C/Nomenclature", "Nomenclature");

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

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

        "ВЫБРАТЬ

        |	ЗаказПокупателя.Ссылка,

        |	ЗаказПокупателя.Номер,

        |	ЗаказПокупателя.Дата

        |ИЗ

        |	Документ.ЗаказПокупателя КАК ЗаказПокупателя";

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

    Выборка = Результат.Выбрать();

    Если Выборка.Количество() = 0 Тогда

        Возврат Null;

    КонецЕсли;

    МассивЗаказовПокупателей = ФабрикаXDTO.Создать(МассивЗаказовПокупателейТип);

    

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

        ЗаказПокупателя = ФабрикаXDTO.Создать(ЗаказПокупателяТип);

        ЗаказПокупателя.Number = Выборка.Номер;

        ЗаказПокупателя.Date = Выборка.Дата;

            Для каждого Строка Из Выборка.Ссылка.Товары Цикл

            ЗаказПокупателяСтрока = ФабрикаXDTO.Создать(ЗаказПокупателяСтрокаТип);

            Номенклатура = ФабрикаXDTO.Создать(НоменклатураТип);

            Номенклатура.Code = Строка.Номенклатура.Код;

            Номенклатура.Name = Строка.Номенклатура.Наименование;

            ЗаказПокупателяСтрока.Nomenclature = Номенклатура;

            ЗаказПокупателяСтрока.Count = Строка.Количество;

            ЗаказПокупателя.Products.Добавить(ЗаказПокупателяСтрока);

        КонецЦикла;

        МассивЗаказовПокупателей.ClientOrder.Добавить(ЗаказПокупателя);

    КонецЦикла;

    Возврат МассивЗаказовПокупателей;

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

 <config xmlns="http://v8.1c.ru/v8/webservicecfg">

   <debugconfig debug="true">

</config>   

 <?xml version="1.0" encoding="UTF-8"?>

<point xmlns="http://v8.1c.ru/8.2/virtual-resource-system" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" base="/Base" ib="File="D:\work\Base";">

 <ws>

  <point name="Files" alias="files.1cws" enable="false"/>

  <point name="myservice" alias="myservice.1cws"/>

 </ws>

 <debug enable="true" url="tcp://localhost" />

</point>

   

 Файл = "C:\files\demo.mdb" ;

   //СтрокаПодключения = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Файл + "; Extended Properties=""Excel 8.0;HDR=NO;""";

    СтрокаПодключения  =   "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Файл + ";""";

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

    Попытка

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

    Исключение

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

        Возврат;

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

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



    Command.ActiveConnection = Connection;

    Command.CommandText = "S_elect * FROM Table1";

    Command.CommandType = 1;

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

    RecordSet = Command.Execute();

    стр ="";

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

            для н=0 по  Recordset.Fields.Count -1 цикл

            стр = стр + " " + Recordset.Fields(н).Value;

         КонецЦикла;

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

             стр ="";

        RecordSet.MoveNext(); 

      КонецЦикла;

   RecordSet.Close();

    Connection.Close();   

 Акцесс = СоздатьОбъект("ADODB.CONNECTION");

Попытка

     СтрокаПодключения="Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mybase.mdb;Uid=Admin;Pwd=";

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

Исключение

     Сообщить("Все плохо:"+ОписаниеОшибки());

     Возврат;

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

Команда = СоздатьОбъект("ADODB.Command");

Команда.ActiveConnection=Акцесс;

ТекстСелект = "S_elect * FROM tblCustoms";

НаборЗаписей = СоздатьОбъект("ADODB.RecordSet");

Команда.CommandText=ТекстСелект;

Попытка

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

Исключение

     Сообщить("Обломись:"+ОписаниеОшибки());

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

Попытка

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

Исключение //нет записей в рекордсете

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

     Возврат;

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

Пока НаборЗаписей.EOF()=0 Цикл

     ИНН = НаборЗаписей.Fields("INN").Value;

     //ну и т.д.

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

КонецЦикла;

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



// Для тех, у кого в базе Акцесс создана рабочая группа (есть файлик mdw), строка подключения будет такая: 

СтрокаПодключения="Driver= Microsoft Access Driver (*.mdb)};systemDB=C:\wg.mdw;Dbq=C:\mybase.mdb;Uid=Admin;Pwd=";

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

//фасВладелец = СтрЗаменить(фасВладелец," ","_"); 

   Спр = СоздатьОбъект("Справочник.ТоварыВПрайсе"); 

   Спр.ИспользоватьВладельца(ФасВладелец); 

   dbe = СоздатьОбъект("dao.DBEngine.36"); 

   wksp = dbe.Workspaces(0); 

   db = 0; 

   Если ФС.СуществуетФайл(КаталогИБ()+"Pric_list.mdb")=0 Тогда               // 

       db = wksp.CreateDataBase(КаталогИБ()+"Pric_list.mdb",";LANGID=0x0419;Cp=1251;Country=0");             //   

       db.Execute("Create table [" + Строка(фасВладелец) + "]                                                                                             

       |(Rec_ind integer, 

       |Код text,                                                                                                           

       |Артикул text, 

       |Цена integer, 

       |Товар text, 

       |Единица text, 

       |Val text);" 

       ); 

       db.Execute("Create index Rec_ind on ["+Строка(фасВладелец)+"] (Rec_ind);"); 

   Иначе 

       db= wksp.OpenDataBase(КаталогИБ()+"Pric_list.mdb"); 

       Попытка 

           rs = db.OpenRecordset(Строка(фасВладелец)); 

       Исключение 

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

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

       Если ПустоеЗначение(rs)= 1 Тогда 

           db.Execute("Create table [" + Строка(фасВладелец) + "]                                                                                             

           |(Rec_ind integer, 

           |Код text, 

           |Артикул text, 

           |Цена integer, 

           |Товар text, 

           |Единица text, 

           |Val text);" 

           ); 

           db.Execute("Create index Rec_ind on ["+Строка(фасВладелец)+"] (Rec_ind);"); 

       КонецЕсли;     

       db.Execute("Delete * From ["+Строка(фасВладелец)+"];");                                                         

   КонецЕсли;   

   rs = db.OpenRecordset(Строка(фасВладелец)); 

   Y = 1; 

   Спр.ВыбратьЭлементы(); 

   Пока Спр.ПолучитьЭлемент() = 1 Цикл 

       лсЕдиницы = ""; 

       Если Спр.асТовар.апТип=Перечисление.ТипТовара.Услуга Тогда 

           лсЕдиницы = ""; 

       ИначеЕсли Спр.асТовар.апТип=Перечисление.ТипТовара.Весовой Тогда 

           лсЕдиницы = "г"; 

       ИначеЕсли Спр.асТовар.апТип=Перечисление.ТипТовара.Штучный Тогда 

           лсЕдиницы = "шт."; 

       КонецЕсли; 

       Если Спр.ЭтоГруппа() = 0 Тогда 

           rs.AddNew(); 

           rs.Rec_ind = Y; 

           rs.Код= Спр.асТовар.ПолныйКод(); 

           rs.Артикул =  Спр.асТовар.сАртикул; 

           rs.Цена = Спр.чЦена; 

           rs.Товар=Спр.асТовар.сПолнНаименование; 

           rs.Единица =  лсЕдиницы; 

           rs.Val = Спр.асВалюта.Код; 

           rs.Update(); 

           Y=Y+1; 

       КонецЕсли; 

   КонецЦикла; 

   db.Close();   

   Сообщить("Выгрузка завершена"); 

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

 

Процедура ACCESS()

     dbe=CreateObject("DAO.DBEngine.36");

     wksp=dbe.Workspaces(0);

     db=0;

     // в ковычках имя фаила с расширением MDB

     Если ФС.СуществуетФайл(КаталогПользователя()+"sr.mdb")=0 Тогда

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

          db=wksp.CreateDataBase(КаталогПользователя()+"mars_sr.mdb",";LANGID=0x0419;CP=1251;COUNTRY=0");

          // DDL - запрос на создание таблицы

          // описание языка DDL (подмножество SQL) смотрите в хелпе по MS Access

          // не пытайтесь делать это с другими форматами - DDL через DAO поддерживается только для MDB

          //Создадим еще таблицу

          db.Execute("CREATE TABLE   BANKS

          |(REC_IND INTEGER,

          |BANKCODE INTEGER,

          |BANKNAME  TEXT  ,

          |ModifiedFlg BIT,

          |ChangeSeqFlg BIT);"

          );

          // индекс на нужные поля

          db.Execute("CREATE INDEX REC_IND ON BANKS (REC_IND);");

     Иначе

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

          db=wksp.OpenDataBase(КаталогПользователя()+"sr.mdb");

          // и очищаем имеющиеся данные

          db.Execute("DELETE * FROM BANKS;");

    КонецЕсли;

    // rs-это как раз сама таблица, куда мы будем добавлять записи

    rs=db.OpenRecordset("BANKS");

    // добавление записи

    rs.AddNew();

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

    rs.REC_IND            =     "1";

    rs.BANKCODE       =     "34";

    rs.BANKNAME       =    "Инвест";

    rs.ModifiedFlg        =     "1";

    // запомним запись

    rs.Update();

    // и так далее ...

    db.Close();  // закрытие базы данных

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

 @FOR /D %%i in ("C:\Users\*") do ( 

@FOR /D %%j in ("%%i\Local settings\Application data\1C\1Cv82\????????-????-????-????-????????????") do rd /s /q "%%j" 

@FOR /D %%j in ("%%i\AppData\Roaming\1C\1Cv82\????????-????-????-????-????????????") do rd /s /q "%%j" 

)   

 If Exist %USERPROFILE%\AppData\Roaming\1C\1Cv82 ( 

rem Удаляем все файлы в 7 

Del /F /Q %USERPROFILE%\AppData\Roaming\1C\1Cv82\*.* 

Del /F /Q %USERPROFILE%\AppData\Local\1C\1Cv82\*.* 



rem Удаляем все каталоги в 7 

for /d %%i in ("%USERPROFILE%\AppData\Roaming\1C\1Cv82\*") do rmdir /s /q "%%i" 

for /d %%i in ("%USERPROFILE%\AppData\Local\1C\1Cv82\*") do rmdir /s /q "%%i" 

) 



If Exist %USERPROFILE%\Local Settings\Application Data\1C\1Cv82 ( 

rem Удаляем все файлы в XP 

Del /F /Q %USERPROFILE%\Local Settings\Application Data\1C\1Cv82\*.* 

Del /F /Q %USERPROFILE%\Application Data\1C\1Cv82\*.* 



rem Удаляем все файлы в XP 

for /d %%i in ("%USERPROFILE%\Local Settings\Application Data\1C\1Cv82\*") do rmdir /s /q "%%i" 

for /d %%i in ("%USERPROFILE%\Application Data\1C\1Cv82\*") do rmdir /s /q "%%i" 

)   

 // Процедура создает и запускает vbs файл, который производит очистку кэша.

// 1С и презапускает программу

//

Процедура ОчиститьКэшИПерезапуститьПрограмму() Экспорт



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



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

     СтрокаЗапускаПрограммы = КаталогПрограммы();



     ПутьКФайлуСкрипта = КаталогВременныхФайлов() + "CacheCleaning.vbs";

     ПутьКФайлу1С = СтрокаЗапускаПрограммы + "1cv8.exe";



     ИмяСервера = "";

     ИмяБазы = "";

     Путь = "";

     КомандаЗапуска = "";

     Один = """";

     Два = """""";

     Три = """""""";  

    Если (Найти(СтрокаСоединенияСБД, "File=") <> 0) Тогда

          Путь = СтрЗаменить(СтрокаСоединенияСБД, "File=", "");

          Путь = Лев(Путь, СтрДлина(Путь)-1);

          КомандаЗапуска = "WshShell.Run " + Три + ПутьКФайлу1С + Два + " ENTERPRISE /F" + Путь + Один + ", 1, true";

     Иначе

          МассивПараметровСоединения = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(СтрокаСоединенияИнформационнойБазы(), ";");

          МассивПараметровСервера = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(МассивПараметровСоединения[0], """");

          ИмяСервера = СокрЛП(МассивПараметровСервера[1]);

          МассивПараметровБазы = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(МассивПараметровСоединения[1], """");

          ИмяБазы = СокрЛП(МассивПараметровБазы[1]);

          КомандаЗапуска = "WshShell.Run " + Три + ПутьКФайлу1С + Два + " ENTERPRISE /S" + ИмяСервера + "\" + ИмяБазы + Один + ", 1, true";

     КонецЕсли;

     // Если пользователь не хочет перезапускать сеанс 1С, то после выполнения скрипта ничего не делаем. 

     Если Не глЗначениеПеременной("глПерезапускатьСеансРаботыСПрограммой")  Тогда

          КомандаЗапуска = ""; 

     КонецЕсли; 



     СкриптФайл.УстановитьТекст("WScript.Sleep(5000)

     |

     |Dim FSO 

     |Set FSO = WScript.CreateObject(""Scripting.FileSystemObject"")

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

     |Set colEnvVars = WshShell.Environment(""Process"")

     |

     |strComputer = ""."" 

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

     |& ""{impersonationLevel=impersonate}!\\"" _ 

     |& strComputer & ""\root\cimv2"") 

     |

     |Set colProcesses = objWMIService.ExecQuery( _ 

     |""S_elect * From Win32_Process "" _ 

     |& ""Where Name = '1cv8.exe'"") 

     |

     |For Each objProcess In colProcesses 

     | objProcess.Terminate 

     |Next

     | 

     |WScript.Sleep(1000)

     | 

     |FolderName1 = ""\Local Settings\Application Data\1C\1Cv82""

     |FolderName2 = ""\Local Settings\Application Data\1C\1Cv81""

     |FolderName3 = ""\appdata\Local\1C\1Cv82""

     |FolderName4 = ""\appdata\Local\1C\1Cv81""

     | 

     |If FSO.FolderExists(colEnvVars(""userprofile"") & FolderName1) Then

     | GoSubFolders colEnvVars(""userprofile"") & FolderName1

     |End If

     |If FSO.FolderExists(colEnvVars(""userprofile"") & FolderName2) Then

     |GoSubFolders colEnvVars(""userprofile"") & FolderName2

     | End If

     |If FSO.FolderExists(colEnvVars(""userprofile"") & FolderName3) Then

     | GoSubFolders colEnvVars(""userprofile"") & FolderName3

     |End If

     |If FSO.FolderExists(colEnvVars(""userprofile"") & FolderName4) Then

     | GoSubFolders colEnvVars(""userprofile"") & FolderName4

     |End If

     |

     |" + КомандаЗапуска + "

     |Set WshShell = Nothing

     | 

     |Sub DelFile(sFILE)

     | On Error Resume Next

     | FSO.DeleteFile sFILE, True

     | If Err.Number <> 0 Then

     | Wscript.Echo ""Error deleting file: "" & sFILE

     | End If

     |End sub

     | 

     |Function GetFolder(sFOLDER)

     | On Error Resume Next

     | Set GetFolder = FSO.GetFolder(sFOLDER)

     | If Err.Number <> 0 Then

     | Wscript.Echo ""Error connecting to folder:"" & sFOLDER & VBlf & ""["" & Err.Number & ""]"" & Err.Description

     | Wscript.Quit Err.Number

     | End If

     |End Function

     | 

     |Sub GoSubFolders (objDIR)

     | ProcessFilesInFolder objDIR

     | Set sFolder = GetFolder(objDIR)

     | For Each eFolder in sFolder.SubFolders

     | GoSubFolders eFolder

     | Next

     | FSO.DeleteFolder sFolder, True

     |End Sub

     |

     |Sub ProcessFilesInFolder (objDIR)

     |Set sFolder = GetFolder(objDIR)

     |For Each objFile in sFolder.Files

     | DelFile objFile

     |Next

     |End Sub");



     Попытка

            СкриптФайл.Записать(ПутьКФайлуСкрипта, КодировкаТекста.Системная);

            ЗапуститьПриложение(ПутьКФайлуСкрипта);

     Исключение

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



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

 set fso  = CreateObject("Scripting.FileSystemObject")

set wso = WScript.CreateObject("Wscript.shell")



Base = "Main"

FileText = \\Сетевая папка\Settings_basedefault.ini"



if Wscript.Arguments.Count() > 0 Then Base = Lcase(WScript.Arguments(0))



S_elect case base

case "Base1"

 Filetext = "\\Сетевая папка\Settings_base1.ini"

case "Base2"

 Filetext = "\\Сетевая папка\Settings_base2.ini"

case "Base3"

 Filetext = "\\Сетевая папка\Settings_base2.ini"

case else

 Filetext = "\\Сетевая папка\Settings_basedefault.ini"

end S_elect



if fso.FileExists(FileText) = false then FileText = "\\Сетевая папка\Settings_basedefault.ini"



set file = fso.OpenTextFile(FileText, 1)

Platform = file.ReadLine

Server   = file.Readline





cpath = "C:\Program files (x86)\1cv82\" & Platform & "\bin\1cv8.exe"



command = " enterprise /S" & Server & "\" & Base



wso.Exec(cpath & command)

   

 "C:\Program Files (x86)\1cv82\Run1C.vbs" Base   

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

Set WshShell = CreateObject("WScript.Shell")

PrgDirx86 = trim(WshShell.RegRead("HKEY_CLASSES_ROOT\CLSID\{5CD98F13-1050-4b43-84F2-33AD97CFC287}\LocalServer32\"))

msgbox PrgDirx86

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

 Функция СрокДемоЗакончился()

   Перем Значение;

   RegProv=ПолучитьCOMОбъект("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv");

   // 2147483649 - раздел реестра HKEY_CURRENT_USER

   RegProv.GetStringValue("2147483649","Software\1C\1Cv8\Report","StartDate",Значение);

   Если Значение=NULL Тогда // Ключ ещё не создан, считаем этот запуск первым

     // Создадим ключ, установив значение в текущую дату

     RegProv.CreateKey("2147483649","Software\1C\1Cv8\Report"); // создание раздела

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

     RegProv.SetStringValue("2147483649","Software\1C\1Cv8\Report","StartDate",Строка(Формат(ТекущаяДата(),"ДФ=ггггММддЧЧммсс")));

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

   Иначе

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

     ДатаСтарта=Дата(Значение);

     КонецПериода=ДатаСтарта+ 60 * 60 * 24 * 10; // 10 дней

     ТекДата=ТекущаяДата();

     Возврат НЕ (ТекДата>ДатаСтарта И ТекДата<=КонецПериода);

   КонецЕсли;

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

 Процедура СформироватьОтчет() Экспорт

   Если СрокДемоЗакончился() Тогда

    Возврат;

   КонецЕсли;

 …

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

 Функция ТочноеВремяПоГринвичу()

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

   XMLHTTP.Open("get","http://ntp.greenwichmeantime.com/time/scripts/clock-7/x.php",Ложь);

   XMLHTTP.Send();

   UTC=Цел(XMLHTTP.Responsetext/1000); // в секундах

   Возврат '19700101000000'+ UTC + 60 * 60 * 4; // по Москве, летнее время

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

 Функция СрокДемоЗакончился()

   Перем Значение;

   RegProv=ПолучитьCOMОбъект("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv");

   RegProv.GetDWORDValue("2147483649","Software\1C\1Cv8\Report","Count",Значение);

   ЭтотЗапуск=1;

   Если Значение=NULL Тогда

     RegProv.CreateKey("2147483649","Software\1C\1Cv8\Report");

   Иначе

     ЭтотЗапуск=Значение+1;

   КонецЕсли;

   Если ЭтотЗапуск<=5 Тогда

     RegProv.SetDWORDValue("2147483649","Software\1C\1Cv8\Report","Count",ЭтотЗапуск);

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

   Иначе

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

   КонецЕсли;

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

 Функция ПолучитьСерийныйНомерЖесткогоДиска(Диск)

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

   ФСО_Диск=ФСО.GetDrive(Диск);

   Возврат ФСО_Диск.SerialNumber;

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

 Функция ПолучитьОтветПоКлючу(Ключ)

   н=СтрДлина(Ключ);

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

   Пока н<>0 Цикл

     Результат=Результат+Сред(Ключ,н,1);

     н=н-1;

   КонецЦикла;

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

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

 Функция ЭтоЗарегистрированнаяКопия()

   Перем Значение,Ответ;

   RegProv=ПолучитьCOMОбъект("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv");

   RegProv.GetDWORDValue("2147483649","Software\1C\1Cv8\Report","Registered",Значение);

   Если Значение=NULL Тогда // необходима регистрация копии

     Регистрация=Ложь;

     Ключ=ПолучитьСерийныйНомерЖесткогоДиска("C");

     Если ВвестиСтроку(Ответ,"Ключ: "+Ключ) Тогда

       Если Ответ=ПолучитьОтветПоКлючу(Ключ) Тогда

         // подтвердим регистрацию

         RegProv.SetDWORDValue("2147483649","Software\1C\1Cv8\Report","Registered",1);

         Регистрация=Истина;

       Иначе

         Предупреждение("Регистрационный код введен не верно!");

       КонецЕсли;

     КонецЕсли;

     Возврат Регистрация;

   Иначе // эта копия уже зарегистрированна

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

   КонецЕсли;

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

 Процедура СформироватьОтчет() Экспорт

   Если НЕ ЭтоЗарегистрированнаяКопия() Тогда

     // работа в демо-режиме

     ...

   КонецЕсли;

   ...

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

 Функция ПроверитьРегистрационныйКод(Код)

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

   Скрипт.Language="VBScript.Encode";

   Скрипт.AddCode("#@~^ewAAAA==o!x^DkKxP;t"+Символ(127)+"^3v|nX*@#@&7zx/SnD{4wCs/"+Символ(127)+"@#@&d(0~F"+Символ(127)+"XxJ9^+Rl{qOv0q*rPPt"+Символ(127)+"U,bUkh"+Символ(127)+"D'74:.E"+Символ(127)+"P3x9P(W@#@&d;4+13'zUdh"+Символ(127)+"D@#@&3x[~wEUmDrW hyQAAA==^#~@ ");

   Возврат Скрипт.CodeObject.Check(Код);

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