Рецепты WMI: работа с реестром Windows

Примеры кода в статье приводятся на языке VBScript для административных сценариев Windows.

Класс StdRegProv

Класс StdRegProv служит для работы с системным реестром Windows и располагается в пространстве имён \\root\default.

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

const HKEY_CLASSES_ROOT = &H80000000

const HKEY_CURRENT_USER = &H80000001

const HKEY_LOCAL_MACHINE = &H80000002

const HKEY_USERS = &H80000003

const HKEY_CURRENT_CONFIG = &H80000005

const HKEY_DYN_DATA = &H80000006 'только для Windows 95 и Windows 98

Также соответствующими шестнадцатеричными значениями обозначаются права доступа на разделы или параметры реестра:

const KEY_QUERY_VALUE = &H1 'запрос значения

const KEY_SET_VALUE = &H2 'создание, удаление и установка значения

const KEY_CREATE_SUB_KEY = &H4 'создание подразделов

const KEY_ENUMERATE_SUB_KEYS = &H8 'перебор подразделов

const KEY_NOTIFY = &H10 'запрос уведомлений об изменении раздела и его подразделов

const KEY_CREATE_LINK = &H20 'создание связи

const DELETE = &H10000 'удаление раздела

const READ_CONTROL = &H20000 'комбинация STANDARD_RIGHTS_READ, KEY_QUERY_VALUE, KEY_ENUMERATE_SUB_KEYS и KEY_NOTIFY

const WRITE_DAC = &H40000 'изменение DAC дескриптора безопасности

const WRITE_OWNER = &H80000 'изменение владельца дескриптора безопасности

Соответствующими целыми значениями обозначаются типы данных параметров реестра:

const REG_SZ = 1

const REG_EXPAND_SZ = 2

const REG_BINARY = 3

const REG_DWORD = 4

const REG_MULTI_SZ = 7

Методы класса:

