レジストリの値を書き込む: StdRegProv
■Topics
レジストリの値を書き込むサンプルです。名前空間が「root\default」、クラスが「StdRegProv」になります。
Private Sub Command1_Click()
Dim Reg As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim Ret As Long
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer(vbNullString, "root\default")
Set Reg = Service.Get("StdRegProv")
Dim BinaryValue
Const HKEY_LOCAL_MACHINE = &H80000002
'文字列値
Ret = Reg.SetStringValue(HKEY_LOCAL_MACHINE, _
"SOFTWARE\Kotobuki\WMI", "StringValue", "テスト文字列")
If Ret = 0 Then
MsgBox "文字列値の作成に成功しました。"
Else
MsgBox "文字列値の作成に失敗しました。"
End If
'DWORD値
Reg.SetDWORDValue HKEY_LOCAL_MACHINE, _
"SOFTWARE\Kotobuki\WMI", "DWORDValue", &HFF
If Ret = 0 Then
MsgBox "DWORD値の作成に成功しました。"
Else
MsgBox "DWORD値の作成に失敗しました。"
End If
'バイナリ値
BinaryValue = Array(&H4B, &H4F, &H54, &H4F, &H42, &H55, &H4B, &H49)
Reg.SetBinaryValue HKEY_LOCAL_MACHINE, _
"SOFTWARE\Kotobuki\WMI", "BinaryValue", BinaryValue
If Ret = 0 Then
MsgBox "バイナリ値の作成に成功しました。"
Else
MsgBox "バイナリ値レジストリの値の作成に失敗しました。"
End If
Set Reg = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub
Dim Reg As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim Ret As Long
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer(vbNullString, "root\default")
Set Reg = Service.Get("StdRegProv")
Dim BinaryValue
Const HKEY_LOCAL_MACHINE = &H80000002
'文字列値
Ret = Reg.SetStringValue(HKEY_LOCAL_MACHINE, _
"SOFTWARE\Kotobuki\WMI", "StringValue", "テスト文字列")
If Ret = 0 Then
MsgBox "文字列値の作成に成功しました。"
Else
MsgBox "文字列値の作成に失敗しました。"
End If
'DWORD値
Reg.SetDWORDValue HKEY_LOCAL_MACHINE, _
"SOFTWARE\Kotobuki\WMI", "DWORDValue", &HFF
If Ret = 0 Then
MsgBox "DWORD値の作成に成功しました。"
Else
MsgBox "DWORD値の作成に失敗しました。"
End If
'バイナリ値
BinaryValue = Array(&H4B, &H4F, &H54, &H4F, &H42, &H55, &H4B, &H49)
Reg.SetBinaryValue HKEY_LOCAL_MACHINE, _
"SOFTWARE\Kotobuki\WMI", "BinaryValue", BinaryValue
If Ret = 0 Then
MsgBox "バイナリ値の作成に成功しました。"
Else
MsgBox "バイナリ値レジストリの値の作成に失敗しました。"
End If
Set Reg = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub
実行すると文字列、DWORD、バイナリ値の作成を行います。作成先は「HKEY_LOCAL_MACHINE\SOFTWARE\Kotobuki\WMI」になります。
レジストリの値を読み込むでも紹介している通り、値を書き込む場合でもそれぞれ値の型によって使用するメソッドが変わってきます。
StdRegProv クラスに関連するサンプルは他に、
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。