vbsでレジストリに書き込む

Option Explicit
On Error Resume Next

Dim objWshShell     ' WshShell オブジェクト

Set objWshShell = WScript.CreateObject("WScript.Shell")
If Err.Number = 0 Then
    objWshShell.RegWrite "HKCU\WshTest\Test1", "test #1", "REG_SZ"
    objWshShell.RegWrite "HKCU\WshTest\Test2", 2, "REG_DWORD"
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objWshShell = Nothing

ネタ元