Rilevamento di un numero di versione DLL mediante uno script
Domanda
Vorrei scrivere uno script in grado di scansionare ricorsivamente le DLL in una directory e generare un rapporto di tutti i loro numeri di versione.
Come posso rilevare il numero di versione di una DLL usando uno script? Le soluzioni VBScript sono preferite, a meno che non esista un modo migliore.
Soluzione
Puoi utilizzare FileSystemObject
oggetto per accedere al file system e al suo GetFileVersion
metodo per ottenere le informazioni sulla versione del file.
Hai chiesto un esempio di VBScript, quindi eccoti qui:
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
Utilizzo:
> cscript //nologo script-file.vbs folder > out-file
per esempio:.
> cscript //nologo dll-list.vbs C:\Dir > dll-list.txt
Output di esempio:
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 ...
Altri suggerimenti
EDIT Penso che questo è la fonte a cui ho fatto riferimento
Questa è la sceneggiatura che uso, mi scuso, ma non ricordo da dove. (Quindi, lettore, se è iniziato come script, fai un passo avanti) Utilizza FileSystemObject che può ottenere direttamente la versione.
@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