VBSでOfficeのバージョン確認

Question

VBSでPCにインストールしているWindowsOfficeのバージョンを取得できるプログラムを教えて欲しいです。

プロトタイプでも結構ですのでよろしくお願いします。

Comments

[kaina]

あなたの質問タイトルでgoogle検索すると参考になりそうなページがたくさん出てきますが
ご自分で調べた上での質問でしょうか？

Answer 1

以下のコードをVBScriptとして保存し実行してみてください。

'wmic product where "Name like '%%Office%%'" get name,version

Dim fso, wss, cmdline, result
Set fso = CreateObject("Scripting.FileSystemObject")
Set wss = CreateObject("WScript.Shell")
cmdline = Mid(fso.OpenTextFile(WScript.ScriptFullName).ReadLine, 2)

result = wss.Exec(cmdline).StdOut.ReadAll

WScript.Echo result

.

※結果イメージ