レジストリの値を取得

レジストリキーとエントリ名を振るパスで指定することにより、そのレジストリエントリの値を取得します。

Option Explicit
MsgBox fnGetReg("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\CommonFilesDir")
Function fnGetReg(ByVal strRegPath)
    Dim objShell
    
    Set objShell = CreateObject("WScript.Shell")
    fnGetReg = objShell.RegRead(strRegPath)
    Set objShell = Nothing
End Function

上記レジストリキーのルート「HKLM」というのは「HKEY_LOCAL_MACHINE」の略で、他にも以下のような記述が可能です。

ルート	省略形
HKEY_LOCAL_MACHINE	HKLM
HKEY_CURRENT_USER	HKCU
HKEY_CLASSES_ROOT	HKCR

Script Paradigm

各種処理

レジストリの値を取得