|
オラクルのインストール情報ですが、レジストリのLOCAL_MACHINE上、
SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall
にはなかったのですが、オラクルクライアントがインストールされていれば、
SOFTWARE\ORACLE
があると思われる(インストールされていないならこのパスが無い)ので、
DEF_MACHINE = "."
HKEY_LOCAL_MACHINE = &H80000002
REG_PATH_ORA = "SOFTWARE\ORACLE"
With CreateObject("WbemScripting.SWbemLocator").ConnectServer(DEF_MACHINE, _
"root\default").Get("StdRegProv")
ret = .EnumKey(HKEY_LOCAL_MACHINE, REG_PATH_ORA, arrSubKeys)
If ret = 0 Then
'Installed
Else
'NOT Installed
End If
End With
とするようにしました。
本来は、ツールで使用しているプロパイダのMSDAORA が使えるかどうかの判断をしないといけないのでしょうけど、
とりあえず解決です。
|