レジストリの値を削除する: 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.DeleteValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Kotobuki\WMI", "StringValue")
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.DeleteValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Kotobuki\WMI", "StringValue")
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\StringValue」になります。
DeleteValueメソッドを実行することによって値が削除され、処理が終了すれば「0」が帰ってきます。
StdRegProv クラスに関連するサンプルは他に、
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。