Очистка кэша клиента 1С

23.10.19

Разработка - Инструментарий разработчика

Узнал, что некоторые до сих пор чистят кэши клиента 1С руками. Решил выложить свой скрипт.

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование Скачано Купить файл
Очистка кэша клиента 1С:
.7z 2,93Kb
15 2 500 руб. Купить
Актуальная версия
.js 10,23Kb
3 2 500 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

upd 2019.10.23: отключил принудительное логгирование и уменьшил таймауты между попытками неуспешной записи в лог

upd 2019.02.11: вынес списки исключений (не будут удаляться) каталогов и файлов в блок определения переменных, сделал логгирование всех выполняемых действий.

Написан на JScript (WSH), при запуске по даблклику перед очисткой задаёт вопрос о необходимости закрыть клиент 1С и закрывает только клиенты 1С запустившего скрипт пользователя (можно использовать на терминальном сервере, не боясь загасить чужие клиенты 1С).
Поддерживает запуск с параметрами командной строки:
/DontClose1cClient=1 - не закрывать клиент 1С при очистке
/ClearAll=1 - очищает кэш 1С всех пользовательский профилей без дополнительных вопросов, можно сразу у всех пользователей терминального сервера.

Код прикреплённого файла ниже:

 

WScript.Echo("Будет выполнена очистка кэша 1с");
var _fso                        =   new ActiveXObject("Scripting.Filesystemobject");
var _wShell                     =   new ActiveXObject("WScript.Shell");
var _wshNetwork                 =   new ActiveXObject("WScript.Network");
var wmi                         =   "winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\CIMV2";
var _wmi                        =   GetObject(wmi);
var _win_ver                    =   _wShell.ExpandEnvironmentStrings(_wShell.RegRead("HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\CurrentVersion"));
var _profiles_path		        =	_wShell.ExpandEnvironmentStrings(_wShell.RegRead("HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\ProfileList\\ProfilesDirectory"))
var _user_profile               =   _wShell.ExpandEnvironmentStrings("%USERPROFILE%");
var _clear_all                  =   _parse_bool_argument("ClearAll");
var _pids                       =   "";
var stop_1cv8                   =   'cmd /c taskkill.exe /f /im 1cv8*';
var stop_1cestart               =   'cmd /c taskkill.exe /f /im 1cestart.exe';
var stop_1c_part                =   'cmd /c taskkill.exe /f /pid '
var _sel_logged_users           =   "SELECT * FROM Win32_LoggedOnUser";
var _sel_sesn_prcs              =   "SELECT * FROM Win32_SessionProcess";
var _sel_prcs_by_pid            =   "SELECT * FROM Win32_Process WHERE (Name like '1cv8%' or Name like '1cestart%') and (";
var vbYesNo                     =   4;
var vbYes                       =   6;
var exceptDirectories           =   ["1CEStart","Licence 2.0","tmplts"];
var exceptFiles                 =   ["LOCATION.CFG","1CV8STRT.PFL","APPSRVRS.LST","IBASES.V8I"];

if(_win_ver                     ==  "5.1"){
    var user_app_1c             =   "\\Application Data\\1C"
    var user_lcl_1c             =   "\\Local Settings\\1C"
}else{
    var user_app_1c             =   "\\AppData\\Roaming\\1C"
    var user_lcl_1c             =   "\\AppData\\Local\\1C";
}

