Определение номера версии библиотеки 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 скрипт-файл.vbs папка > выходной файл

например ,:

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

Выборочный вывод:

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

Answer 2

РЕДАКТИРОВАТЬ Я думаю, что это источник, на который я ссылался

Это сценарий, который я использую, прошу прощения, но я не помню откуда. (Итак, читатель, если это началось как ваш скрипт, пожалуйста, сделайте шаг вперед). Он использует FileSystemObject, который может напрямую получать версию.

@echo off
setlocal
set vbs="%temp%\filever.vbs"
set file=%1

echo Set oFSO = CreateObject("Scripting.FileSystemObject") >%vbs%
echo WScript.Echo oFSO.GetFileVersion(WScript.Arguments.Item(0)) >>%vbs%

for /f "tokens=*" %%a in (
'cscript.exe //Nologo %vbs% %file%') do set filever=%%a

del %vbs%
echo Full file version of %file% is: %filever%

for /f "tokens=2 delims=. " %%a in ("%filever%") do set secondparam=%%a
set splevel=%secondparam:~0,1%
echo SP level is: %splevel%

endlocal
pause