Книга: Недокументированные и малоизвестные возможности Windows XP

Энумерация содержимого ветви реестра

Энумерация содержимого ветви реестра

Стандартные методы объекта, предназначенные для доступа к системному реестру (WScript.CreateObject("Wscript.Shell") ), один из которых, позволяющий считывать значения параметров из реестра, был рассмотрен в примере сценария для включения/отключения восстановления системы на логических дисках компьютера, позволяют выполнить базовые операции с реестром.

Но данный объект имеет один очень большой недостаток — с его помощью нельзя перечислить все параметры, расположенные в определенной ветви реестра. Этот недостаток ограничивал возможности применения сценариев сервера сценариев Windows, поэтому просто нельзя не рассказать о новом свойстве инструментария Windows, которое выполняет именно эту операцию.

За выполнение перечисления параметров, расположенных в ветви реестра, отвечает метод EnumValues, принадлежащий классу StdRegProv. Данный класс определяет методы для доступа к реестру Windows XP (более функциональный аналог стандартного объекта Windows, рассмотренного выше) и принадлежит к пространству имен RootDefault. Мы не будем создавать целый работоспособный сценарий для описания работы данного метода — лучше создадим отдельную процедуру, которая будет выполнять перечисление параметров указанной ветви реестра, а также проверим ее работу с помощью записи в файл журнала выводимых значений. 