//киляем процессы 1с
log_w("Started by "+_wshNetwork.UserDomain+"\\"+_wshNetwork.UserName);
if(_clear_all){
    log_w("Очищаю кэш 1С для всех профилей");
    if(!_parse_bool_argument("DontClose1cClient")){
        log_w("Завершаю работу всех клиентов 1С");
        RunAndRead(stop_1cv8);
        RunAndRead(stop_1cestart);
    }
    _profiles                   =   new Enumerator(_fso.GetFolder(_profiles_path).SubFolders);
    for (;!_profiles.atEnd(); _profiles.moveNext()){        
        _clean_profile(_profiles.item());
    }
}else{
    log_w("Очищаю кэш текущего пользователя");
    for(var logged_users        =   new Enumerator(_wmi.ExecQuery(_sel_logged_users));!logged_users.atEnd(); logged_users.moveNext()){
        var acc                 =   logged_users.item().Antecedent;
        var logon_id            =   logged_users.item().Dependent;
        var _logged_user_rexp   =   eval("/"+_wshNetwork.UserName+"/gi");
        if(_logged_user_rexp.test(acc)){
            for(var sess_prcs   =   new Enumerator(_wmi.ExecQuery(_sel_sesn_prcs));!sess_prcs.atEnd(); sess_prcs.moveNext()){
                var p1          =   sess_prcs.item().Antecedent;
                var p2          =   sess_prcs.item().Dependent;
                var _pid_rexp   =   /Handle="\d+"/gi;
                if(p1           ==  logon_id){
                    _pids       +=  _pid_rexp.test(p2)?"ProcessId="+((p2.match(_pid_rexp))[0]).replace('Handle="',"").replace('"',"")+" or ":"";
                }                    
            }
            //WScript.Echo(logon_id);
        }            
    }
    _pids                       =   _pids.replace(/\sor\s$/gi,"")
    //WScript.Echo(_pids);
    var _sel_only_my_1c         =   _sel_prcs_by_pid+_pids+")";
    var c1s                     =   new Enumerator(_wmi.ExecQuery(_sel_only_my_1c));
    if((!c1s.atEnd())&&(_wShell.popup("Для продолжения необходимо закрыть 1с. Продолжаем?",0,"Подтверждение",vbYesNo)==vbYes)){
        log_w("Получено согласие на закртие клиентов 1С текущего пользователя");
        for(;!c1s.atEnd();c1s.moveNext()){
            c1s_cl              =   c1s.item();
            if(!_parse_bool_argument("DontClose1cClient")){
                cmd             =   stop_1c_part+c1s_cl.ProcessID;
                log_w("Завершаю "+cmd);
                RunAndRead(cmd);
            }
        }
    }
    _clean_profile(_user_profile);
}
WScript.Echo("Кэш очищен");

function _parse_bool_argument(pa_arg_name){
    var pa_string       =   "";
    for(var pa_i        =   0;  pa_i<WScript.Arguments.length; pa_i++){
        pa_string       +=  WScript.Arguments(pa_i)+" ";
    }
    pa_re               =   eval("/"+pa_arg_name+"[\\s=-]{1}[\\w\\d]+/gi");
    var pa_arr          =   pa_re.exec(pa_string);
    if(pa_arr           !=  null){
        pa_replace      =   eval("/"+pa_arg_name+"[\\s=-]{1}/gi");
        pa_val          =   pa_arr[0].replace(pa_replace,"").toUpperCase();
        switch(pa_val){
            case "TRUE" :   pa_ret = true;break;
            case "1"    :   pa_ret = true;break;
            case "FALSE":   pa_ret = false;break;       
            case "0"    :   pa_ret = false;break;
            default     :   pa_ret = false;break;
        }
    }else{
        pa_ret          =   false;
    }
    return pa_ret;
}

function RunAndRead(rar_command){
    var rar_FSO     =   new ActiveXObject("Scripting.FileSystemObject");    
    var rar_VSH     =   new ActiveXObject("WScript.Shell");
    var rar_outname =   rar_VSH.ExpandEnvironmentStrings("%TEMP%")+"\\"+rar_FSO.GetTempName();
    var rar_str     =   rar_command+' > "'+rar_outname+'"';
    rar_VSH.run(rar_str, 0, true);
    if(rar_FSO.fileexists(rar_outname)){
        if(rar_FSO.getfile(rar_outname).size>0){
            var rar_in  =   rar_FSO.opentextfile(rar_outname);
            var rar_ret =   rar_in.readall();
            rar_in.close();
         }
         else{rar_ret   =   "Empty output";}
         rar_FSO.deletefile(rar_outname);
    }else{rar_ret   =   "No output"}
    rar_FSO         =   null; 
    rar_VSH         =   null;
    rar_outname     =   null;
    rar_str         =   null;
    rar_in          =   null;
    return rar_ret.replace(/^\r\n|(\r\n){2,}|\r\n$/gi,"");
}

function _clean_profile(cp_path){
    if(_fso.folderexists(cp_path+"\\"+user_app_1c)){
        ClearSubFolders(cp_path+"\\"+user_app_1c)
    }
    if(_fso.folderexists(cp_path+"\\"+user_lcl_1c)){
        ClearSubFolders(cp_path+"\\"+user_lcl_1c)
    }    
}