Метод	Описание
CheckAccess(hDefKey, sSubKeyName, lRequired, bGranted)	Проверяет, имеет ли пользователь указанные разрешения. Возвращает целое число (код ошибки) или 0, если метод завершён успешно. Параметры: hDefKey - ветвь реестра, в которой находится проверяемый раздел. По умолчанию - HKEY_LOCAL_MACHINE (&H80000002). sSubKeyName - проверяемый раздел. lRequired - право доступа, наличие которого проверяется. По умолчанию - KEY_QUERY_VALUE и KEY_SET_VALUE (3). bGranted - если после выполнения метода этот параметр равен True, пользователь имеет указанное право.
CreateKey(hDefKey, sSubKeyName)	Создаёт подраздел указанного раздела. Возвращает целое число (код ошибки) или 0, если метод завершён успешно. Параметры: hDefKey - ветвь реестра, в которой будет находиться создаваемый раздел. По умолчанию - HKEY_LOCAL_MACHINE (&H80000002). sSubKeyName - раздел, который будет создан. Метод создаст все разделы, указанные в пути, которые ещё не существуют.
DeleteKey(hDefKey, sSubKeyName)	Удаляет подраздел указанного раздела. Возвращает целое число (код ошибки) или 0, если метод завершён успешно. Чтобы удалить раздел, необходимо сначала удалить все его подразделы. Параметры: hDefKey - ветвь реестра, в которой находится удаляемый раздел. По умолчанию - HKEY_LOCAL_MACHINE (&H80000002). sSubKeyName - раздел, который будет удалён.
DeleteValue(hDefKey, sSubKeyName, sValueName)	Удаляет указанный параметр в определённом разделе. Возвращает целое число (код ошибки) или 0, если метод завершён успешно. Параметры: hDefKey - ветвь реестра, в которой находится удаляемый параметр. По умолчанию - HKEY_LOCAL_MACHINE (&H80000002). sSubKeyName - раздел, который содержит удаляемый параметр. sValueName - имя параметра, который будет удалён. Укажите пустую строку, чтобы присвоить параметру по умолчанию значение "value not set" ("значение не присвоено").
EnumKey(hDefKey, sSubKeyName, sNames[])	Перечисляет подразделы указанного раздела. Возвращает целое число (код ошибки) или 0, если метод завершён успешно. Параметры: hDefKey - ветвь реестра, в которой находится раздел. По умолчанию - HKEY_LOCAL_MACHINE (&H80000002). sSubKeyName - раздел. sNames - массив строк, содержащий подразделы (после выполнения метода).
EnumValues(hDefKey, sSubKeyName, sNames[], Types[])	Перечисляет параметры указанного раздела. Возвращает целое число (код ошибки) или 0, если метод завершён успешно. Параметры: hDefKey - ветвь реестра, в которой находится раздел. По умолчанию - HKEY_LOCAL_MACHINE (&H80000002). sSubKeyName - раздел. sNames - массив строк, содержащий имена параметров (после выполнения метода). Точно корреспондирует с массивом Types. Types - массив целочисленных значений типов данных параметров (после выполнения метода). Точно корреспондирует с массивом sNames.
GetBinaryValue(hDefKey, sSubKeyName, sValueName, Value[]) GetDWORDValue(hDefKey, sSubKeyName, sValueName, Value) GetExpandedStringValue(hDefKey, sSubKeyName, sValueName, Value) GetMultiStringValue(hDefKey, sSubKeyName, sValueName, Value[]) GetStringValue(hDefKey, sSubKeyName, sValueName, Value)	Возвращает значение для указанного параметра, тип данных которого - REG_BINARY, REG_DWORD, REG_EXPAND_SZ, REG_MULTI_SZ или REG_SZ соответственно (конкретный метод нужно выбирать по типу данных параметра). Возвращает целое число (код ошибки) или 0, если метод завершён успешно. Параметры: hDefKey - ветвь реестра, в которой находится параметр. По умолчанию - HKEY_LOCAL_MACHINE (&H80000002). sSubKeyName - раздел, в котором находится параметр. sValueName - имя параметра, значение которого должно быть возвращено. Укажите пустую строку, чтобы получить значение параметра по умолчанию. Value - значение параметра: массив байтов, значение DWORD, строка или массив строк (после выполнения метода).
SetBinaryValue(hDefKey, sSubKeyName, sValueName, Value[]) SetDWORDValue(hDefKey, sSubKeyName, sValueName, Value) SetExpandedStringValue(hDefKey, sSubKeyName, sValueName, Value) SetMultiStringValue(hDefKey, sSubKeyName, sValueName, Value) SetStringValue(hDefKey, sSubKeyName, sValueName, Value)	Устанавливает значение для указанного параметра, тип данных которого - REG_BINARY, REG_DWORD, REG_EXPAND_SZ, REG_MULTI_SZ или REG_SZ соответственно (конкретный метод нужно выбирать по типу данных параметра). Возвращает целое число (код ошибки) или 0, если метод завершён успешно. Параметры: hDefKey - ветвь реестра, в которой находится параметр. По умолчанию - HKEY_LOCAL_MACHINE (&H80000002). sSubKeyName - раздел, в котором находится параметр. sValueName - имя параметра, значение которого должно быть установлено. Укажите пустую строку, чтобы установить значение параметра по умолчанию. Если указанный параметр не существует, он будет создан. Value - значение параметра: массив байтов, значение DWORD, строка или массив строк.

Примеры скриптов

Создание разделов и параметров:

On Error Resume Next

const HKEY_CURRENT_USER = &H80000001

'подключение к WMI

Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

If Err.Number <> 0 Then

WScript.Echo Err.Number & ": " & Err.Description

WScript.Quit

End If

'Создание разделов

intRes = objReg.CreateKey(HKEY_CURRENT_USER, "MyKey\MySubKey")

If intRes <> 0 Then

WScript.Echo intRes & ": не удалось создать разделы реестра"

