如何在VBScript中检索文件的“产品版本”

我有一个VBScript,用于检查远程计算机上目录中是否存在文件.我希望检索所述文件的“产品版本”(不是“文件版本”),但我似乎无法弄清楚如何在VBScript中做到这一点.

我目前正在使用Scripting.FileSystemObject来检查文件是否存在.

谢谢.

我使用的函数与前一个示例略有修改.该函数获取路径和文件名并返回“产品版本”

Function GetProductVersion (sFilePath, sProgram)
Dim FSO,objShell, objFolder, objFolderItem, i 
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(sFilePath & "\" & sProgram) Then
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(sFilePath)
    Set objFolderItem = objFolder.ParseName(sProgram)
    Dim arrHeaders(300)
    For i = 0 To 300
        arrHeaders(i) = objFolder.GetDetailsOf(objFolder.Items, i)
        'WScript.Echo i &"- " & arrHeaders(i) & ": " & objFolder.GetDetailsOf(objFolderItem, i)
        If lcase(arrHeaders(i))= "product version" Then
            GetProductVersion= objFolder.GetDetailsOf(objFolderItem, i)
            Exit For
        End If
    Next
End If
End Function

我发现在XP和Vista中属性的位置偶尔会发生变化(不确定原因),所以我找到“产品版本”属性并在找到后退出循环.注释掉的行将显示所有属性和值(如果可用)