VBS/WSH/JS - [решено] Найти количество подразделов в разделе.

amel27 · Отправлено: **16:12, 21-10-2009** | #2

Цитата zxch:

Помогите пожалуйста ссылкой/советом/куском кода. »

Код:

Const HKCR = &H80000000
Const HKCU = &H80000001
Const HKLM = &H80000002
Const HKU  = &H80000003

Dim objReg, strPath, arrSubKeys

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

objReg.EnumKey HKLM, strPath, arrSubKeys

' ----------------------------------------
' Вывод массива и его размерности на экран
' ----------------------------------------

If Not(IsArray(arrSubKeys)) Then WScript.Quit
strSubKeys = UBound(arrSubKeys) & vbCrLf & "---" & vbCrLf

For Each strSubKey In arrSubKeys
   strSubKeys = strSubKeys & strSubKey & vbCrLf
Next

WScript.Echo strSubKeys

zxch · Отправлено: **21:43, 21-10-2009** | #3

amel27
Спасибо Вам, то что нужно!

mbf-4 · Отправлено: **16:36, 25-03-2011** | #4

Цитата amel27:

If Not(IsArray(arrSubKeys)) Then WScript.Quit

Не мог бы кто нибудь сказать почему метод EnumKey бывает что возвращает не массив а NULL? тут столь элегантно обходится этот вопрос...
Например, пытаюсь прочитать подразделы ключа:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate

в результате при перечислении в цикле обращение к arrSubKeys бомбит ошибками типа "обьект не является семейством", "несоответствие типа" и пр... такое бывает на разных ключах, влияние разрешений на ветку не выявлено.

mbf-4 · Отправлено: **17:04, 25-03-2011** | #5

Похоже что на системах Win7x64 скрипт читает этот раздел из ветки WOW6432Node, где WindowsUpdate соотв-но нету, отсюда нестыковки. Походу дело в этом... и как быть тогда?