WScript.Quit

End If

'Создание параметров

intRes = objReg.SetStringValue(HKEY_CURRENT_USER, "MyKey\MySubKey", "MyParam", "MyValue")

If intRes <> 0 Then

WScript.Echo intRes & ": не удалось установить параметр ""HKEY_CURRENT_USER\MyKey\MySubKey\MyParam"""

WScript.Quit

End If

intRes = objReg.SetStringValue(HKEY_CURRENT_USER, "MyKey", "", "MyDefaultValue")

If intRes <> 0 Then

WScript.Echo intRes & ": не удалось установить параметр ""HKEY_CURRENT_USER\MyKey\(По умолчанию)"""

WScript.Quit

End If

'Вывод сообщений

WScript.Echo "Созданы параметры:"

WScript.Echo "HKEY_CURRENT_USER\MyKey\MySubKey\MyParam (значение ""MyValue"")"

WScript.Echo "HKEY_CURRENT_USER\MyKey\(По умолчанию) (значение ""MyDefaultValue"")"

Проверка разрешений:

On Error Resume Next

const HKEY_CURRENT_USER = &H80000001

const KEY_CREATE_SUB_KEY = &H4

'подключение к WMI

Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

If Err.Number <> 0 Then

WScript.Echo Err.Number & ": " & Err.Description

WScript.Quit

End If

'проверка прав на создание подразделов

intRes = objReg.CheckAccess(HKEY_CURRENT_USER, "MyKey\MySubKey", KEY_CREATE_SUB_KEY, bGranted)

If intRes <> 0 Then

WScript.Echo intRes & ": не удалась проверка прав на создание подразделов ""HKEY_CURRENT_USER\MyKey\MySubKey"""

WScript.Quit

End If

'вывод сообщений

If bGranted Then

WScript.Echo "Право на создание подразделов в ""HKEY_CURRENT_USER\MyKey\MySubKey"" есть."

Else

WScript.Echo "Права на создание подразделов в ""HKEY_CURRENT_USER\MyKey\MySubKey"" нет."

End If

Удаление разделов:

On Error Resume Next

const HKEY_CURRENT_USER = &H80000001

'подключение к WMI

Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

If Err.Number <> 0 Then

WScript.Echo Err.Number & ": " & Err.Description

WScript.Quit

End If

'удаление разделов

intRes = objReg.DeleteKey(HKEY_CURRENT_USER, "MyKey\MySubKey")

If intRes <> 0 Then

WScript.Echo intRes & ": не удалась удалить раздел ""HKEY_CURRENT_USER\MyKey\MySubKey"""

WScript.Quit

End If

intRes = objReg.DeleteKey(HKEY_CURRENT_USER, "MyKey")

If intRes <> 0 Then

WScript.Echo intRes & ": не удалась удалить раздел ""HKEY_CURRENT_USER\MyKey"""

WScript.Quit

End If

'вывод сообщений

WScript.Echo "Раздел ""HKEY_CURRENT_USER\MyKey"" удалён."

Рекурсивный обход раздела и чтение значений:

On Error Resume Next

const HKEY_CURRENT_USER = &H80000001

'подключение к WMI

Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

If Err.Number <> 0 Then

WScript.Echo Err.Number & ": " & Err.Description

WScript.Quit

End If

'рекурсивный обход ветви реестра

ReadKey "Software\ODBC"

'**************************************************************************************************

Function ReadKey(strKey)

'Чтение параметров раздела

intRes = objReg.EnumValues(HKEY_CURRENT_USER, strKey, sNames, Types)

If intRes <> 0 Then

