Script Paradigm

レジストリの値を取得

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

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_MACHINEHKLM
HKEY_CURRENT_USERHKCU
HKEY_CLASSES_ROOTHKCR
Copyright © 2006 Hikijishi All Rights Reserved.
[] [wsh][0.00118207931518555]