レジストリの値の名前と種類を列挙する: StdRegProv - WMI Sample (VB)

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