Служба Удаленный реестр

Для разрешения удаленным компьютерам доступа к локальному реестру Windows ХР использует службу Удаленный реестр (Remote Registry). Служба Удаленный реестр запускается автоматически. Если остановить эту службу, то удаленные пользователи и службы не смогут получить доступ к реестру.

Это дает дополнительный уровень безопасности для системы, если компьютер не обеспечивает никаких возможностей для других компьютеров (таких как печать, репликации и т.п.). Если это так, настройте службу Удаленный реестр на запуск вручную, чтобы предотвратить ее запуск при загрузке системы.

Совет: Windows ХР Home Edition не имеет службы Удаленный реестр (Remote Registry), поэтому нельзя удаленно управлять реестром на компьютере с системой Home Edition.

Изменение реестра с помощью сценария

Изменять реестр на отдельном компьютере с помощью редактора реестра почти так же просто, как изменять реестр удаленного компьютера. Однако иногда требуется изменить реестр на нескольких компьютерах как часть установки собственного приложения или в целях безопасности. Одним из самых простых способов сделать это является создание сценария глобальных изменения под Windows Script Host (WHS).

Объект Wshshell позволяет изменять реестр. Существуют три распространенные задачи, выполняемые с реестром с помощью сценария: чтение, запись и удаление значений. Три метода объекта WshShell — RegRead, RegWrite и RegDelete -позволяют программировать эти задачи.

Рассмотрим сценарий, объединяющий все эти задачи. Предположим, имеется собственное приложение, устанавливаемое на несколько компьютеров, и нужно внести изменения в реестр с помощью сценария. В этом примере сценарий отображает значения из реестра в диалоговом окне, создаёт раздел, записывает несколько значений в раздел, удаляет значения, а затем удаляет раздел:

"Описываем переменные

Dim compName, sh, vail, val2

"Создаем объект-оболочку

Set sh = WScript.CreateObject («Wscript.shell»)

compName = sh.RegRead («HKLM\System\CurrentControlSet\Control\

ComputerName\ActiveComputerName\ComputerName»)

msgbox «You are running this script from « + compName

"Создаем раздел

sh.RegWrite «HKLM\Software\MyCustomApp\», «», «REG_SZ» "Записываем два значения в раздел

sh.RegWrite «HKLM\Software\MyCustomApp\Installed», 1, «REG_DWORD»

sh.RegWrite «HKLM\Software\MyCustomApp\DefaultAppPath»,

«C:\Program Files\MyCustomApp\bin», «REG_SZ»

"Отображаем диалоговое окно со значениями

vail = sh.RegRead(«HKLM\Software\MyCustomApp\Installed»)

vail = sh.RegRead(«HKLM\Software\MyCustomApp\DefaultAppPath»)

msgbox «Computer: « + compName + vbCrLf + «Installed: « + cstr(vall)+

vbCrLf + «Path: « + val2 "Удаляем два значения

sh.RegDelete «HKLM\Software\MyCustomApp\Installed» sh.RegDelete «HKLM\Software\MyCustomApp\DefaultAppPath» "Удаляем раздел

sh.RegDelete «HKLM\Software\MyCustomApp\»

Помните, что при работе с разделом, а не со значением, необходимо указывать в конце символ «\». При указании значения необходимо опустить символ «\».