set objFS = CreateObject("Scripting.FIleSystemObject")
'Для вывода списка содержащихся в ветви реестра параметров мы будем
'использовать файл. В нашем случае – файл enum_log.txt на диске d:..
set objTextFile = objFS.CreateTextFile("d:enum_log.txt", 8, True)
'подключаем объект
Set obj = GetObject("winmgmts:{impersonationLevel=impersonate}!root/Default:StdRegProv")
'Переменная RootKey будет определять корневой раздел ветви, параметры
'которой мы будем перечислять. При этом корневые разделы идентифицируются
'в соответствии с правилами, определеннымивфайле Winreg.h. В файле
'определены следующие корневые разделы: HKEY_CLASSES_ROOT (0x80000000),
'HKEY_CURRENT_USER (0x80000001), HKEY_LOCAL_MACHINE (0x80000002),
'HKEY_USERS (0x80000003), HKEY_CURRENT_CONFIG (0x80000005), HKEY_DYN_DATA
'(0x80000006). В нашем случае будет использоваться корневой раздел
'HKEY_CURRENT_USER.
RootKey = &H80000001
Вызываем процедуру, которая и будет выполнять перечисление параметров. Для
'работы процедуры необходимы три параметра: ветвь реестра, параметры которой
'нужно перечислять (в нашем случае Control PanelDesktop), объект,
'определяющий текстовый документ, в который будут записываться параметры
'ветви, а также корневой раздел указанной ранее ветви, записанный в нашем
'случае в параметре RootKey. После работы процедуры закрываем открытый
'текстовый файл.
call EnumV("Control PanelDesktop", objTextFile, RootKey)
objTextFile.Close
Sub EnumV(Path, objTextFile, RootKey)
 objTextFile.WriteLine ":::: Ветвь реестра: HKEY_CURRENT_USER" & Path & vbCrLf
 'Выполняем перечисление параметров, расположенных в ветви реестра
 'HKEY_CURRENT_USERControl PanelDesktop. Для этого используется метод
 'EnumValues, для работы которого необходимы следующие параметры:
 '– Корневой раздел ветви (в нашем случае параметр RootKey)
 '– Остальной путь к ветви реестра (в нашем случае параметр RootKey,
 'указываемый при вызове процедуры).
 ' – Переменная, в которую будут помещаться содержащиеся в ветви реестра
 'параметры. В нашем случае назовем эту переменную Names
 ' – Переменная, в которую будет помещаться идентификатор типа параметра.
 'В нашем случае назовем ее Types.
 obj.EnumValues RootKey, Path, Names, Types
 'Проверяем, существуют ли в указанной ветви реестра параметры. Во-первых,
 'проверяется равенство нулю переменной Names, содержащей названия
 'параметров. А во-вторых, проверяем на равенство нулю переменную Types.
 'Переменные нужно проверять именно на равенство нулю, так как ноль
 'возвращается методом EnumValues в случае ошибки.
 if not IsNull(Names) and not IsNull(Types) Then
  'Выполняем цикл, количество итераций которого указывается границами
  'переменной types (количеством элементов в переменной types, так как это
  'массив). Иными словами, выполняем цикл столько раз, сколько переменных было
  'найдено в указанной ветви реестра.
  for i = lbound(types) to ubound(types)
   'При этом мы будем выполнять запись в текстовый файл в зависимости
   'от типа переменной, указанного в переменной types. Для этого будем
   'использовать выражение select case из-за особенности метода EnumValues.
   'Особенностью этого метода является способ указания типа найденной
   'переменной. Для этого используется массив types (в нашем случае),
   'в который помещаются идентификаторы типа переменной, определенные
   'в файле Winreg.h. Возможны следующие идентификаторы:
   '1 – определяет переменную строкового типа;
   '2 – определяет переменную расширенного строкового типа;
   '3 – определяет переменную REG_BINARY-типа;
   '4 – определяетпеременную REG_DWORD-типа;
   '7 – определяет переменную REG_MULTI_SZ-типа.
   select case types(i)
   'Проверяем тип параметра и в зависимости от этого типа используем
   'разные методы для получения значения параметра. Все методы для
   'получения значений параметров реестра также описаны в классе
   'StdRegProv. Мы используем следующие методы.
   'GetStringValue – получение значения строкового типа.
   'GetExpandedStringValue – получение значения расширенного строкового типа.
   'GetBinaryValue – получение значения параметра REG_BINARY-типа.
   'GetDWordValue – получение значения параметра REG_DWORD-типа.
   'GetMultiStringValue – получение значения параметра REG_MULTI_SZ-типа.
   'Все эти методы используют для своей работы следующие переменные:
   'идентификатор корневого раздела ветви реестра, остальной путь к ветви
   'реестра, имя параметра (в нашем случае элемент массива names), а также
   'название переменной, в которую будет считываться значение данного
   'параметра.
   case 1
    obj.GetStringValue RootKey, path, names(i), value
    'После считывания значения параметра проверяем, не произошла ли ошибка
    'при считывании (как обычно, значение нуль в переменной). Если ошибки нет,
    'то записываем параметр и его значение в текстовый файл. Аналогично
    'выполняется работа и с другими типами параметров, поэтому их мы описывать
    'не будем.
    If isnull(names(i)) or not isnull(value) then
     objTextFile.WriteLine names(i) & " = REG_SZ: " & value
    end if
   case 2
    obj.GetExpandedStringValue RootKey, path, names(i), value
    if not isnull(names(i)) or not isnull(value) then
     objTextFile.WriteLine names(i) & " = REG_EXPAND_SZ: " & value
    end if
   case 3
    obj.GetBinaryValue RootKey, path, names(i), value
    for j = lbound(value) to ubound(value)
     value(j) = hex(cint(value(j)))
    next
    if not isnull(names(i)) or not isnull(value) then
     objTextFile.WriteLine names(i) &" = REG_BINARY : "& _
      join(value, ",")
    end if
   case 4
    obj.GetDWordValue RootKey, path, names(i), value
    if not isnull(names(i)) or value then
     objTextFile.WriteLine names(i) & " = REG_DWORD : " & _
      hex(value)
    end if
   case 7
    obj.GetMultiStringValue RootKey, path, names(i), value
    for j = lbound(value) to ubound(value)
     value(j) = value(j)
    next
    if not isnull(names(i)) or not isnull(value) then
     objTextFile.WriteLine names(i) &" = REG_MULTI_SZ : "& _
      join(value, ",")
    end if
   end select
  next
 end if
End Sub

При написании сценария был использован не только метод EnumValues, но и другие методы класса StdRegProv. Это было необходимо для занесения в текстовый файл значений параметров, найденных в данной ветви реестра. Но это не все методы, описанные в классе StdRegProv. И поскольку большую часть книги все-таки составляют описания параметров реестра, хотя бы вкратце рассмотрим другие методы данного класса. Класс StdRegProv содержит следующие методы.

