@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");

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

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

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

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

  //создать новое сообщение из 1С в MS Outlook
Процедура СоздатьПисьмо(Адрес,ПутьКВложению)

       Попытка
             Outlook = СоздатьОбъект("Outlook.Application");
             ЕстьОшибка = 0;
       Исключение
             Предупреждение("Не удалось создать объект Outlook.Application");
             ЕстьОшибка = 1;
       КонецПопытки;
      
       Если ЕстьОшибка = 0 Тогда

             Письмо = Outlook.CreateItem(0);
             Письмо.Subject = "Тема письма";
             Письмо.Body = "Текст письма";
             Письмо.Recipients.Add(Адрес);

             Если ФС.СуществуетФайл(ПутьКВложению)=1 Тогда
                   Письмо.Attachments.Add(ПутьКВложению);
             КонецЕсли;

             Письмо.Display();
       Иначе
             Тема = "Тема письма";
             ТекстПисьма = "Текст письма";
             СтрокаЗапуска = "mailto:" + Адрес + "?subject=" + Тема + "&body=" + ТекстПисьма;
             ЗапуститьПриложение(СтрокаЗапуска);
       КонецЕсли;
КонецПроцедуры 

 //создать запись в календаре событий из 1С в MS Outlook
Процедура СоздатьСобытие()
       Попытка
            Outlook = СоздатьОбъект("Outlook.Application");
       Исключение
             Предупреждение("Не удалось создать объект Outlook.Application");
             Возврат;
       КонецПопытки;

       Событие = Outlook.CreateItem(1);
       Событие.Subject = "Название события";
       Событие.Start = "15.01.2010 15:00:00";
       Событие.End = "15.01.2010 16:00:00";
       Событие.Body = "Описание события";
       Событие.Location = "Место события";
       Событие.ReminderMinutesBeforeStart = 15;
       Событие.BusyStatus = 0;
       Событие.MeetingStatus = 0;
       Событие.Sensitivity = 2;
       Событие.Save();
       Сообщить("Событие в календаре создано успешно","i");
КонецПроцедуры

 //создать новую задачу из 1С в MS Outlook
Процедура СоздатьЗадачу(ДатаСтартаЗадачи)

       Попытка
             Outlook = СоздатьОбъект("Outlook.Application");
       Исключение
             Предупреждение("Не удалось создать объект Outlook.Application");
             Возврат;
       КонецПопытки;
      
       Задача = Outlook.CreateItem(3);
       Задача.Subject = "Название задачи";
       Задача.StartDate = ДатаСтартаЗадачи;
       Задача.Body = "Описание задачи";
       Задача.Status = 0;
       Задача.Display();
       Задача.Importance = 2;
       Задача.ReminderSet = 1;
       Задача.ReminderTime = "" + ДатаСтартаЗадачи + " 9:00:00";
       //Задача.Save();
КонецПроцедуры

 WshShell = Новый COMОбъект("WScript.Shell");
WshShell.Run(СтрокаЗапуска, 0, Истина)   

 Set WshShell=CreateObject("WScript.Shell")
WshShell.Run """C:\Program Files\1cv81\bin\1cv8.exe"" ENTERPRISE /Sserver\base",0,0    

 On Error Resume Next 
Set objClass = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2:Win32_Process")
'WScript.Echo "Запускаем"
Res = objClass.Create("C:\Program Files\1CV8PDA\1Cv8pSRV.exe ""Параметры""", Null, Null, PID)
If Res <> 0 Then
  WScript.Echo "Код ошибки: " & Res
  WScript.Quit
End If   

 Процедура КнопкаВыполнитьНажатие(Кнопка)
ЭлементыФормы.ТекВремя.Заголовок = ТекущаяДата();
Батник = Новый ТекстовыйДокумент;
Батник.ДобавитьСтроку("echo off");
Батник.ДобавитьСтроку("w32tm /config /syncfromflags:manual /manualpeerlist:ntp.time.in.ua");
Батник.ДобавитьСтроку("w32tm /config /update");
Батник.ДобавитьСтроку("w32tm /resync > c:\res_set_time.txt");
Батник.Записать("c:\settime.bat",КодировкаТекста.OEM);

WshShell = Новый COMОбъект("WScript.Shell");
//WshExec = WshShell.Exec("c:\settime.bat");
СтрокаЗапуска = "c:\settime.bat";
WshShell.Run(СтрокаЗапуска,0,Истина);

Результат = Новый ТекстовыйДокумент;
Попытка
Результат.Прочитать("c:\res_set_time.txt",КодировкаТекста.OEM);
Исключение
Сообщить("Ошибка открытия файла!");
Возврат;
КонецПопытки;
Рез = Результат.ПолучитьСтроку(2);
Сообщить(?(Найти(Рез,"успешно") > 0,"ОК!","Не удалось"));
Попытка
УдалитьФайлы("c:\settime.bat");
УдалитьФайлы("c:\res_set_time.txt");
Исключение
КонецПопытки;
ЭлементыФормы.ТекВремя.Заголовок = ТекущаяДата();
КонецПроцедуры   

 // функция сохраняет рабочую конфигурацию в файл, в случае успеха возвращает Истина
