質問編集履歴
1
質問の仕方を変更しました。
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
vbsで、インストールされている
|
|
1
|
+
vbsで、インストールされているExcelのバージョンとbit数を取得したいがエラーがでる
|
test
CHANGED
|
@@ -1,6 +1,22 @@
|
|
|
1
|
-
vbsで、インストールされているoffice 又は Excelのバージョンとbit数を取得したいのですが、
|
|
1
|
+
vbsで、インストールされているoffice 又は Excelのバージョンとbit数を取得したいのですが、上手くいきません。
|
|
2
2
|
|
|
3
|
-
|
|
3
|
+
Option Explicit
|
|
4
|
+
|
|
5
|
+
|
|
6
|
+
|
|
7
|
+
Dim fso, wss, cmdline, result
|
|
8
|
+
|
|
9
|
+
Set fso = CreateObject("Scripting.FileSystemObject")
|
|
10
|
+
|
|
11
|
+
Set wss = CreateObject("WScript.Shell")
|
|
12
|
+
|
|
13
|
+
cmdline = Mid(fso.OpenTextFile(WScript.ScriptFullName).ReadLine, 2)
|
|
14
|
+
|
|
15
|
+
result = wss.Exec(cmdline).StdOut.ReadAll ← result で指定されたﾌｧｲﾙが見つからないとでます。
|
|
16
|
+
|
|
17
|
+
WScript.Echo result
|
|
18
|
+
|
|
19
|
+
|
|
4
20
|
|
|
5
21
|
|
|
6
22
|
|