Импортирование веток реестра через VBS

Ответить
Аватара пользователя
XXXandr

Импортирование веток реестра через VBS

Сообщение XXXandr »

Собственно вопрос над которым ломаю голову третий день.

Под правами администратора (локального)все получается, а у пользователей (группа опытнае пользователи) нет прав Изображение

Пытаюсь импортировать значения в слудующую ветку HKLM\SYSTEM\CurrentControlSet\Services\

На клиентских машинах установлена ОС Win XP SP2.

Буду рад любой консультации (ссылки, или что-то еще).

Заранее спасибо.
Аватара пользователя
Dirk Diggler

Re: Импортирование веток реестра через VBS

Сообщение Dirk Diggler »

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

Re: Импортирование веток реестра через VBS

Сообщение Dirk Diggler »

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

Re: Импортирование веток реестра через VBS

Сообщение amel27 »

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

Re: Импортирование веток реестра через VBS

Сообщение XXXandr »

Ну вот получилось.

Если кому интересно вот код:



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

Re: Импортирование веток реестра через VBS

Сообщение Dirk Diggler »

Батенька, да что ж вы такое делаете 8-))))

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

Re: Импортирование веток реестра через VBS

Сообщение XXXandr »

Цитата Dirk Diggler:



атенька, да что ж вы такое делаете 8-))))

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




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




Цитата Petya V4sechkin:



DeviceLock
Импортирование веток реестра через VBS




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

Re: Импортирование веток реестра через VBS

Сообщение amel27 »

Цитата XXXandr:



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




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

Re: Импортирование веток реестра через VBS

Сообщение monkkey »

Цитата XXXandr:



HKLM\SYSTEM\CurrentControlSet\Services\
Импортирование веток реестра через VBS




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

Вернуться в «Microsoft Windows NT/2000/2003»