回答編集履歴
2
修正
answer
CHANGED
|
@@ -22,7 +22,7 @@
|
|
|
22
22
|
|
|
23
23
|
Set WSH = CreateObject("WScript.Shell")
|
|
24
24
|
|
|
25
|
-
sCmd = "reg query ""HKEY_LOCAL_MACHINE\SOFTWARE\ORACLE\KEY_"
|
|
25
|
+
sCmd = "reg query ""HKEY_LOCAL_MACHINE\SOFTWARE\ORACLE\KEY_" & vHOME_NAME & """ /v ""ORACLE_HOME"""
|
|
26
26
|
Set wExec = WSH.Exec("%ComSpec% /c " & sCmd)
|
|
27
27
|
Do While wExec.Status = 0
|
|
28
28
|
DoEvents
|
1
追記
answer
CHANGED
|
@@ -1,3 +1,6 @@
|
|
|
1
|
+
WScript.Shellを利用して標準出力の結果を取得する
|
|
2
|
+
---
|
|
3
|
+
|
|
1
4
|
ORACLE_HOMEのレジストリ値取得であれば以下のようなコードでできると思います。
|
|
2
5
|
```
|
|
3
6
|
Sub Sample()
|