| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
jana
Зарегистрирован: 08.01.2004
Сообщения: 48
|
 Добавлено: Пт Окт 24 2008 09:30 Заголовок сообщения: Программная установка разрешений на ключ реестра |
 |
|
Коллеги, кто-нибудь знает как программным кодом, который можно было бы запихнуть в исполняемый сценарий (например, на VBA), можно управлять разрешениями на какой-либо ключ реестра? Особенно в плане поставить конкретному пользователю запрет на чтение ключа и снять его.
 |
|
| Вернуться к началу |
|
 |
San_dok
Зарегистрирован: 21.07.2006
Сообщения: 1649
Откуда: Rus\23
|
| Добавлено: Пн Окт 27 2008 11:01 Заголовок сообщения: |
|
|
КурИте wsh 
ЗЫ: в win*\repair хранится копия реестра, по дефолту доступна всем пользователям... 
_________________
В тёмной комнате завсегда имеются тёмные грабли. |
|
| Вернуться к началу |
|
|
jana
Зарегистрирован: 08.01.2004
Сообщения: 48
|
| Добавлено: Вт Окт 28 2008 08:23 Заголовок сообщения: |
|
|
Как это связано с программным кодом ?
Я не курю ! |
|
| Вернуться к началу |
|
|
San_dok
Зарегистрирован: 21.07.2006
Сообщения: 1649
Откуда: Rus\23
|
| Добавлено: Вт Окт 28 2008 12:55 Заголовок сообщения: |
|
|
Ну если не курите, то погуглите литературу windows script host. Погуглить - набрать в строке браузера http://www.google.ru/.
В строке запроса ввести Microsoft Windows Script Host и читать читать читать.
После изучения WSH отвечаем на ваш вопрос. Допустим нужно разрешить/запретить пользователю редактировать Пуск (Start).
Нужен нам, как вы знаете реестр, NoChangeStartMenu /ключ HKEY_CURRENT_USER\SOFTWARE\ Microsoft \Windows\CurrentVersion\Policies\Exploreг. 1 изменения невозможны, 0 разрешено.
| Код: | Option Explicit
Dim WSHShell, RegKey, NoChangeStartMenu, Result
Set WSHShell = CreateObject("WScript.Shell")
RegKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
NoChangeStartMenu = WSHShell.RegRead(regkey & "NoChangeStartMenu")
If NoChangeStartMenu = 1 Then 'Изменения в меню Пуск запрещены
Result = MsgBox("Меню Пуск заблокировано." & _
vbNewLine & "Разблокировать?",36)
If Result = 6 Then 'Нажата кнопка Да
WSHShell.RegWrite regkey & "NoChangeStartMenu",0
End If
Else ' Меню Пуск может быть изменено
Result = MsgBox("Внесение изменений в меню Пуск разрешено." &_
vbNewLine & "Запретить одификацию?",36)
If Result = 6 Then 'Нажата кнопка Да
WSHShell.RegWrite regkey & "NoChangeStartMenu",1
End If
End If 1 |
Расширение JS, и обязательно дважды щелкнуть мышкой для загрузки WSH/
 Простите, а что для вас значит понятие "программный код" ?
Очень интересно услышать.
_________________
В тёмной комнате завсегда имеются тёмные грабли. |
|
| Вернуться к началу |
|
|
jana
Зарегистрирован: 08.01.2004
Сообщения: 48
|
| Добавлено: Пн Ноя 10 2008 16:34 Заголовок сообщения: |
|
|
| Ну вообще-то имелось ввиду - как программным кодом (т.е.на любом языке, которым можно написать сценарий VBScript, Java и т.д., чем ещё можно обеспечивать управление из-под AD) можно дать какому-либо пользователю (например, SYSTEM) доступ на чтение к, например, указанной Вами ветке реестра (самой ветке в реестре, а не к её параметрам). Аналогичные функции выполняет утилита Sdacl.exe с соответсвующими параметрами командной строки, но она разработки 3-ей фирмы. Наверняка что-нибудь можно сделать скриптами или командами утилит Microsoft. |
|
| Вернуться к началу |
|
|
San_dok
Зарегистрирован: 21.07.2006
Сообщения: 1649
Откуда: Rus\23
|
| Добавлено: Пн Ноя 10 2008 16:56 Заголовок сообщения: |
|
|
| jana писал(а): | | Наверняка что-нибудь можно сделать скриптами или командами утилит Microsoft. |
Вы меня простите, Microsoft Windows Script Host Вам указан! Я делаю вывод что этот совет вы просто не хотите воспринимать. И что Вам тогда нУжно по трабле лично я понять не могу.
Рассказывать по буквам, что такое WSH и как с ним работать мне простите утомительно. Не две страницы и не стихи.
best regards
_________________
В тёмной комнате завсегда имеются тёмные грабли. |
|
| Вернуться к началу |
|
|
|
FAQ 
Поиск 
Пользователи 
Группы
Регистрация
Профиль 
Войти и проверить личные сообщения 
Вход 
