//  Скрипт для всех баз 1С:Предприятия 8.2, имеющихся в окне запуска, строит дерево ссылок на локальный кэш.
var FSO = new ActiveXObject("Scripting.FileSystemObject");
var ForReading = 1, ForWriting = 2, ForAppending = 8;
var Shell = new ActiveXObject("Shell.Application");
var WshShell = new ActiveXObject("WScript.Shell");
var localAppdata = getTree(FSO.BuildPath(Shell.Namespace("shell:Local AppData").Self.Path, "1C"));
var configurations = [], appdata = getTree(FSO.BuildPath(Shell.Namespace("shell:AppData").Self.Path, "1C"));
var userName = new ActiveXObject("WScript.Network").userName;

if(!WScript.Arguments.Named.Exists("explicitly")){
    // Сначала добавим общие информационные базы
    var s, cfg = findEntries(appdata, /\\1CEStart\.cfg$/i);
    for (var i=0; i<cfg.length; i++) {
        if(FSO.FileExists(cfg[i]))
            with(FSO.OpenTextFile(cfg[i], ForReading, false, -1))
                while(!AtEndOfStream)
                    if(/^CommonInfoBases=(.*)$/i.test(s=ReadLine()))
                        if(FSO.FileExists(s=RegExp.$1))configurations = configurations.concat(readBases(s));
    }
    // Теперь базы текущего пользователя
    var ibases = findEntries(appdata, /\\ibases\.v8i$/i);
    for (var i=0; i<ibases.length; i++)configurations = configurations.concat(readBases(ibases[i]));
}
// Теперь обработаем безымянные параметры командной строки
Args = WScript.Arguments.Unnamed
for (var i=0; i<Args.length; i++) {
    Arg = Args.Item(i)
    if(FSO.GetExtensionName(Arg) == "v8i" && FSO.FileExists(Arg))
        configurations = configurations.concat(readBases(Arg));
}

configurations = configurations.sort(function(a, b){return a.folder==b.folder?0:a.folder<b.folder?-1:1})

var trees = [makeTree(localAppdata), makeTree(appdata)]

for (var i=0; i<trees.length; i++) {
    WshShell.Run("explorer " + trees[i]);
}

WScript.Sleep(2000);
WshShell.Popup("Построение дерева завершено.", 2, WScript.ScriptName, 64);

function readBases(filename){
    with(new ActiveXObject("ADODB.Stream")){Type=2;Mode=3;Open();Charset="UTF-8";LoadFromFile(filename);
        Position=3;var lines=ReadText().split("\r\n");Close();
    }
    for (var i=0, data=[]; i<lines.length; i++) {
        if(/^\[([^]]+)\]$/.test(line=lines[i])){
            var element = new String(RegExp.$1);
            element.folder = "/";
            element.id = "";
            data.push(element);
        }
        else if(/^ID=(.*)$/i.test(line))element.id = RegExp.$1;
        else if(/^Folder=(.*)$/i.test(line))element.folder = RegExp.$1;
    }
    return data
}

function findEntries(data, regexp){var entry, found=[];
    for (var i=0; i<data.length; i++) {
        if(regexp.test(entry=data[i]))found.push(entry);
    }
    return found;
}

function getTree(path, data){var newPath, currentFolder, folders, files;
    if(typeof(data)=="undefined")data = [];
    path = FSO.GetAbsolutePathName(path);
    try {
        currentFolder = FSO.GetFolder(path);
    } catch(e) {
        if ((e.number & 0xFFFF) == 76) return data; // Папка не найдена
        else throw e;
    }
    folders = new Enumerator(currentFolder.SubFolders);
    for(;!folders.atEnd();folders.moveNext()){data.push(newPath = FSO.BuildPath(path, folders.item().Name));
        getTree(newPath, data);
    }
    files = new Enumerator(currentFolder.Files);
    for(;!files.atEnd();files.moveNext()){data.push(FSO.BuildPath(path, files.item().Name))}
    return data
}

function makeTree(startPath){
    var destName = "Локальный кэш 1С (" + userName + ") ";
    if(!/Local/.test(startPath)){
        destName += "Roaming"
        var cacheNames = "ExtCompT|tmplts|";
    }else{
        destName += "Local"
        var cacheNames = "dumps|logs|";
    }
    var cacheParent, cacheParents = "", cacheName;
    // Очистим ранее созданное дерево
    var treeRoot = FSO.BuildPath(FSO.GetFile(WScript.ScriptFullName).ParentFolder, destName);
    var tree = getTree(treeRoot);
    for (var i=tree.length-1; i>=0; i--) {
        if(FSO.FileExists(path=tree[i]))FSO.DeleteFile(path);
        else if(FSO.FolderExists(path))FSO.DeleteFolder(path);
    }
    // Построим новое дерево
    if(!FSO.FolderExists(treeRoot))FSO.CreateFolder(treeRoot);
    for (var i=0; i<configurations.length; i++) {
        var configuration = configurations[i];
        var folderName = FSO.BuildPath(treeRoot , configuration.folder.replace(/\//g, "\\"));
        if(!FSO.FolderExists(folderName))FSO.CreateFolder(folderName);
        if(configuration.id){var caches = findEntries(startPath, new RegExp("\\\\" + configuration.id + "$"));
            cacheName = configuration.id + "|";
            if(caches && cacheNames.indexOf(cacheName) == -1)cacheNames += cacheName;
            for (var j=0; j<caches.length; j++) {
                var cache = caches[j], in_=" в " + (cacheParent = (cacheFolder = FSO.GetFolder(cache)).ParentFolder).Name;
                cacheParent = cacheParent.Path.replace(/\\/g, "\\\\").replace(/\./g, "\\.") + "|";
                if(cacheParents.indexOf(cacheParent) == -1)cacheParents += cacheParent;
                var shortcutName = FSO.BuildPath(folderName, configuration + in_ + ".lnk");
                if(FSO.FileExists(shortcutName))FSO.DeleteFile(shortcutName);
                with(WshShell.CreateShortcut(shortcutName)){
                    TargetPath = cache;
                    Save();
                }
            }
        }
        
    }
    // Добавим найденные кэши, не описанные в списках баз
    var cachesFound = findEntries(startPath, new RegExp("^(?:" + cacheParents.slice(0, -1) + ")\\\\(?!" +
        cacheNames.slice(0, -1) + ")[^\\\\]+$"));
    for (var i=0; i<cachesFound.length; i++) {
        if(FSO.FolderExists(cache = cachesFound[i])){cacheFolder = FSO.GetFolder(cache);
            var shortcutName = FSO.BuildPath(treeRoot, "!Неизвестный кэш " + cacheFolder.Name + " в " +
                cacheFolder.ParentFolder.Name + ".lnk");
            if(FSO.FileExists(shortcutName))FSO.DeleteFile(shortcutName);
            with(WshShell.CreateShortcut(shortcutName)){
                TargetPath = cache;
                Save();
            }
        }
    }
    return destName;
}