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

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