Soft

[no found]

ССЫЛКИ

[no found]

Здавствуйте уважаемые подписчики

Рецепты 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

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

Источник: http://www.script coding.info/