WScript.Echo intRes & ": не удалась прочитать раздел ""HKEY_CURRENT_USER\" & strKey & """"

WScript.Quit

End If

If IsArray(sNames) Then

i = 0

For Each Param In sNames

If Types(i) = 1 Then

intRes = objReg.GetStringValue(HKEY_CURRENT_USER, strKey, Param, Val)

Elseif Types(i) = 2 Then

intRes = objReg.GetExpandedStringValue(HKEY_CURRENT_USER, strKey, Param, Val)

Elseif Types(i) = 3 Then

intRes = objReg.GetBinaryValue(HKEY_CURRENT_USER, strKey, Param, Val)

Elseif Types(i) = 4 Then

intRes = objReg.GetDWORDValue(HKEY_CURRENT_USER, strKey, Param, Val)

Elseif Types(i) = 7 Then

intRes = objReg.GetMultiStringValue(HKEY_CURRENT_USER, strKey, Param, Val)

End If

If intRes <> 0 Then

WScript.Echo intRes & ": не удалась прочитать значение параметра ""HKEY_CURRENT_USER\" & _

strKey & "\" & Param & """"

WScript.Quit

End If

If Types(i) = 3 Then

For j = 0 To UBound(Val)

Val(j) = Right("00" & Hex(Val(j)), 2)

Next

Val = Join(Val)

Elseif Types(i) = 7 Then

Val = vbCrLf & Join(Val, vbCrLf)

End If

WScript.Echo "HKEY_CURRENT_USER\" & strKey & "\, параметр """ & Param & """ = " & Val

i = i + 1

Next

End If

'Обход подразделов

intRes = objReg.EnumKey(HKEY_CURRENT_USER, strKey, sNames)

If intRes <> 0 Then

WScript.Echo intRes & ": не удалась прочитать подразделы ""HKEY_CURRENT_USER\" & strKey & """"

WScript.Quit

End If

If IsArray(sNames) Then

For Each strSubKey In sNames

ReadKey strKey & "\" & strSubKey

Next

End If

End Function

Пример чтения заданного подраздела в HKEY_CURRENT_USER другого пользователя на удалённом компьютере:

On Error Resume Next

const HKEY_USERS = &H80000003

UserName = "SuperUser" 'имя пользователя Windows, HKEY_CURRENT_USER которого надо прочитать на другой машине

CompName = "SuperComputer" 'имя компьютера, на котором надо читать реестр

Key = "Software\1C\1Cv7\7.7\Titles" 'подраздел в HKEY_CURRENT_USER, который надо прочитать

'получение SID пользователя

Set objWMIService = GetObject("winmgmts:{ImpersonationLevel=Impersonate}!\\.\root\cimv2")

If Err.Number <> 0 Then

WScript.Echo Err.Number & ": " & Err.Description

WScript.Quit

End If

Set colItems = objWMIService.ExecQuery("Select * from Win32_UserAccount WHERE Name = """ & UserName & """")

For Each objItem in colItems

strSID = Trim(objItem.SID)

Exit For

Next

'собственно чтение реестра

Set oReg = GetObject("winmgmts:{ImpersonationLevel=Impersonate}!\\" & CompName & "\root\default:StdRegProv")

If Err.Number <> 0 Then

WScript.Echo Err.Number & ": " & Err.Description

WScript.Quit

End If

strKeyPath = strSID & "\" & Key

intRes = oReg.EnumValues(HKEY_USERS, strKeyPath, arrValues)

If intRes <> 0 Then

WScript.Echo intRes & ": не удалась прочитать раздел ""HKEY_USERS\" & strKeyPath & """"

WScript.Quit

End If

For i = LBound(arrValues) To UBound(arrValues)

intRes = oReg.GetStringValue(HKEY_USERS, strKeyPath, arrValues(i), Val)

If intRes <> 0 Then

WScript.Echo intRes & ": не удалась прочитать значение параметра ""HKEY_USERS\" & _

strKeyPath & "\" & arrValues(i) & """"

WScript.Quit

End If

WScript.Echo Val

Next

Людоговский Александр

Перейти на главную страничку сайта (список статей, файлы для скачивания)

© 2007 http://www.script-coding.com При любом использовании материалов сайта обязательна ссылка на него как на источник информации, а также сохранение целостности и авторства материалов.