function ClearSubFolders(objFolder){
    var subfolder;
    var filename;
    var csf_subfolders              =   new Enumerator(_fso.GetFolder(objFolder).SubFolders);
    for(;!csf_subfolders.atEnd();csf_subfolders.moveNext()){
        subfolder                   =   csf_subfolders.item()
        if(!in_array(subfolder.name,exceptDirectories)){
            var sf_path             =   subfolder.Path;
            log_w("Очищаю "+sf_path);
            ClearSubFolders(sf_path)
            try{
                if(/1cv8\d*/gi.test(subfolder.Name)){
					RunAndRead('cmd /c rmdir "'+sf_path+'"')
				}else{
					RunAndRead('cmd /c rmdir /S /Q "'+sf_path+'"')
				}
            }catch(e){
                log_w("Не смог удалить "+sf_path);
            }
        }else{
            log_w(subfolder.Path + " в списке исключений");
        }
    }
    var csf_files                   =   new Enumerator(_fso.GetFolder(objFolder).Files)    
    for(;!csf_files.atEnd();csf_files.moveNext()){
        var ffile                   =   csf_files.item();
        var fname                   =   ffile.Path;
        if(!in_array(ffile.name,exceptFiles)){
            try{
                _fso.deletefile(ffile);
                log_w("Удалён "+fname);
            }catch(e){
                log_w("Не смог удалить "+fname);
            };
        }
    }
}

function in_array(value, array) {
    for(var i                       =   0; i<array.length; i++){
        if(value.toUpperCase()      ===  array[i].toUpperCase()) {
            return true;
        }
    }
    return false;
}

function log_w(lw_text_t){
    var wait_limit                  =   999;
    var wait_count                  =   0;
    var lw_recorded                 =   false
    while(!lw_recorded){
        if(wait_count               <=  wait_limit){
            try{
                var lw_fso          =   new ActiveXObject("Scripting.Filesystemobject");
                var	dateObj         =   new Date();
                var	lw_log          =   WScript.ScriptFullName+".log";
                lw_log_file         =   lw_fso.OpenTextFile(lw_log,8,true);
                lw_log_file.WriteLine( dateObj.getFullYear()+"."
                                    +((dateObj.getMonth()+1>9)?dateObj.getMonth()+1:"0"+(dateObj.getMonth()+1))+"."
                                    +((dateObj.getDate()>9)?dateObj.getDate():"0"+dateObj.getDate())+"-"
                                    +((dateObj.getHours()>9)?dateObj.getHours():"0"+dateObj.getHours())+":"
                                    +((dateObj.getMinutes()>9)?dateObj.getMinutes():"0"+dateObj.getMinutes())+":"
                                    +((dateObj.getSeconds()>9)?dateObj.getSeconds():"0"+dateObj.getSeconds())+":"
                                    +((dateObj.getMilliseconds()>99)?dateObj.getMilliseconds():((dateObj.getMilliseconds()>9)?"0"+dateObj.getMilliseconds():"00"+dateObj.getMilliseconds()))+"="
                                    +lw_text_t);
                lw_log_file.close();
                lw_log_file         =   null;
                lw_fso              =   null;
                lw_log              =   null;
                dateObj             =   null;
                lw_recorded         =   true;
            }
            catch(e){
                WScript.Sleep(100);
                wait_count++;
                lw_recorded         =   false;
            }               
        }
        else{
            WScript.Echo("Не смог записать сообщение "+lw_text_t+"\r\nв файл "+WScript.ScriptFullName+".log");
            lw_recorded             =   true;
        }
    }
}

 

Вступайте в нашу телеграмм-группу Инфостарт

кэш

См. также

Инструментарий разработчика Чистка данных Свертка базы Инструменты администратора БД Системный администратор Программист Руководитель проекта 1С:Предприятие 8 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Россия Платные (руб)

Инструмент представляет собой обработку для проведения свёртки или обрезки баз данных. Работает на ЛЮБЫХ конфигурациях (УТ, БП, ERP, УНФ, КА и т.д.). Поддерживаются серверные и файловые базы, управляемые и обычные формы. Может выполнять свертку одновременно в несколько потоков. А так же автоматически, без непосредственного участия пользователя. Решение в Реестре отечественного ПО

24900 руб.

20.08.2024    64755    341    168    

301

Инструментарий разработчика Роли и права Запросы СКД Программист Руководитель проекта 1С:Предприятие 8 Платные (руб)

