レジストリのサブキーを列挙する: StdRegProv
■Topics
レジストリのサブキーを列挙するサンプルです。名前空間が「root\default」、クラスが「StdRegProv」になります。
Private Sub Command1_Click()
Dim Reg As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim Sk As Variant
Dim SkSet As Variant
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer(vbNullString, "root\default")
Set Reg = Service.Get("StdRegProv")
Const HKEY_LOCAL_MACHINE = &H80000002
Reg.EnumKey HKEY_LOCAL_MACHINE, "SOFTWARE\Kotobuki", SkSet
For Each Sk In SkSet
MesStr = MesStr & Sk & vbCrLf
Next
MsgBox "レジストリのサブキーを列挙します。" & vbCrLf & vbCrLf & MesStr
Set Reg = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub
Dim Reg As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim Sk As Variant
Dim SkSet As Variant
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer(vbNullString, "root\default")
Set Reg = Service.Get("StdRegProv")
Const HKEY_LOCAL_MACHINE = &H80000002
Reg.EnumKey HKEY_LOCAL_MACHINE, "SOFTWARE\Kotobuki", SkSet
For Each Sk In SkSet
MesStr = MesStr & Sk & vbCrLf
Next
MsgBox "レジストリのサブキーを列挙します。" & vbCrLf & vbCrLf & MesStr
Set Reg = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub
実行するとレジストリのサブキーを列挙します。ただしこちらのサンプルで作成したキーの列挙を行うため事前に実行しておくことが必要です。
Enumkeyメソッドを実行するとサブキーが入ったコレクションが帰ってきますので、それを一つずつ取り出せば終了です。
StdRegProv クラスに関連するサンプルは他に、
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。