Очистка кэша 1С из 1С

@echo off
set cache_dir="%userprofile%\Local Settings\Application Data\1c\1Cv82"
FOR /D %%i IN (%cache_dir%\*) DO rd /s /q "%%i

// Проверяет в конфигурации ИБ наличие изменений появившихся после старта сеанса
//
Процедура ОбработчикОжиданияПроверкиДинамическогоИзмененияИБ() Экспорт
	
	//Очиска Кэша
	НаборОчискаКэша					= РегистрыСведений.ОчискаКэша.СоздатьНаборЗаписей();
	НаборОчискаКэша.Отбор.Пользователь.Установить(ПараметрыСеанса.ТекущийПользователь);
	
	Если КонфигурацияБазыДанныхИзмененаДинамически() Тогда
		НовыйНабор						= НаборОчискаКэша.Добавить();
		НовыйНабор.Пользователь			= ПараметрыСеанса.ТекущийПользователь;
		НовыйНабор.ОбновленаДинамически	= Истина;
		НаборОчискаКэша.Записать();
		
	КонецЕсли;
	
	НаборОчискаКэша.Прочитать();
	// Если в конфигурации после старта текущего сеанса что-то изменилось
	Если НЕ НаборОчискаКэша.Количество() = 0 И НаборОчискаКэша[0].ОбновленаДинамически Тогда

		// Завершим проверку обновления
		ЗавершитьПроверкуДинамическогоОбновленияИБ();

		// Спросим пользователя о его желании перезапустить сеанс
		ТекстВопроса = "В конфигурацию ИБ внесены изменения." + Символы.ПС +
						"Для работы с ними рекомендуется перезапустить программу." + Символы.ПС +
						"Перезапустить?";
		РезультатВопроса = Вопрос(ТекстВопроса, РежимДиалогаВопрос.ДаНет);

		// Если пользователь не хочет перезапускать сеанс
		Если РезультатВопроса = КодВозвратаДиалога.Нет Тогда
			// Запустим проверку обновления опять
			НачатьПроверкуДинамическогоОбновленияИБ();
			Возврат;
		КонецЕсли;

	
		// Попробуем перезапустить
		глЗапрашиватьПодтверждениеПриЗакрытии = Ложь;
		
		ЗавершитьРаботуСистемы(Истина, Ложь);

	КонецЕсли;

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

