The WMI Code in Function format.

 Code:
function WMIFileVersion($FQFN)
  dim $RC,$NVIS
  $NVIS=setoption("NoVarsinstrings","On")
  if exist($FQFN)
    $RC=execute('$WMIFileVersion=GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * from CIM_Datafile Where Name =' + "'" + $FQFN + "'" + '").ItemIndex(0).Version')
  endif
  $RC=setoption("NoVarsinstrings",$NVIS)  
endfunction


Didn't look into it very deep, but even this one had trouble determining a version of at least one exe, it came back with nothing. At least there are options here.