レジストリキーを作成する: 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")
Const HKEY_LOCAL_MACHINE = &H80000002
Ret = Reg.CreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Kotobuki\WMI")
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")
Const HKEY_LOCAL_MACHINE = &H80000002
Ret = Reg.CreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Kotobuki\WMI")
If Ret = 0 Then
MsgBox "レジストリキーの作成に成功しました。"
Else
MsgBox "レジストリキーの作成に失敗しました。"
End If
Set Reg = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub
実行するとレジストリキーの作成を行います。作成先は「HKEY_LOCAL_MACHINE\SOFTWARE\Kotobuki\WMI」になります。
CreateKeyメソッドを実行することによってキーが作成され、処理が終了すれば「0」が帰ってきます。
StdRegProv クラスに関連するサンプルは他に、
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。