単純にキーを掘り出して取得するだけ ---------------------------------------------------------------- Const HKEY_LOCAL_MACHINE = &H80000002 strKeyPath = "SOFTWARE\**" Sub EnumerateKeys(hive, key) WScript.Echo key reg.EnumKey hive, key, arrSubKeys If Not IsNull(arrSubKeys) Then For Each subkey In arrSubKeys EnumerateKeys hive, key & "\" & subkey Next End If End Sub Set reg = GetObject("winmgmts://./root/default:StdRegProv") EnumerateKeys HKEY_LOCAL_MACHINE, strKeyPath

単純にキーを掘り出して取得するだけ ---------------------------------------------------------------- Const HKEY_LOCAL_MACHINE...
=======================================

単純にキーを掘り出して取得するだけ

----------------------------------------------------------------
Const HKEY_LOCAL_MACHINE = &H80000002
strKeyPath = "SOFTWARE\**"

Sub EnumerateKeys(hive, key)
WScript.Echo key
reg.EnumKey hive, key, arrSubKeys
If Not IsNull(arrSubKeys) Then
For Each subkey In arrSubKeys
EnumerateKeys hive, key & "\" & subkey
Next
End If
End Sub

Set reg = GetObject("winmgmts://./root/default:StdRegProv")

EnumerateKeys HKEY_LOCAL_MACHINE, strKeyPath

http://ift.tt/1abnmbU
June 19, 2017 at 06:08PM