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