Код:
;$sFile = @WindowsDir & "\Notepad.exe"
;$sFile = @WindowsDir & "\Explorer.exe"
;$sFile = @ScriptFullPath
$sFile = @AutoItExe
$sResourses = _
'Comments,InternalName,ProductName,CompanyName,LegalCopyright,ProductVersion,FileDescription,LegalTrademarks,PrivateBuild,FileVersion,OriginalFilename,SpecialBuild,' & _
'CompiledScript,DefaultLangCodepag'
$aResources = StringSplit($sResourses, ',')
$sData = ''
$iBig = 0
For $i = 1 To $aResources[0]
$sVersion = FileGetVersion($sFile, $aResources[$i])
If $sVersion = "" Then
$sVersion = "N/A"
EndIf
$sData &= StringFormat("%-60.60s\t= %50s\n", $aResources[$i], $sVersion)
Next
MsgBox(64, 'Resources', $sData)
