VBScript - Read From Registry

Here is a quick and dirty function for reading a registry value using the WScript.Shell object:

function readFromRegistry (strRegistryKey, strDefault )

• Dim WSHShell, value


• On Error Resume Next


• Set WSHShell = CreateObject("WScript.Shell")


• value = WSHShell.RegRead( strRegistryKey )



• if err.number <> 0 then


• readFromRegistry= strDefault


• else


• readFromRegistry=value


• end if



• set WSHShell = nothing

end function

Usage:

str = readfromRegistry("HKEY_LOCAL_MACHINE\SOFTWARE\Adobe\ESD\Install_Dir", "ha")

wscript.echo "returned " & str