レジストリの値を書き込む: StdRegProv - WMI Sample (VBS)

Topics

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

従来のVB(VB6)版のサンプルはこちらで公開しています。

Sample Code

Option Explicit

'WMIにて使用する各種オブジェクトを定義・生成する。
Dim oClass
Dim oLocator
Dim oService
Dim lRet
Dim bBinaryValue
Const HKEY_LOCAL_MACHINE = &H80000002

'ローカルコンピュータに接続する。
Set oLocator = WScript.CreateObject("WbemScripting.SWbemLocator")
Set oService = oLocator.ConnectServer(, "root\default")
'クエリー条件をWQLにて指定する。
Set oClass = oService.Get("StdRegProv")

'文字列値
lRet = oClass.SetStringValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Toh\WMI", "StringValue", "テスト文字列")

If lRet = 0 Then
MsgBox "文字列値の作成に成功しました。"
Else
MsgBox "文字列値の作成に失敗しました。"
End If

'DWORD値
oClass.SetDWORDValue HKEY_LOCAL_MACHINE, "SOFTWARE\Toh\WMI", "DWORDValue", &HFF

If lRet = 0 Then
MsgBox "DWORD値の作成に成功しました。"
Else
MsgBox "DWORD値の作成に失敗しました。"
End If

'バイナリ値
bBinaryValue = Array(&H4B, &H4F, &H54, &H4F, &H42, &H55, &H4B, &H49)

oClass.SetBinaryValue HKEY_LOCAL_MACHINE, "SOFTWARE\Toh\WMI", "BinaryValue", bBinaryValue

If lRet = 0 Then
MsgBox "バイナリ値の作成に成功しました。"
Else
MsgBox "バイナリ値レジストリの値の作成に失敗しました。"
End If

'使用した各種オブジェクトを後片付けする。
Set oClass = Nothing
Set oService = Nothing
Set oLocator = Nothing

Comment

実行すると文字列、DWORD、バイナリ値の作成を行います。作成先はサンプルとして「HKEY_LOCAL_MACHINE\SOFTWARE\Toh\WMI」になります。
レジストリの値を読み込むでも紹介している通り、値を書き込む場合でもそれぞれ値の型によって使用するメソッドが変わってきます。

StdRegProv クラスに関連するサンプルは他に、

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

Recommended book

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

Latest sample information

最近WMI Sampleへ追加したサンプルのご紹介です。

興味のあるサンプル・クラスがありましたら参考にしてみて下さい。