締切済み

VBSでOFFICEのバージョンを取得するには？

2017/12/07 08:41

PC情報を取得するVBSを作成しています。作業手順はUSBにVBSを保存して、各PCにて実行する。実行結果はVBSと同じフォルダにCSV形式（追加書き）で保存され１０台で実行すると１０行の一覧表が出来上がるという段取りです。 PC名、Windowsのバージョン、IEのバージョン、IPアドレスなど取得したい情報を取り出し、CSVに書き出し、まぁまぁ動くのですが、唯一OFFICEのバージョン（２００７とか２０１０とか２０１３とか）を判別出来ず、判別不能で処理がVBSが終了してしまいます。 WINDOWS（７以降、XPもあるか？）でインストしているOFFICEのバージョンを取り出す方法を教えて下さい。あまり詳しくないのでコピペしてメモ帳でVBSとして保存すれば動く状態でご教授お願いします。

hch_helpdesk
お礼率0% (0/26)

Visual Basic
回答数2
ありがとう数3

みんなの回答 （2）
専門家の回答

みんなの回答

watabe007
ベストアンサー率62% (476/760)

2017/12/07 11:37 回答No.2

Excelのバージョンなら Option Explicit Dim objExcel, verExcel, Ver Set objExcel = CreateObject("Excel.Application") verExcel = int(objExcel.Version) objExcel.Quit Set objExcel = Nothing If verExcel >= 16 Then Ver = "2016" ElseIf verExcel >= 15 Then Ver = "2013" ElseIf verExcel >= 14 Then Ver = "2010" ElseIf verExcel >= 12 Then Ver = "2007" ElseIf verExcel >= 11 Then Ver = "2003" ElseIf verExcel >= 10 Then Ver = "2002" ElseIf verExcel >= 9 Then Ver = "2000" ElseIf verExcel >= 8 Then Ver = "97" ElseIf verExcel >= 7 Then Ver = "995" ElseIf verExcel >= 8 Then Ver = "不明" End If MsgBox "Excel" & Ver & " です。"