ЖУРНАЛ «СТА» №4/2006

82 СТА 4/2006 ВОП Р ОСЫ - О Т В Е Т Ы www.cta.ru Ч АСТЬ 4 Вопрос 1 Как можно настроить ограничение прав на исполнение сценария VBA для пользовате- ля или группы пользователей? Ответ Для этого потребуется как настроить соответствующим образом Сервер безопасности, так и внести небольшие изменения в сценарий VBA, доступ к которому требуется ограничить. Откройте конфигуратор сервера безопасности (Пуск – Программы – ICONICS GENESIS32 – Tools – Security Configurator). При этом будет открыто окно, показанное на рис. 1. При необходимости создайте группы и добавьте в них пользователей. Описа- ние процедуры добавления пользова- телей и групп есть в справке Сервера безопасности, и здесь мы его приво- дить не будем. После этого настройте права и свойства пользователей и групп. Сделайте двойной щелчок на имени группы или пользователя, которым Вы собираетесь разрешить исполнение сценария. В открывшемся редакторе настроек прав пользователей или групп открой- те закладку Специальные , как показано на рис. 2. В строке «Включить» введите пароль, который Вы хотите установить, как по- казано на рис. 3, и нажмите кнопку До- бавить . Нажмите кнопку ОК для сохра- нения внесённых изменений. При необходимо- сти повторите про- цедуру для каждого пользователя и группы, которым нужно разрешить исполнение сцена- рия, после чего сохраните файл конфи- гурации. На этом конфигурирование Сервера безопасности закончено, и можно пе- реходить к редактированию сценария. В его текст нужно добавить следующие команды (листинг 1). Вопрос 2 При переходе с версии 6 на версию 8 GENE- SIS32 возникла следующая проблема. Рус- скоязычные локальные псевдонимы, со- хранённые в текстовых файлах, не воспри- нимаются, вместо них в экранной форме отображаются символы «|». Как можно ре- шить проблему? Ответ Проблема решается следующим об- разом. Необходимо открыть текстовый файл локальных псевдонимов с помо- щью блокнота и сохранить его в фор- мате Unicode, как показано на рис. 4. Замечание. Если необходимо перейти с шестой не на восьмую, а на седьмую версию, необходимо установить обнов- ление пакета до версии 7.2 (V7 SP2). Работа со SCADA-системой GENESIS32 Анна Долгова Sub ProtectedScript () Dim bCheck As Boolean bCheck = ThisDisplay.TestCustomSecurityItem(”МойПароль”) ’ ”МойПароль” – пароль, который Вы установили, ’ выполняя п.5. ’ Проверка, может ли сценарий исполняться далее. If Not (bCheck) Then MsgBox “Исполнение сценария запрещено” Exit Sub End If ’ Далее – текст Вашего сценария, который будет ’ исполняться только в том случае, если в системе ’ зарегистрирован пользователь, обладающий ’ соответствующими правами доступа. ’ ======================== ’ ………………………………….. ’ ======================== End Sub Листинг 1 Рис. 1. Конфигуратор Сервера безопасности Рис. 3. Настройка пароля для разрешения доступа к сценарию Рис. 2. Настройка прав пользователей или групп