レジストリの値を読み込む: StdRegProv
■Topics
レジストリの値を読み込むサンプルです。名前空間が「root\default」、クラスが「StdRegProv」になります。
Private Sub Command1_Click()
Dim Reg As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim sRet As String
Dim lRet As Long
Dim bRet() As Variant
Dim TmpbRet 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.GetStringValue HKEY_LOCAL_MACHINE, _
"SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOwner", sRet
'DWORD値
Reg.GetDWORDValue HKEY_LOCAL_MACHINE, _
"SOFTWARE\Microsoft\Windows NT\CurrentVersion", "InstallDate", lRet
'バイナリ値
Reg.GetBinaryValue HKEY_LOCAL_MACHINE, _
"SOFTWARE\Microsoft\Windows NT\CurrentVersion", "LicenseInfo", bRet
For I = 0 To Ubound(bRet)
TmpbRet = TmpbRet & Hex(bRet(i)) & " "
Next
MsgBox "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersionキーの" & _
"一部を読んだ結果です。" & vbCrLf & vbCrLf & _
"RegisteredOwner(文字列値):" & vbCrLf & sRet & vbCrLf & vbCrLf & _
"InstallDate(DWORD値)" & vbCrLf & lRet & vbCrLf & vbCrLf & _
"LicenseInfo(バイナリ値)" & vbCrLf & TmpbRet & vbCrLf & vbCrLf
Set Reg = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub
Dim Reg As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim sRet As String
Dim lRet As Long
Dim bRet() As Variant
Dim TmpbRet 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.GetStringValue HKEY_LOCAL_MACHINE, _
"SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOwner", sRet
'DWORD値
Reg.GetDWORDValue HKEY_LOCAL_MACHINE, _
"SOFTWARE\Microsoft\Windows NT\CurrentVersion", "InstallDate", lRet
'バイナリ値
Reg.GetBinaryValue HKEY_LOCAL_MACHINE, _
"SOFTWARE\Microsoft\Windows NT\CurrentVersion", "LicenseInfo", bRet
For I = 0 To Ubound(bRet)
TmpbRet = TmpbRet & Hex(bRet(i)) & " "
Next
MsgBox "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersionキーの" & _
"一部を読んだ結果です。" & vbCrLf & vbCrLf & _
"RegisteredOwner(文字列値):" & vbCrLf & sRet & vbCrLf & vbCrLf & _
"InstallDate(DWORD値)" & vbCrLf & lRet & vbCrLf & vbCrLf & _
"LicenseInfo(バイナリ値)" & vbCrLf & TmpbRet & vbCrLf & vbCrLf
Set Reg = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub
実行するとレジストリの値の読み込みを行います。参照先は「HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion」です。StdRegProcクラスはWin32_&&&といったクラスとは違う名前空間に存在しているため、ConnectServerする際に名前空間が「root\default」を明示的に指定しています。
ここでは実際値を読み込む際多いと思われるものを例として書いてあります。文字列値・DWORD値・バイナリ値の3種類です。それぞれ違うメソッドが用意されていますが指定する引数は同じようなパターンです。
注意する点としては読み込みたいレジストリのパスを全て記述するわけではないというところです。パスの親ルートの名前と値の名前だけは別途指定する必要があります。親ルートを指定する型はLong形になるので事前に以下のような関連付けになっていることを意識しておくことが必要です。
・HKEY_CLASSES_ROOT = &H80000000
・HKEY_CURRENT_USER = &H80000001
・HKEY_LOCAL_MACHINE = &H80000002
・HKEY_USERS = &H80000003
・HKEY_CURRENT_CONFIG = &H80000005
・HKEY_DYN_DATA = &H80000006
もっと詳しいことはWMI SDKを見てみてください。
StdRegProv クラスに関連するサンプルは他に、
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。