3流プログラマのメモ書き

元開発職→社内SE→派遣で営業支援の三流プログラマのIT技術メモ書き。 このメモが忘れっぽい自分とググってきた技術者の役に立ってくれれば幸いです。(jehupc.exblog.jpから移転中)

(WSH)VBScriptでバイナリファイルのバージョンを取得したい

当初バッチファイルでバイナリファイル(exeとかdllとか)のバージョンを取得しようと思ってましたが、別途ツールをいけないらしく結構面倒そうでした。

(とりあえず,@IT:バイナリ・ファイルのバージョンを調べるコンピュータ系blog:バイナリファイルのバージョンを調べる方法が参考になります)

VBScriptだったら簡単に取得できるようでした。

参考先まるままですが、以下のコードで取得できるようです。

dim path

path="C:\Program Files\JUJO\HardKey EG Pro\FlashCtl.dll"

MsgBox GetVersion(path)

 

Function GetVersion(pathspec)

Dim fso, temp

Set fso = CreateObject("Scripting.FileSystemObject")

temp = fso.GetFileVersion(pathspec)

If Len(temp) Then

GetVersion = temp

Else

GetVersion = "バージョン情報はありません。"

End If

End Function

参考:

VBScriptでファイルのバージョン情報を取得するには - aspxの日記2009