レジストリの値の名前と種類を列挙する: StdRegProv
■Topics
レジストリの値の名前と種類を列挙するサンプルです。名前空間が「root\default」、クラスが「StdRegProv」になります。
Private Sub Command1_Click()
Dim Reg As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim RegName As Variant
Dim RegType As Variant
Dim MesStr As String
Dim TypeStr As String
Dim I As Long
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer(vbNullString, "root\default")
Set Reg = Service.Get("StdRegProv")
Const HKEY_LOCAL_MACHINE = &H80000002
Reg.EnumValues HKEY_LOCAL_MACHINE, _
"SOFTWARE\Microsoft\Windows NT\CurrentVersion", RegName, RegType
For I = 0 To Ubound(RegName)
Select Case RegType(i)
Case 1
TypeStr = "REG_SZ"
Case 2
TypeStr = "REG_EXPAND_SZ"
Case 3
TypeStr = "REG_BINARY"
Case 4
TypeStr = "REG_DWORD"
Case 7
TypeStr = "REG_MULTI_SZ"
End Select
MesStr = MesStr & RegName(i) & " : " & TypeStr & 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 RegName As Variant
Dim RegType As Variant
Dim MesStr As String
Dim TypeStr As String
Dim I As Long
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer(vbNullString, "root\default")
Set Reg = Service.Get("StdRegProv")
Const HKEY_LOCAL_MACHINE = &H80000002
Reg.EnumValues HKEY_LOCAL_MACHINE, _
"SOFTWARE\Microsoft\Windows NT\CurrentVersion", RegName, RegType
For I = 0 To Ubound(RegName)
Select Case RegType(i)
Case 1
TypeStr = "REG_SZ"
Case 2
TypeStr = "REG_EXPAND_SZ"
Case 3
TypeStr = "REG_BINARY"
Case 4
TypeStr = "REG_DWORD"
Case 7
TypeStr = "REG_MULTI_SZ"
End Select
MesStr = MesStr & RegName(i) & " : " & TypeStr & vbCrLf
Next
MsgBox "レジストリの値の名前と種類を列挙します。" & vbCrLf & vbCrLf & MesStr
Set Reg = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub
実行するとレジストリの値の名前と種類の列挙を行います。参照先は「HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion」です。EnumValuesメソッドを実行すると指定したキーにある値の名前と種類が入ったコレクションが帰ってきますので、それらを分析してあげれば一覧の取得が可能です。
StdRegProv クラスに関連するサンプルは他に、
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。