может так?
Код:
@Echo Off
For /F "Tokens=2 Delims==" %%i In ('Assoc .rar') Do Set strDocType=%%i
For /F "Tokens=2 Delims==" %%i In ('FType %strDocType%') Do Call :GetVars %%i
Echo Company Name : %CompanyName%
Echo Product Name : %ProductName%
Echo Product Version: %ProductVersion%
Echo File Version : %FileVersion%
Exit /B 0
:GetVars
For /F "Tokens=5 Delims= " %%i In ('FileVer "%~1"') Do Set FileVersion=%%i
For /F "Tokens=1* Delims= " %%i In ('FileVer /v "%~1"^|FindStr /IBRC:" [a-z][a-z]* "') Do Set %%i=%%j
GoTo :EOF
