[VBS] レジストリの値を取得するシンプルな方法

Programming VBScript 2020/08/24

VBScriptでレジストリの値を取得したい場合は、以下の方法でできます。

以下の画像の値を取得したいとします。

以下のコードで取得できます。

dim oShell
dim key1, key2

Set oShell = WScript.CreateObject("WScript.Shell")

' 規定値を取得する場合（最後に\をつける）
key1 = oShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Access\Security\Trusted Locations\Location2\")

' キーを取得する場合
key2 = oShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Access\Security\Trusted Locations\Location2\path")

WScript.Echo "key1: " & key1 & vbCrLf & _ 
             "key2: " & key2

実行すると、以下のように取得できるていることが確認できます。