// параметры:
//    Логин - имя пользователя с правами на админисирирование БД
//    Пароль - строка пароля
//    ИмяФайла - полное имя файла для сохранения конфигурации, не обязательно. 
//               по умолчанию использует каталог временных файлов и имя 1Cv8.cf
функция СохранитьТекущуюКонфигурацию (Логин, Пароль, ИмяФайла="") экспорт
    результат = Ложь;
    
    Если ИмяФайла = "" Тогда
        ИмяФайла = КаталогВременныхФайлов() + "1Cv8.cf";        
    КонецЕсли;
    
    СтрокаБазы = СтрокаСоединенияИнформационнойБазы();
    Если Лев(СтрокаБазы, 5) = "File=" Тогда
        // файловый вариант
        СтрокаБазы = Сред(СтрокаБазы, 6, СтрДлина(СтрокаБазы) - 6);
    Иначе
        // серверный вариант пока не готов...
                // может кто допишет?
        возврат Ложь;
    КонецЕсли;
    
    ВыбФайл = Новый Файл(ИмяФайла);
    Если ВыбФайл.Существует() Тогда
        Сигнатура = Строка(ВыбФайл.Размер()) + Строка(ВыбФайл.ПолучитьВремяИзменения()); 
    Иначе
        Сигнатура = "";
    КонецЕсли;
    
    СтрокаЗапуска = """" + КаталогПрограммы() + "1cv8.exe"" CONFIG /F " + СтрокаБазы 
                + ?(Логин = "", "", " /N " + Логин) 
                + ?(Пароль = "", "", " /P " + Пароль) + " /DumpDBCfg """ + ИмяФайла + """";
                
    //            
    // КомандаСистемы (СтрокаЗапуска); не работает!!!!! из-за кавычек в параметрах
    // приходиться  идти кругом...
    // зато можно избежать черного окошка
    //
    WshShell = Новый COMОбъект("WScript.Shell");
    WshShell.Run(СтрокаЗапуска, 0, Истина);
    
    ВыбФайл = Новый Файл(ИмяФайла);
    Если ВыбФайл.Существует() Тогда
        НоваяСигнатура = Строка(ВыбФайл.Размер()) + Строка(ВыбФайл.ПолучитьВремяИзменения());
        Если Сигнатура <> НоваяСигнатура Тогда
            Результат = Истина;
        КонецЕсли;            
    КонецЕсли;
    
    Возврат Результат;
КонецФункции   

 Функция  ЗаписатьКонфигурациюВФайл(ИмяФайла="")
    Результат = Ложь;
    ВыбФайл = Новый Файл(ИмяФайла);
    Если ВыбФайл.Существует() Тогда
        Если ВыбФайл.ЭтоКаталог() Тогда
            ИмяФайла="";
        КонецЕсли;
    КонецЕсли;
    
    Попытка
        Массив = ПользователиИнформационнойБазы.ПолучитьПользователей();
        Логин = "";
        Пароль = "";
        Если Массив.Количество() > 0 тогда
            Пользователь = ПользователиИнформационнойБазы.ТекущийПользователь();
            Логин = Пользователь.Имя;
            Если Пользователь.ПарольУстановлен Тогда
                // тут нужно получить пароль, лучше интерактивно
                 // но лично мне это совсем не нужно
                Предупреждение("У Вас установлен пароль, этот режим сейчас не доступен");
                Возврат Ложь;
            КонецЕсли 
        КонецЕсли;
        
        Результат = СохранитьТекущуюКонфигурацию(Логин, Пароль, ИмяФайла);
        Если не Результат Тогда
            Предупреждение("Конфигурация не сохранена");
        Иначе
            Сообщить("Конфигурация успешно сохранена в файл: " + ИмяФайла);
        КонецЕсли;
        
    Исключение
        Предупреждение("У Вас не достаточно прав для сохранения конфигурации");
        Возврат Ложь;
    КонецПопытки;
    
    Возврат Результат;
КонецФункции   

 Попытка
    ОтправитьПоПочте2(ТекСтрока); // работает с Батом
Исключение
    Попытка
    ОтправитьПоПочте1(ТекСтрока); // работает с Аутлуком, но переспрашивает при отправке
    Исключение
        Сообщить_и_записать("Ошибка при отправке почты - "+ОписаниеОшибки(),СтатусСообщения.Важное);
    КонецПопытки;
КонецПопытки;

Процедура ОтправитьПоПочте1(ТекСтрока)
    Почта = Новый Почта;
    Сообщение = Новый ПочтовоеСообщение;
    //Работает с Аутглуком, но переспрашивает при отправке
    //не работает с Батом 3.60
    Почта.Подключиться("name@mysite.dp.ua","password");
   
    Сообщение.Вложения.Добавить(ПолучитьИмяФайлаПодразделения(ТекСтрока.филиал.наименование));
    Сообщение.Получатели.Добавить(ТекСтрока.филиал.email);
    Сообщение.Тема ="Проигнорированные документы в офисе. Письмо сгенерированно роботом";
    Сообщение.Текст="Проверьте, будь ласка эти документы ПОСЛЕ получения обновления из офиса. Ваши изменения в этих документах не попали в базу. Откройте прикрепленный файл";
    Почта.Послать(Сообщение);
    Почта.Отключиться();
    УдалитьФайлы(ПолучитьИмяФайлаПодразделения(ТекСтрока.филиал.наименование));
КонецПроцедуры           

Процедура ОтправитьПоПочте2(ТекСтрока)
    ПочтовыйПрофиль = Новый ИнтернетПочтовыйПрофиль;
    ПочтовыйПрофиль.АдресСервераPOP3   = "pop3.mysite.dp.ua";
    ПочтовыйПрофиль.АдресСервераSMTP   = "smtp.mysite.dp.ua";
    ПочтовыйПрофиль.ПортSMTP           = 25;
    ПочтовыйПрофиль.ПортPOP3           = 110;
    ПочтовыйПрофиль.Пользователь       = "name";
    ПочтовыйПрофиль.Пароль             = "password";
    ПочтовыйПрофиль.ВремяОжидания      = 60;
       
    Сообщение = Новый ИнтернетПочтовоеСообщение ;
    Сообщение.Вложения.Добавить(ПолучитьИмяФайлаПодразделения(ТекСтрока.филиал.наименование));
    Сообщение.Получатели.Добавить(ТекСтрока.филиал.email);
    Сообщение.Тема ="Проигнорированные документы в офисе. Письмо сгенерированно роботом";
    Сообщение.ИмяОтправителя="Обмен";
    Сообщение.Отправитель="name@mysite.dp.ua";
       
    Текст = Сообщение.Тексты.Добавить("Проверьте, будь ласка эти документы ПОСЛЕ получения обновления из офиса. Ваши изменения в этих документах не попали в базу. Откройте прикрепленный файл");
    Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
   
    Почта = Новый ИнтернетПочта();
    Почта.Подключиться(ПочтовыйПрофиль);
    Почта.Послать(Сообщение);
    Почта.Отключиться();
    УдалитьФайлы(ПолучитьИмяФайлаПодразделения(ТекСтрока.филиал.наименование));
КонецПроцедуры    

  ПутьМозиллы = """C:/Program Files/Mozilla Thunderbird/thunderbird.exe""";
    Текст = Новый ЗаписьТекста(КаталогОбмена + "sendfiletofilial"+Строка(ТекСтрока.филиал.наименование)+".bat", КодировкаТекста.OEM);
    Текст.ЗаписатьСтроку("@echo off");
    Текст.ЗаписатьСтроку("@echo Отправка проигнорированных писем на филиал"+Строка(ТекСтрока.филиал.наименование));
    СтрокаЗапуска = " -compose to='"+ТекСтрока.филиал.email+"',cc='name@mysite.dp.ua',subject=""Проигнорированные документы в офисе. Письмо сгенерированно роботом"",body=""Проигнорированные документы в офисе. Письмо сгенерированно роботом"",attachment=""file://";
    Файл = """"+ПолучитьИмяФайлаПодразделения(ТекСтрока.филиал.наименование)+"""";
    Текст.ЗаписатьСтроку(ПутьМозиллы+СтрокаЗапуска +Файл);
    Текст.ЗаписатьСтроку("del "+Файл);
    Текст.Закрыть();
    ЗапуститьПриложение(КаталогОбмена + "sendfiletofilial"+Строка(ТекСтрока.филиал.наименование)+".bat",КаталогОбмена)    

 
Процедура КнопкаВыполнитьНажатие(Кнопка)
  Почта = Новый ИнтернетПочта;

    Профиль = Новый ИнтернетПочтовыйПрофиль;
    Профиль.АдресСервераPOP3 = "192.168.0.2";

    Профиль.Пользователь = "romix";
    Профиль.Пароль = "ТутНапишитеПароль";

    Почта.Подключиться(Профиль);

    МассивПисем = Почта.Выбрать(Ложь);

    Для Каждого Письмо из МассивПисем Цикл
        Сообщить("Получено письмо с заголовоком: "+Письмо.Тема);
        Для Каждого Вложение из Письмо.Вложения Цикл
            Сообщить("Вложение: "+Вложение.ИмяФайла);
            Вложение.Данные.Записать("c:\tempdata\"+Вложение.ИмяФайла);
        КонецЦикла;    
        Для Каждого Текст из Письмо.Тексты Цикл
            Сообщить("Текст: "+Текст.Текст);
            Текст.Данные.Записать("c:\tempdata\ТекстСообщения.txt");
        КонецЦикла;    
    КонецЦикла;

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