レジストリの読み込み（WSH）

'レジストリの読み込み（WSH）
Function WSHRegRead(strKey As String)
Dim objWshShell As Object
Set objWshShell = CreateObject("WScript.Shell")
WSHRegRead = objWshShell.RegRead(strKey)
Set objWshShell = Nothing
End Function

?WSHRegRead("HKEY_LOCAL_MACHINE\Software\Netscape\Netscape Navigator\CurrentVersion")
4.75 (ja)