// Процедура создает и запускает vbs файл, который производит очистку кэша.
// 1С и презапускает программу
//
Процедура ОчиститьКэшИПерезапуститьПрограмму() Экспорт
	
	НаборОчискаКэша							= РегистрыСведений.ОчискаКэша.СоздатьНаборЗаписей();
	НаборОчискаКэша.Отбор.Пользователь.Установить(ПараметрыСеанса.ТекущийПользователь);
	
	НаборОчискаКэша.Прочитать();
	Если НЕ НаборОчискаКэша.Количество()	= 0 И НаборОчискаКэша[0].ОбновленаДинамически Тогда
		НаборОчискаКэша[0].ОбновленаДинамически	= Ложь;
		НаборОчискаКэша.Записать();
	Иначе
		Возврат;	
	КонецЕсли;   
	
	WshShell	= Новый COMОбъект("wscript.shell");
	СкриптФайл	= Новый ТекстовыйДокумент;
	
	СтрокаСоединенияСБД = СтрокаСоединенияИнформационнойБазы();
	СтрокаЗапускаПрограммы = КаталогПрограммы();
	
	AppData	= WshShell.SpecialFolders.Item("AppData");
	ПутьКФайлуСИДБаз = AppData + "\1C\1CEStart\ibases.v8i";
	ПутьКФайлу1С = СтрокаЗапускаПрограммы + "1cv8.exe";
	
	НазваниеПапки	= "";
	Текст = Новый ЧтениеТекста(ПутьКФайлуСИДБаз, КодировкаТекста.ANSI);
	Стр = Текст.ПрочитатьСтроку();
	Пока Стр <> Неопределено Цикл // строки читаются до символа перевода строки
	    Стр = Текст.ПрочитатьСтроку();
		Если Найти(Стр, СтрокаСоединенияСБД)>0 Тогда
		    Стр = Текст.ПрочитатьСтроку();
			НазваниеПапки	= СокрЛП(СтрЗаменить(Стр, "ID=", ""));
			Прервать;
		КонецЕсли; 
	КонецЦикла;	
	
	ИмяКаталогаСКэшем	= СтрЗаменить(AppData,"Roaming","Local") + "\1C\1Cv82\" + НазваниеПапки;	
	КаталогСКэшем = Новый Файл(ИмяКаталогаСКэшем);
	Если НЕ НазваниеПапки = "" И КаталогСКэшем.Существует()  Тогда
	Иначе
		Сообщить("Каталог с кэшем не найден.");
		Возврат;
	КонецЕсли; 
	
	ИмяСервера = "";
	ИмяБазы = "";
	Путь = "";
	КомандаЗапуска = "";
	
	Один = """";
	Два = """""";
	Три = """""""";  
	
	Если (Найти(СтрокаСоединенияСБД, "File=") <> 0) Тогда
		Путь = СтрЗаменить(СтрокаСоединенияСБД, "File=", "");
		Путь = Лев(Путь, СтрДлина(Путь)-1);
		КомандаЗапуска = "WshShell.Run " + Три + ПутьКФайлу1С + Два + " ENTERPRISE /F" + Путь + Один + ", 1, true";
	Иначе
		МассивПараметровСоединения = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(СтрокаСоединенияИнформационнойБазы(), ";");
		МассивПараметровСервера = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(МассивПараметровСоединения[0], """");
		ИмяСервера = СокрЛП(МассивПараметровСервера[1]);
		МассивПараметровБазы = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(МассивПараметровСоединения[1], """");
		ИмяБазы = СокрЛП(МассивПараметровБазы[1]);
		КомандаЗапуска = "WshShell.Run " + Три + ПутьКФайлу1С + Два + " ENTERPRISE /S" + ИмяСервера + "\" + ИмяБазы + Один + ", 1, true";
	КонецЕсли;
	
	СкриптФайл.УстановитьТекст
	(" WScript.Sleep(5000)
	|Dim FSO
	|Set FSO = WScript.CreateObject(""Scripting.FileSystemObject"")
	|Set WshShell = WScript.CreateObject(""WScript.Shell"")
	|If FSO.FolderExists(""" + ИмяКаталогаСКэшем + """) Then
	| GoSubFolders """ + ИмяКаталогаСКэшем + """
	|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");
	Попытка
		СкриптФайл.Записать(КаталогВременныхФайлов()+"clean.vbs",КодировкаТекста.Системная);
                ЗапуститьПриложение(""""+КаталогВременныхФайлов()+"clean.vbs""");
		WshShell	= Неопределено;
	Исключение
		
	КонецПопытки;
	
КонецПроцедуры

ТекПользователь = ПараметрыСеанса.ТекущийПользователь;
	ТекКомпьютер = ИмяКомпьютера();
	СтруктураОтбора = Новый Структура;
	СтруктураОтбора.Вставить("Пользователь",ТекПользователь);
	СтруктураОтбора.Вставить("ИмяПК",ТекКомпьютер);
	ПараметрыОчисткиКэша = РегистрыСведений.hiДинамическиеОбновления.ПолучитьПоследнее(ТекущаяДата(),СтруктураОтбора);
	ПараметрыОчисткиКэша.КэшОчищен = ?(ПараметрыОчисткиКэша.КэшОчищен = Неопределено,Истина,ПараметрыОчисткиКэша.КэшОчищен);

ПараметрыОчисткиКэша.КэшОчищен = Неопределено

Если НЕ ПараметрыОчисткиКэша.КэшОчищен Тогда

  ТекПользователь = ПараметрыСеанса.ТекущийПользователь;
	ТекКомпьютер = ИмяКомпьютера();
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	hiДинамическиеОбновленияСрезПоследних.Период,
		|	hiДинамическиеОбновленияСрезПоследних.Пользователь,
		|	hiДинамическиеОбновленияСрезПоследних.ИмяПК,
		|	hiДинамическиеОбновленияСрезПоследних.КэшОчищен
		|ИЗ
		|	РегистрСведений.hiДинамическиеОбновления.СрезПоследних(
		|			,
		|			Пользователь = &Пользователь
		|				И ИмяПК = &ИмяПК) КАК hiДинамическиеОбновленияСрезПоследних";

	Запрос.УстановитьПараметр("ИмяПК", ТекКомпьютер);
	Запрос.УстановитьПараметр("Пользователь", ТекПользователь);

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

	Выборка= Результат.Выбрать();
	
	Если Выборка.Количество() = 0 Тогда
	
		КэшОчищен = Истина;
	Иначе
		Выборка.Следующий();
		КэшОчищен = Выборка.КэшОчищен;
	
	КонецЕсли;
	
	Если НЕ КэшОчищен Тогда

$DirLocal = "$env:LOCALAPPDATA\1C"
$DirRoaming = "$env:APPDATA\1C"

function _ClearCache {
        #
        $Dir = $args[0]
        #
        gci $Dir -rec -include *cache* | where { $_.psiscontainer } | gci -include *cache* | where { ! $_.psiscontainer } | foreach ($_) {remove-item $_.fullname}
        gci $Dir -rec -include *cache* | where { ! $_.psiscontainer } | foreach ($_) {remove-item $_.fullname}
        #
    }

Процедура ЗапуститьСкриптДляОчисткиКэша() Экспорт
	
	Если НЕ РольДоступна("ОчисткаКэшаПриЗавершенииРаботы")	 Тогда
		Возврат;
	КонецЕсли;

	ПутьКФайлуСкрипта = КаталогВременныхФайлов() + "Cache.vbs";
	
	Скрипт = Новый ТекстовыйДокумент;
	Скрипт.УстановитьТекст("
	|On Error Resume Next
	|Set FSO = WScript.CreateObject(""Scripting.FileSystemObject"")
	|Set WshShell = WScript.CreateObject(""WScript.Shell"")
	|Set objWMIService = GetObject(""winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2"") 
    |
	|'логин, под которым работает пользователь
	|CurrentUserName = wshShell.ExpandEnvironmentStrings(""%USERNAME%"")
    |
	|'Если запущенных процесов 1cv8.exe больше 1, завершаем скрипт; если 1, ждем пока процесс завершится, чтобы продолжить работу скрипта
	|UserProcessesCount = GetUserProcessesCount(CurrentUserName)
	|If UserProcessesCount > 1 Then
  	|	WScript.quit
	|End If
	|Do While UserProcessesCount > 0
    |	WScript.Sleep(1000)'1 sek
    |	UserProcessesCount = GetUserProcessesCount(CurrentUserName)
	|Loop
    |
	|'удаление папок с кэшем целиком
	|UserProfileFolder = wshShell.ExpandEnvironmentStrings(""%USERPROFILE%"")
	|Set Folder = FSO.GetFolder(UserProfileFolder & ""\AppData\Local\1C\1Cv82"")
	|Folder.Delete
	|Set Folder = FSO.GetFolder(UserProfileFolder & ""\AppData\Roaming\1C\1Cv82"")
	|Folder.Delete
    |
	|Function GetUserProcessesCount(CurrentUserName)
    |
	|  GetUserProcessesCount = 0
	|  strNameOfUser = """"
	|  
	|  Set colProcesses = objWMIService.ExecQuery(""Select Name From Win32_Process Where Name = '1cv8.exe'"") 
    |
	|  For Each objProcess In colProcesses 
	|    Return = objProcess.GetOwner(strNameOfUser)
	|      If Return <> 0 Then
	|         'Wscript.Echo ""Could not get owner info for process "" & objProcess.Name & VBNewLine & ""Error = "" & Return
	|      Else
	|        If strNameOfUser = CurrentUserName Then
	|          GetUserProcessesCount = GetUserProcessesCount + 1 
	|        End If  
	|      End If
	|  Next
    |
	|End Function
	|	
	|");
	 
    Скрипт.Записать(ПутьКФайлуСкрипта, КодировкаТекста.Системная);
	ЗапуститьПриложение(ПутьКФайлуСкрипта);
КонецПроцедуры

	Если КонфигурацияБазыДанныхИзмененаДинамически() Тогда
		
		Комп = ПараметрыСеанса.Компьютер.ПолучитьОбъект();
		Комп.ДинамическоеОбновлениеИБ = Истина;
		Комп.Записать();
		
		ТекстВопроса = "В конфигурацию ИБ внесены изменения." + Символы.ПС +
		"Настоятельно рекомендуется перезапустить программу." + Символы.ПС +
		"Сделать это сейчас?";
		Кнопки = Новый СписокЗначений;
		Кнопки.Добавить(1,"Да");
		Кнопки.Добавить(2,"Нет");
		Кнопки.Добавить(3,"Не уверен(а)");
		Кнопки.Добавить(4,"Воздержусь");
		
		РезультатВопроса = Вопрос(ТекстВопроса, Кнопки, 10);
		Если РезультатВопроса = 2 Тогда
			Возврат;
		КонецЕсли;
		
		ЗавершитьРаботуСистемы(Истина);
		
	КонецЕсли;

	Если ПараметрыСеанса.Компьютер.ДинамическоеОбновлениеИБ Тогда
	Комп = ПараметрыСеанса.Компьютер.ПолучитьОбъект();
		Комп.ДинамическоеОбновлениеИБ = Ложь;
		Комп.Записать();
		ОчиститьКэшИПерезапуститьПрограмму();
	КонецЕсли;

// Процедура создает и запускает vbs файл, который производит очистку кэша.
// 1С и презапускает программу
//
Процедура ОчиститьКэшИПерезапуститьПрограмму() Экспорт

ОбновитьИнтерфейс();
	
     СкриптФайл = Новый ТекстовыйДокумент;

     СтрокаСоединенияСБД = СтрокаСоединенияИнформационнойБазы();
     СтрокаЗапускаПрограммы = Константы.КаталогПрограммы1С.Получить();
	 Если СтрокаЗапускаПрограммы = "" Тогда
		 СтрокаЗапускаПрограммы = "8.3.11.2899\bin\";
	 КонецЕсли;
	 ПутьЗапуска = "C:\Program Files (x86)\1cv8\"+СтрокаЗапускаПрограммы;
	 ПроверкаФайла = Новый Файл (ПутьЗапуска);
	 Если ПроверкаФайла.Существует() Тогда
		 СтрокаЗапускаПрограммы = ПутьЗапуска;
	 Иначе	
		 ПутьЗапуска = "C:\Program Files\1cv8\"+СтрокаЗапускаПрограммы;
		 ПроверкаФайла = Новый Файл (ПутьЗапуска);
		 Если ПроверкаФайла.Существует() Тогда
			 СтрокаЗапускаПрограммы = ПутьЗапуска;
		 КонецЕсли;
	 КонецЕсли;
	 ПроверкаФайла = "";
     ПутьКФайлуСкрипта = КаталогВременныхФайлов() + "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( _
     |""Sel ect * Fr om 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\1Cv8""
     |FolderName3 = ""\AppData\Local\1C\1Cv82""
     |FolderName4 = ""\AppData\Local\1C\1Cv8""
     |FolderName5 = ""\AppData\Roaming\1C\1Cv82""
     |FolderName6 = ""\AppData\Roaming\1C\1Cv8""
     |
     |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
     |If FSO.FolderExists(colEnvVars(""userprofile"") & FolderName5) Then
     | GoSubFolders colEnvVars(""userprofile"") & FolderName5
     |End If
     |If FSO.FolderExists(colEnvVars(""userprofile"") & FolderName6) Then
     | GoSubFolders colEnvVars(""userprofile"") & FolderName6
     |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");

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

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

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

Процедура Кнопка1Нажатие(Элемент)

	файл = Новый ТекстовыйДокумент;
	scr = КаталогВременныхФайлов()+"clear1c.ps1";
	файл.УстановитьТекст("echo 'Подготовка к запуску, дождитесь окончания работы этого скрипта.'
	|timeout.exe /T 4 /NOBREAK
	|echo 'Не запускайте 1С.'
	|Get-childitem -Path $ENV:Userprofile\appdata\Roaming\1c\1cv8*\* -Exclude *.pfl,def.usr,tmplts | Remove-item -recurse
	|Get-childitem -Path $ENV:Userprofile\appdata\Local\1c\1cv8*\* -Exclude *.pfl,tmplts | Remove-item -recurse
	|echo 'КОНЕЦ!'
	|echo 'Если не пробегало красное, значит все нормально. Можно запускать 1С.'
	|timeout.exe /T 5 /NOBREAK");
	файл.Записать(scr,КодировкаТекста.Системная);
	Сообщить(scr);
	ЗапуститьПриложение("powershell -executionpolicy unrestricted -command "+scr,,Ложь);
	ПрекратитьРаботуСистемы(Ложь, "/ClearCache");
	
КонецПроцедуры