回答編集履歴
1
追記
test
CHANGED
@@ -8,9 +8,7 @@
|
|
8
8
|
|
9
9
|
Function JOB_Key_Check()
|
10
10
|
|
11
|
-
dim wshShell
|
11
|
+
dim wshShell As object, strKey As String
|
12
|
-
|
13
|
-
ssig="Unable to open registry key"
|
14
12
|
|
15
13
|
set wshShell= CreateObject("WScript.Shell")
|
16
14
|
|
@@ -39,3 +37,15 @@
|
|
39
37
|
```
|
40
38
|
|
41
39
|
元のロジックでstrKeyの内容がキーの指定になっているかの判定は、不要なものとして扱ってはいません。
|
40
|
+
|
41
|
+
|
42
|
+
|
43
|
+
追記
|
44
|
+
|
45
|
+
---
|
46
|
+
|
47
|
+
動作が不定になる要因はerr.descriptionに頼っているからだと思います。
|
48
|
+
|
49
|
+
メッセージの内容は環境によって変わることがありますし。
|
50
|
+
|
51
|
+
今回のコードは結果の有無で判断しているので、それも不要です。
|