gifts2017

Скрипт удаления локального кэша 1С 8.0-8.3

Опубликовал tuman777 xxx (tuman777) в раздел Администрирование - Системное

После динамического обновления часто возникает ситуация, когда при перезапуске клиента он подхватывает не актуальную версию конфигурации с сервера, в результате чего могут появляться совершенно непредсказуемые глюки.
Данный скрипт очищает локальный кэш 1С и при следующем запуске 1С подхватывает актуальную версию конфигурации. Скрипт настроен на удаление кешей 8.0-8.2 платформ. Работает только если на локали нет ни одного запущенного процесса 1С 8.

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

Данный скрипт очищает локальный кэш 1С и при следующем запуске 1С подхватывает актуальную версию конфигурации. Скрипт настроен на удаление кешей 8.0-8.2 платформ. Работает только если на локали нет ни одного запущенного процесса 1С 8.

Причиной написания данного скрипта послужило то, что параметр /ClearCache часто не решает проблему.

Для использования необходимо создать текстовый файл, скопировать в него текст скрипта и изменить его расширение с *.txt на *.js.

 

Реализовано на  VBScript:

Текст скрипта:

 

Dim FSO 

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

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

Set colEnvVars = WshShell.Environment("Process")

 

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

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

FolderName3 = "\Local Settings\Application Data\1C\1Cv80"

FolderName4 = "\Local Settings\Application Data\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

WScript.Echo "OK"

 

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

 

Реализовано на JScript. 

При возникновении ошибкок при удалении каждый раз не выводится окно с ошибкой, а выводится только в самом конце одно.

Текст скрипта:

 

var FSO = new ActiveXObject("Scripting.FileSystemObject");

var WshShell = new ActiveXObject("WScript.Shell");

var colEnvVars = WshShell.Environment("Process");

 

var sErrors = false;

 

var FolderName1 = "\\Local Settings\\Application Data\\1C\\1Cv82";

var FolderName2 = "\\Local Settings\\Application Data\\1C\\1Cv81";

var FolderName3 = "\\Local Settings\\Application Data\\1C\\1Cv80";

var FolderName4 = "\\Local Settings\\Application Data\\1C\\1Cv8";

 

 

if (FSO.FolderExists(colEnvVars("userprofile") + FolderName1))

    GoSubFolders(colEnvVars("userprofile") + FolderName1);

if (FSO.FolderExists(colEnvVars("userprofile") + FolderName2))

    GoSubFolders(colEnvVars("userprofile") + FolderName2);

if (FSO.FolderExists(colEnvVars("userprofile") + FolderName3))

    GoSubFolders(colEnvVars("userprofile") + FolderName3);

if (FSO.FolderExists(colEnvVars("userprofile") + FolderName4))

    GoSubFolders(colEnvVars("userprofile") + FolderName4);

 

 

if (!sErrors)

    WScript.Echo("Обновление кэша прошло успешно");

else

    WScript.Echo("Возникли ошибки. Возможно запущена 1С");

 

function DelFile(sFILE)

{

    try

    {

        FSO.DeleteFile(sFILE, True);

    }

    catch(e)

    {

        sErrors = true;

    }

}

 

function GetFolder(sFOLDER)

{

    try

    {

        return FSO.GetFolder(sFOLDER);

    }

    catch(e)

    {

        sErrors = true;

    }

}

 

function GoSubFolders(objDIR)

{

    ProcessFilesInFolder(objDIR);

    var sFolder = GetFolder(objDIR);

    var subFlds = new Enumerator(sFolder.SubFolders);

    for (; !subFlds.atEnd(); subFlds.moveNext())

    {

        GoSubFolders(subFlds.item());

    }

    try

    {

        FSO.DeleteFolder(sFolder, true);

    }

    catch(e)

    {

        sErrors = true;

    }

}

 

function ProcessFilesInFolder(objDIR)

