Domain = "LDAP://" + obj.Properties("DefaultNamingContext").Value

‘ Формирование поискового запроса в текущем домене

Dim obj As New DirectorySearcher()

obj.SearchRoot = New DirectoryEntry("LDAP://" + Domain)

Dim query As String = "(&(objectclass =group)(cn=" + Prefix + "*))"

obj.Filter = query

‘ Поиск

Dim bb As SearchResultCollection

bb = search.FindAll

‘ Чтение результатов поиска

    For Each b As SearchResult In bb

           Dim path As String = b.GetDirectoryEntry.Properties("distinguishedName").Value.ToString()

           Dim read = GetObject("LDAP://" + path)

           ‘ чтение поля INFO

           For Each t As String In read.info

                 Response.Write (t + "<br>")

           Next

           ‘ чтение поля DESCRIPTION

                 Response.Write read.description

    Next

Настройка доменных политик

Читатель наверняка уже понял, что без удаленного подключения к реестру не обойтись. Для этого необходимы административные права, которые теперь есть; имя компьютера – его легко определить с помощью инструкции Request.UserHostName. Пути в реестре, изменяемые параметры и их значения. Все необходимые условия для удаленного подключения к реестру выполнены.

Однако удаленный реестр будет недоступен, если не выполнено два дополнительных условия:

n  включена служба Remote Registry (служба удаленного управления реестром);

n  выключен Windows FireWall.

Оба результата можно достигнуть с помощью групповых доменных политик. По умолчанию обе политики не настроены. Для их настройки необходимо вызвать MMC-консоль. Обе политики (Remote Registry и Windows Firewall/Internet Connection Sharing) находятся в разделе «Computer Configuration» (см. рис. 5).

Рисунок 5. Настройка доменных политик

Управление реестром удаленного компьютера

Для получения доступа к реестру необходимо импортировать пространство имен Microsoft.Win32. Для удаленного управления реестром сначала получают удаленный доступ к нужным ветвям реестра, затем, используя свойство OpenSubKey, получают доступ к нужной папке указанной ветви (см. листинг 3).

Листинг 3. Удаленное подключение к реестру

Imports Microsoft.Win32.

…

Public hklm As RegistryKey

Public hccr As RegistryKey

…

hklm = RegistryKey.OpenRemoteBaseKey(RegistryHive.LocalMachine, PcName)