Инструменты для разработчиков 1С 8.3: Infostart Toolkit. Автоматизация и ускорение разработки на управляемых формах. Легкость работы с 1С.

16500 руб.

02.09.2020    253668    1400    421    

1152

Пакетная печать Печатные формы Инструментарий разработчика Программист 1С:Предприятие 8 Платные (руб)

Расширение для создания и редактирования печатных форм в системе 1С:Предприятие 8.3. Благодаря конструктору можно значительно снизить затраты времени на разработку печатных форм, повысить качество и прозрачность разработки, а также навести порядок в многообразии корпоративных печатных форм.

22570 руб.

06.10.2023    36974    97    40    

117

Инструментарий разработчика Нейросети Платные (руб)

Первые попытки разработки на 1С с использованием больших языковых моделей (LLM) могут разочаровать. LLMки сильно галлюцинируют, потому что не знают устройства конфигураций 1С, не знают нюансов синтаксиса. Но если дать им подсказки с помощью MCP, то результат получается кардинально лучше. Далее в публикации: MCP для поиска по метаданым 1С, справке синтакс-помошника и проверки синтаксиса.

15250 руб.

25.08.2025    49943    98    27    

114

Инструменты администратора БД Инструментарий разработчика Роли и права Программист 1С:Предприятие 8 1C:Бухгалтерия Россия Платные (руб)

Расширение позволяет без изменения кода конфигурации выполнять проверки при вводе данных, скрывать от пользователя недоступные ему данные, выполнять код в обработчиках. Не изменяет данные конфигурации, легко устанавливается практически на любую конфигурацию на управляемых формах.

17000 руб.

10.11.2023    24581    92    42    

101

Инструментарий разработчика Программист 1С:Предприятие 8 Платные (руб)

Инструмент для написания и отладки кода в режиме «1С:Предприятие». Представляет собой консоль кода с возможностью пошаговой отладки, просмотра значений переменных любых типов, использования процедур и функций, просмотра стека вызовов, вычисления произвольных выражений на встроенном языке в контексте точки останова, синтаксического контроля и остановки по ошибке. В консоли используется удобный редактор кода с подсветкой, контекстной подсказкой, возможностью вызова конструкторов запроса и форматной строки. 1.3.11 Доработан механизм контекстной подсказки по метаданным

9500 руб.

17.05.2024    51685    181    63    

213

Мастера заполнения Поиск данных Инструментарий разработчика Подбор и обработка объектов 1С 8.3 1С 8.5 Платные (руб)

Infostart MagicInput улучшает подбор в полях ввода 1С: ищет по любой части названия и по нескольким ключевым фрагментам, распознаёт ввод в другой раскладке и показывает иконки/статусы объектов прямо в списке. Поддерживает вставку навигационной ссылки/представления документа для автоподбора; для разработчиков доступны поиск по GUID и полному имени предопределённого. Работает в управляемых формах и подключается в большинстве конфигураций 1С 8.3/8.5.

5000 руб.

25.02.2026    2869    11    1    

14
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. jaroslav.h 183 01.01.18 20:00 Сейчас в теме
Дякую, "захисник віндовс" одне що тільки на архів "свариться", мол "троян", а так все норм.
2. пользователь 02.01.18 11:20
Сообщение было скрыто модератором.
...
3. DrAku1a 1792 03.01.18 17:38 Сейчас в теме
Когда уже 1С встроит функционал очистки кэша в платформу?! Вполне можно было бы, например, в стандартном стартере кнопку добавить.
На сайте уже есть много разных утилит для очистки кэша - поиск по "Очистка кэша" даст полную исчерпывающыю картину.
Лично я предпочитаю использовать CMD-файл - читабельно и минимум команд.
KroVladS; Xershi; ger_kar; +3 Ответить
4. MrWonder 657 04.01.18 02:52 Сейчас в теме
(3) Согласен, cmd-файл - очень удобно. Применительно к моему решению стояли следующие условия:
1. Завершать клиенты 1С перед очисткой под запросы
2. Завершать только клиенты 1С запускающего пользователя (на терминальных серверах выполнение первого условия при наличии соответствующих прав просто завершало бы всех клиентов)
3. Консольных режим
4. Пакетный режим очистки для всех пользовательских профилей (снова применительно к терминальным серверам)
Для отправки сообщения требуется регистрация/авторизация