VBS初心者ですが、というよりもプログラミング初心者です

Other

id:sonodamさんのところで「ブラスター避けWindowsパッチ当てられましたか確認方法」が取り上げられていたのでDll確認vbsサンプル作ってみました。ole32.dllだけなのがなんなのですが(^-^;
インデントがうまくできないので見づらくなっています。また、コピペした場合は余分な改行を取ってください。

Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Set objDLL = FS.GetFile(Fs.BuildPath(Fs.GetSpecialFolder(1).Path,"ole32.dll"))
MsgBox (objDLL.Name & "ファイル情報" & vbCR &_
        "バージョン：" & Fs.GetFileVersion(objDLL) & vbCR &_
        "作成日付：" & objDLL.DateCreated & vbCR &_
        "サイズ：" & objDLL.Size & "Byte")

でけた、たいしたものじゃないのに時間だけかかってしまった。

Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
'他のDLLファイルを調べる場合は以下を書き換える。例えば、odbc32.dllなど
dllFile=Array("ole32.dll","rpcrt4.dll","rpcss.dll")

For Each f1 In dllFile
Set objDLL = FS.GetFile(Fs.BuildPath(Fs.GetSpecialFolder(1).Path,f1))
MsgBox (objDLL.Name & "ファイル情報" & vbCR &_
        "バージョン：" & Fs.GetFileVersion(objDLL) & vbCR &_
        "作成日付：" & objDLL.DateCreated & vbCR &_
        "サイズ：" & FormatNumber(objDLL.Size,0,0,-1) & "Byte")
Next