[レジストリの値を読み込む]

前回作成した HKEY_CURRENT_USER の WshTest を読み込みます。

【ソースコード】

[tips0112.vbs]
Option Explicit
On Error Resume Next

Dim objWshShell     ' WshShell オブジェクト

Set objWshShell = WScript.CreateObject("WScript.Shell")
If Err.Number = 0 Then
    WScript.Echo objWshShell.RegRead("HKCU\WshTest\Test1")
    WScript.Echo objWshShell.RegRead("HKCU\WshTest\Test2")
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objWshShell = Nothing

【実行結果】

C:\> cscript //NoLogo tips0112.vbs
test #1
2