Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Microsoft Windows NT/2000/2003 (http://forum.oszone.net/forumdisplay.php?f=5)
-   -   Импортирование веток реестра через VBS (http://forum.oszone.net/showthread.php?t=111450)

XXXandr 14-07-2008 21:33 851365

Импортирование веток реестра через VBS
 
Собственно вопрос над которым ломаю голову третий день.
Под правами администратора (локального)все получается, а у пользователей (группа опытнае пользователи) нет прав :(
Пытаюсь импортировать значения в слудующую ветку HKLM\SYSTEM\CurrentControlSet\Services\
На клиентских машинах установлена ОС Win XP SP2.
Буду рад любой консультации (ссылки, или что-то еще).
Заранее спасибо.

Dirk Diggler 14-07-2008 23:59 851530

Ну собственно ответ на поверхности. Надо запускать скрипт с правами администратора. Как вам такое решение?

amel27 15-07-2008 04:09 851694

или дать права опытным пользователям на нужные ветки реестра через REGEDIT или SUBINACL

XXXandr 15-07-2008 07:08 851709

Вот пытаюсь этот скрипт запустить с правами админа (в самом скрипте прописывается это). Но пока не получается. Сегодня еще попытаюсь, может получится.

XXXandr 17-07-2008 20:17 854554

Ну вот получилось.
Если кому интересно вот код:

Dim Wsh
Dim Env
Dim SysDir

Set Wsh = Wscript.CreateObject("Wscript.Shell")
Set Env = wsh.Environment("Process")
SysDir = Env("WINDIR")

Wsh.Run "runas /user:x14@mydomain ""c:\temp\setup.exe"""
WScript.Sleep 1000
wsh.appActivate SysDir & "\system32\cmd.exe"
Wsh.SendKeys "pwd~"

Взято отсюда http://forum.script-coding.info/viewforum.php?id=1

Только одна неприятность: настройки вступают в действие после перезагрузки.
Нельзя ли это както исправить?

Первый код запускает программу от администратора.
А импортирование веток выглядит так:

Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
'On Error Resume Next
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\usbstor\Start",CByte(4),"REG_DWORD"
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Cdrom\Start",CByte(4),"REG_DWORD"
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Flpydisk\Start",CByte(4),"REG_DWORD"
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Sfloppy\Start",CByte(4),"REG_DWORD"

Dirk Diggler 17-07-2008 22:39 854731

Батенька, да что ж вы такое делаете 8-))))
сделайте административный шаблон(вручную или с помощью reg2adm), импортируйте его через групповую политику(в раздел компьютера), и не морочьте голову себе и людям.

Petya V4sechkin 17-07-2008 23:26 854798

XXXandr,
Как запретить использование USB портов, дисководов CD-ROM и Floppy с помощью Групповых Политик
[решено] Отключение портов USB
DeviceLock

XXXandr 18-07-2008 06:55 854981

Цитата:

Цитата Dirk Diggler
атенька, да что ж вы такое делаете 8-))))
сделайте административный шаблон(вручную или с помощью reg2adm), импортируйте его через групповую политику(в раздел компьютера), и не морочьте голову себе и людям. »

Этот шаблон применяется к компам (по крайней мере я так понял). А у меня везде используется по учетным записям.

Цитата:

Цитата Petya V4sechkin
DeviceLock »

Хорошая программа, но она стоит денег. А начальство под это денег не даст. Так что вот и приходится выкучиваться.

amel27 18-07-2008 07:17 854986

Цитата:

Цитата XXXandr
у меня везде используется по учетным записям »

драйвер не служба, без перезагрузки конфигурация не применится, так что все-таки DeviceLock

monkkey 18-07-2008 08:36 855013

Цитата:

Цитата XXXandr
HKLM\SYSTEM\CurrentControlSet\Services\ »

относится как раз к компьютеру , а не к пользователям.


Время: 14:21.

Время: 14:21.
© OSzone.net 2001-