? CreateKey — создает раздел в ветви реестра. Для его вызова необходимы следующие два параметра: идентификатор корневого раздела ветви реестра (аналог переменной RootKey приведенного сценария), а также остальной путь к ветви реестра, которую нужно создать (в том числе и сам создаваемый раздел реестра).

? DeleteKey — удаляет раздел в ветви реестра. Для его вызова также необходимы следующие два параметра: идентификатор корневого раздела ветви реестра (аналог переменной RootKey приведенного сценария), а также остальной путь к ветви реестра, которую нужно удалить (в том числе и сам удаляемый раздел реестра).

? EnumKey — в сценарии был рассмотрен метод для энумерации параметров указанной ветви реестра, этот же метод возвращает разделы, вложенные в указанную ветвь реестра. Для его работы необходимы следующие параметры: идентификатор корневого раздела ветви реестра (аналог переменной RootKey приведенного сценария), остальной путь к ветви реестра, разделы которой нужно перечислить, а также переменная, используемая для хранения массива найденных в указанной ветви разделов (например, аналог переменной names нашего сценария).

? DeleteValue — удаляет указанный параметр из ветви реестра. Для его работы необходимо указать следующие три параметра: идентификатор корневого раздела ветви реестра (аналог переменной RootKey приведенного сценария), остальной путь к ветви реестра, содержащей удаляемый параметр, а также название удаляемого параметра (если название не указано, то будет удалено значение параметра (По умолчанию) ).

? SetDWORDValue — создает или изменяет указанный параметр DWORD-типа в ветви реестра. Для его работы необходимо указать следующие четыре параметра: идентификатор корневого раздела ветви реестра (аналог переменной RootKey приведенного сценария), остальной путь к ветви реестра, содержащей изменяемый параметр, название изменяемого параметра (или создаваемого), а также новое значение, которое необходимо присвоить указанному параметру. Если название изменяемого параметра указано не будет, то нужно изменить значение параметра (По умолчанию) данной ветви реестра.

? CheckAccess — определяет, разрешен ли пользователю доступ к указанной ветви реестра. Если метод выполнился успешно, то он возвратит значение 0, иначе — любое другое значение. Для его работы необходимы следующие четыре параметра: идентификатор корневого раздела ветви реестра (аналог переменной RootKey приведенного сценария), остальной путь к ветви реестра, права на которую необходимо проверить, флаг для определения проверяемых прав, а также переменная, в которую будет помещен результат выполнения метода. Если значение этой переменной будет равно true, то пользователь обладает нужными правами на данную ветвь реестра, иначе возвращается значение false.

Флаг для определения проверяемых прав является битовой маской, значения которой определены в файле Winnt.h. Этот флаг может содержать следующие значения:

? 0X0001 — KEY_QUERY_VALUE (разрешено запрашивать значения из дочерних разделов вашей ветви реестра);

? 0X0002 — KEY_SET_VALUE (разрешено создание, удаление и установка значений параметров вашей ветви реестра);

? 0X0004 — KEY_CREATE_SUB_KEY (разрешено создание и удаление дочерних разделов вашей ветви реестра);

? 0X0008 — KEY_ENUMERATE_SUB_KEYS (разрешена энумерация дочерних разделов вашей ветви реестра);

? 0X0010 — KEY_NOTIFY (разрешен вывод подтверждения на запрос изменения параметров или дочерних разделов вашей ветви реестра);

? 0X0020 — KEY_CREATE_LINK (используется системой);

? 0x00010000 — DELETE (разрешено удаление);

? 0x00020000 — READ_CONTROL (разрешено управление чтением);

? 0X00040000— WRITE_DAC (разрешен избирательный контроль над доступом к записи);

? 0X00080000 — WRITE_OWNER (разрешено изменение владельца ветви).

В классе StdRegProv также описаны методы SetBinaryValue, SetExpandedStringValue, SetMultiStringValue, SetStringValue, но мы их описывать не будем, так как их вызов аналогичен вызову описанного выше метода SetDWORDValue.

Оглавление книги