|
Добавить пользователям списки общих баз программно | ☑ | ||
---|---|---|---|---|
0
Холодильник
20.11.13
✎
09:45
|
Есть 100500 пользователей в терминале и столько же баз.
Хочу разделить базы списками общих баз по группам, и каждому пользователю дать набор этих групп, соответствующий его уровню доступа. Или вообще - включить ВСЕМ пользователям ВСЕ списки баз, а доступ регулировать правами на чтение файлика списка баз. т.е. файл управленческийУчет.v8i включен в список баз финансиста Ивановой и кладовщика Петровича. Но права на чтение этого файла - только у Ивановой. У Петровича в таком случае баз упр учета в списке не будет. Так взлетит? И как программно добавить списки баз пользователям терминала? |
|||
1
Defender aka LINN
20.11.13
✎
09:48
|
(0) На прошлой работе правами к файлам и рулили как раз. Работает на ура
|
|||
2
Холодильник
20.11.13
✎
09:50
|
(1) отлично. Остался только вопрос как программно добавить каждому списки баз. Либо где-то в конфигурационном файле сервера прописать путь к этим файлам
|
|||
3
Галахад
гуру
20.11.13
✎
09:52
|
Как-то так делал:
'****************************************************************** ' Имя: 1CLogon.vbs ' Язык: VBScript ' Описание: Подмена списка баз 1С для пользователей '******************************************************************* Const OverwriteExisting = True Set WshNet = CreateObject("WScript.Network") Set WshShell = WScript.CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") usrDomain = WshNet.UserDomain usrPath = "WinNT://" & usrDomain & "/" & WshNet.UserName vxodit = 0 'Есть пользователь доменный проверям входит ли он в группу 'А если локальный, то все равно в группу не входит If "WinNT://" & usrDomain & "/" = "WinNT://POLINOM/" Then GroupName = "SalesMan" 'Провека входит ли пользователь в группу GroupName Set Container = GetObject("WinNT://" & UsrDomain) Container.Filter = Array("Group") For Each Group In Container If Group.IsMember(usrPath) Then If Group.Name = GroupName Then vxodit = 1 End If End If Next else vxodit = 1 End IF 'Если входит в группу, то ограничиваем копируем ему ограниченный список баз If vxodit = 1 Then ' WScript.Echo "Входит в группу SalesMan!" out_base81 = "C:\1C_list_bases\81\SalesManBase81.v8l" out_base82 = "C:\1C_list_bases\82\SalesMan1CEStart.cfg" else ' WScript.Echo "Не входит в группу SalesMan!" out_base81 = "C:\1C_list_bases\81\AllBase81.v8l" out_base82 = "C:\1C_list_bases\82\1CEStart.cfg" End If APPDATA = WshShell.ExpandEnvironmentStrings("%APPDATA%") in_base81 = AppData + "\1C\1Cv81\ibases.v8l" in_base82 = AppData + "\1C\1CEStart\1CEStart.cfg" 'Если файлы списков баз существуют перезапишем их if objFSO.FolderExists(AppData + "\1C\1Cv81") = False Then objFSO.CreateFolder AppData + "\1C\1Cv81" end if if objFSO.FolderExists(AppData + "\1C\1CEStart") = False Then objFSO.CreateFolder AppData + "\1C\1CEStart" end if 'Перезпишем списки баз objFSO.CopyFile out_base81 , in_base81 objFSO.CopyFile out_base82 , in_base82 |
|||
4
Defender aka LINN
20.11.13
✎
09:55
|
(2) Мне со всякими скриптами было лень возиться, я прямо на 1С обработку накатал, которая на всех машинах в каталогах всех пользователей прописала эти списки
|
|||
5
Холодильник
20.11.13
✎
09:59
|
(4) в 8.2 непонятки со списками баз.
Список общих баз у меня пустой. папка C:\Documents and Settings\я\Application Data\1C\1CEStart пустая копирую в C:\Documents and Settings\я\Application Data\1C\1CEStart файлы 1CEStart.cfg и ibases.v8i (в которых прописаны базы) - ни одной базы не появилось |
|||
6
Галахад
гуру
20.11.13
✎
10:10
|
(5) А чего в 1CEStart.cfg прописано?
|
|||
7
Холодильник
20.11.13
✎
10:23
|
(6) UseHWLicenses=1
|
|||
8
Галахад
гуру
20.11.13
✎
10:34
|
(7) Должно быть:
CommonInfoBases= ... \AllBase82.v8i |
|||
9
Холодильник
20.11.13
✎
10:48
|
(8) не помогло.
|
|||
10
Холодильник
20.11.13
✎
10:54
|
где они вообще хранятся??
добавляю файлик в список общих баз - каталог :\Documents and Settings\я\Application Data\1C\1CEStart не изменился никак |
|||
11
Aleksey
20.11.13
✎
10:56
|
(10) а пойти от обратного? прописать через стартер путь к списку и посмотреть?
|
|||
12
Галахад
гуру
20.11.13
✎
10:58
|
(9) Т.е. ibases.v8i в твоем случае.
|
|||
13
Холодильник
20.11.13
✎
11:01
|
(12) бесполезно
|
|||
14
Холодильник
20.11.13
✎
11:01
|
(11) это как?
|
|||
15
Холодильник
20.11.13
✎
11:05
|
поместил в C:\Documents and Settings\я\Application Data\1C\1CEStart файл ibases.v8i с базой - в списке не появилась. что за фигня с этой 8.2((
|
|||
16
Галахад
гуру
20.11.13
✎
11:21
|
(15) А чего у тебя в файлике прописано?
|
|||
17
Холодильник
20.11.13
✎
11:23
|
(16) там сохраненная в файл база
[C:\Documents and Settings\я\My Documents\InfoBase11] Connect=File="C:\Documents and Settings\я\My Documents\InfoBase11"; ID=42124e01-e231-4b16-b204-95354e6e32c6 OrderInList=82570.66666666663 Folder=/ OrderInTree=-1 External=0 ClientConnectionSpeed=Normal App=Auto WA=1 Version=8.2 |
|||
18
bse
20.11.13
✎
11:28
|
(0) настрой default юзера, включи временные профили...
|
|||
19
Холодильник
20.11.13
✎
11:33
|
(18) все настроено по умолчанию
|
|||
20
Холодильник
20.11.13
✎
11:51
|
где и что изменяется, когда я добавляю общую базу в списки общих баз пользователя?? Хоть убей, не могу понять.
ХР |
|||
21
Галахад
гуру
20.11.13
✎
11:54
|
(20) Список баз. Что же еще? :-)
|
|||
22
Diversus
20.11.13
✎
11:57
|
(1) Есть решение по удаленному администрированию списка баз. Если интересно, можете написать на почту.
support (соб) softonit.ru |
|||
23
Холодильник
20.11.13
✎
11:59
|
(21) где он хранится, физически? Где, при запуске 1С, хранится список общих баз, подключенных у пользователя??
Добавляю общую базу пользователю. при этом: C:\Documents and Settings\я\Application Data\1C\1CEStart - пустой каталог! C:\Documents and Settings\я\Application Data\1C\1Cv82 - пустой каталог! Где же она, где хранится |
|||
24
Холодильник
20.11.13
✎
11:59
|
(22) сколько стоит ваше решение?
|
|||
25
Галахад
гуру
20.11.13
✎
12:03
|
(23) Гм. А в окне запуска "1С:Предприятия" в "Настройке", не видно пути к файлику?
|
|||
26
Diversus
20.11.13
✎
12:08
|
(24) Это комплексное клиент-серверное решение для службы поддержки, которое сочетает в себе:
- Удаленное администрирование баз и сетевой лаунчер - Корпоративный чат - Удаленное управление клиентами - Блокирование баз как файловых так и сетевых версий - Чистки кэшей - ... Вот для затравки: http://softonit.ru/images/control/Schema.png http://softonit.ru/images/control/1C.png http://softonit.ru/images/control/Chat.png http://softonit.ru/images/control/EditIB.png http://softonit.ru/images/control/EditUser.png http://softonit.ru/images/control/IB.png http://softonit.ru/images/control/RemoteControl.png http://softonit.ru/images/control/Server.png http://softonit.ru/images/control/Users.png |
|||
27
Холодильник
20.11.13
✎
12:08
|
(25) да видно. но этот список подключенных файлов списков баз должен же где-то хранится. Откуда 1С узнает, при следущем запуске, какие базы у меня подключены.
|
|||
28
Галахад
гуру
20.11.13
✎
12:13
|
(27) Тута он 1CEStart.cfg.
|
|||
29
Холодильник
20.11.13
✎
12:22
|
тьфу.. у нас ж домен меняли.. нашел. спасибо!
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |