' Feed this function the explicit path of your file
' Example:
'     msgbox getVersion("C:\program Files\YadaYadaYada\file.exe")

function getVersion(argFile)
   argFile = replace(argFile, "\", "\\")
   set oNet = WScript.CreateObject("WScript.Network")
   computerName = oNet.ComputerName
   Set oWMI = GetObject( "winmgmts://" & computerName & "/root/cimv2" )
   Set oFiles = oWMI.ExecQuery( "Select * from CIM_Datafile WHERE name = '" & argFile & "'")
   for each oFile in oFiles   
      getVersion = oFile.Version
      exit for
   next
   set oNet   = nothing
   set oWMI   = nothing
end function