WMI Fun !! 〜 WMIに興味がある方・システム管理者必見!! 〜
 WMI Step|WMI Sample|WMI Reference|WMI Library|Personal|Link|About WMI Fun !!

WMI Fun !! > WMI Sample (VB) > レジストリの値を削除する

Panasonic Let'snoteを長年愛用しています、その理由はMy Let'snoteで…
インクを買うよりもしかしたら安い?インクジェット複合機HP Photosmart 5510
白いご飯や日本酒にもとても合うにしんのきりこみがマイブームです

レジストリの値を削除する: StdRegProv - WMI Sample (VB)

Topics

レジストリの値を削除するサンプルプログラムです。名前空間が「root\default」、クラスが「StdRegProv」になります。

VBS(WSH)版のサンプルコードはこちらで公開しています。


Sample Code

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\Toh\WMI", "StringValue")

If Ret = 0 Then
MsgBox "レジストリの値の削除に成功しました。"
Else
MsgBox "レジストリの値の削除に失敗しました。"
End If

Set Reg = Nothing
Set Service = Nothing
Set Locator = Nothing

End Sub


Comment

実行するとレジストリの値の削除を行います。あらかじめレジストリの値を書き込むサンプルを実行しておきましょう。"削除する値は「HKEY_LOCAL_MACHINE\SOFTWARE\Kotobuki\WMI\StringValue」になります。
DeleteValueメソッドを実行することによって値が削除され、処理が終了すれば「0」が帰ってきます。

なおWMIの使い方(VB6, VBS, VBA, VB.NET, VC#, PowerShellを対象)に関してはWMI Stepも参考にしてみてください。(WMI初心者・入門編としてもおすすめです。) 各種言語を使用したWMIを使用するたたき台としてソースコードテンプレートも公開しています。WMIプログラム/スクリプト作成時に役立てば…と思っています。


Recommended book

個人的にお勧めする本の紹介です。


ご意見・ご要望・ご感想をこちらのアンケートからお待ちしています
WMIに関して調べているけど探し物が見つからない…という方はSearch Resultから検索してみましょう!!

MCP(Microsoft Certified Professional)一応MCP(Microsoft Certified Professional)、MCA(Microsoft Certified Associate)所有してたりします…

- WMI Fun !! -
http://www.wmifun.net/
Microsoft社のテクノロジーであるWMI(Windows Management Instrumentation)の使い方を
Visual Basicを使ってのんびり公開しています
WMIはVB/VBAや.Net(VB,C#)以外でもWMICやWSH(VBS,JS)・PowerShellなどスクリプト言語からも使えますよ!
Windowsベースの社内ITシステムに関する資産管理、アセットマネジメントや監視業務の効率化、 インベントリ情報収集系システムツール開発にWMIはお勧めです

This website is created by Toh.
Copyright(C) 1997-2012 WMI Fun !!. All rights reserved.
WMI Fun !!へのリンクはご自由に…相互リンクに関するお問い合わせはアンケートページからお願いします。

∧ ページの先頭へ…