Имя: Пароль:
IT
Админ
Добавить пользователям списки общих баз программно
,
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
тьфу.. у нас ж домен меняли.. нашел. спасибо!