{

    var sFolder = GetFolder(objDIR);

    var subFiles = new Enumerator(sFolder.Files);

    for (; !subFiles.atEnd(); subFiles.moveNext())

    {

        DelFile(subFiles.item());

    }

}

 

См. также

PowerTools от 1 000
Подписаться Добавить вознаграждение
Комментарии
1. Александр Зубцов (iov) 25.05.11 22:25
Вот просто интересно это грабли уже мхом покрылись а разработчики как них не исправили так и не собираются. Это что? Отношение к потребителю?
EugeneMIPT; tuman777; +2 Ответить 1
2. sound sound (sound) 27.05.11 10:26
Как-то сложновато, у меня 90% пользователей работают в терминалке, тоже поначалу мучился чистил кэши, потом понял, что никто баги править не будет. Написал им батник в автозагрузку (уже несколько раз упоминал на Инфостарте):


rmdir "%AppData%\1C\1Cv82" /S /Q
rmdir "%LOCALAPPDATA%\1C\1Cv82" /S /Q
del "%LOCALAPPDATA%\Temp\*.*" /F /Q


Последняя строчка необязательна, но я решил, что пускай и темп чистится.
gutentag; EugeneMIPT; Zeskord; btk61; +4 Ответить
3. Александр Цегельников (markers) 27.05.11 19:30
(1) могу сказать, что по моим оценкам в 8.2 их стало только больше (даже без динамы)
4. Валентин Терёхин (Valet) 28.05.11 16:20
Из второго комментария строчки корректней. Т.к. в Win7 и Win2008 несколько другие пути к профилю.
5. Игорь (6есик) 02.06.11 11:29
Я в таких случаях просто прошу пользователей удалить и заново добавить базу в списке информационных баз, тоже помогает. Кроссплатформенный способ :D
6. Дмитрий Шерстобитов (DitriX) 02.06.11 16:34
А можно тупой вопрос?
Для чего это надо делать? У меня вроде как 130 человек в базе 8.1 сидели, полгода назад перевел на 8.2 и не возникало необходимости их чистить, может подскажите, что это лечит? Ну так, для опыта
7. sound sound (sound) 02.06.11 16:39
(6) У меня например бывает юзер открывает форму (любую) и она не раскрывается на экране, а сворачивается в панель окон, можно конечно в этом случае жмакнуть по свернутому окну и выбрать пункт "Восстановить положение окна", но когда это нужно объяснить 130-ти юзерам - малость надоедает ;) , поэтому 7 бед - 1 резет и все хорошо у всех.
Бывают и другие загадочные глюки, разбираться с которыми нет времени, а очистка кеша помогает.
AlexITGround; cleaner_it; +2 Ответить
8. Дмитрий Шерстобитов (DitriX) 02.06.11 20:17
9. adylkhan Фамилия (khan) 08.06.11 16:50
А настройки пользователя при этом не уничтожаются ?
10. sound sound (sound) 08.06.11 16:51
(9) Еще как уничтожаются, все кроме списка баз
11. arjuna (arjuna) 13.06.11 11:10
Сталкнулся с глюком. При подборе (именно через подбор) ТМЦ разные ТМЦ увеличивают количество первой строки. Т.е. имеем 1 строка "труба №1" 1шт.
после добавления любого ТМЦ
получаем 1 строка "труба №1" 2шт.
Как Вы думаете это тоже связано с динамическим обновлением?
12. Игорь (6есик) 14.06.11 10:21
Если при очистке кеша этот глюк исчезнет - тогда связано, если же нет то скорее всего дето в коде бок.
13. Артем Бичинов (arteast) 22.07.13 05:38
(11) arjuna, у меня было подобное у одного из клиентов - оказалось что у карточек одна единица измерения н всех) косячно завели номенклатуру)
14. arjuna (arjuna) 22.07.13 08:21
(13) arteast, Этот вариант я не рассматривал. Нужно попробовать проверить.