dll - 使用脚本检测 DLL 版本号

Question

我想编写一个脚本，它可以递归地扫描目录中的 DLL 并生成所有版本号的报告。

如何使用脚本检测 DLL 的版本号？ VBScript 解决方案是首选，除非有更好的方法。

Answer 1

您可以使用 FileSystemObject访问文件系统及其GetFileVersion的对象获取文件版本信息的方法。

您要求提供一个 VBScript 示例，所以这里是:

Dim oFSO : Set oFSO = CreateObject("Scripting.FileSystemObject")
PrintDLLVersions oFSO.GetFolder(WScript.Arguments.Item(0))

Sub PrintDLLVersions(Folder)
  Dim oFile, oSubFolder

  ' Scan the DLLs in the Folder
  For Each oFile In Folder.Files
    If UCase(oFSO.GetExtensionName(oFile)) = "DLL" Then
      WScript.Echo oFile.Path & vbTab & oFSO.GetFileVersion(oFile)
    End If
  Next

  ' Scan the Folder's subfolders
  For Each oSubFolder In Folder.SubFolders
    PrintDLLVersions oSubFolder
  Next
End Sub

用法:

> cscript //nologo script-file.vbs folder > out-file

例如:

> cscript //nologo dll-list.vbs C:\Dir > dll-list.txt

样本输出:

C:\Dir\foo.dll 1.0.0.1C:\Dir\bar.dll  1.1.0.0C:\Dir\SubDir\foobar.dll    4.2.0.0...