VBS如何取得文件的产品版本情报？

jfjl1982

一个dll或者exe文件,有文件版本和产品版本两种情报,
文件版本情报我会取得,产品版本应该怎么取呢?有高手指教下.

lxzzr

1. 
   
2. '获取C:\MyFolder中每个文件的文件版本和产品版本
   
3. 
   
4. Set objShell = CreateObject ("Shell.Application")
   
5. Set objFolder = objShell.Namespace ("C:\MyFolder")
   
6. 
   
7. Dim arrHeaders(300)
   
8. 
   
9. For i = 0 to 300
   
10.         arrHeaders(i) = objFolder.GetDetailsOf (objFolder.Items, i)
    
11. Next
    
12. 
    
13. For Each strFileName in objFolder.Items
    
14. 
    
15.         Wscript.echo strFileName & ": "
    
16. 
    
17.         For i = 0 to 300
    
18.                 If i = 156 then
    
19.                         Wscript.echo arrHeaders(i) & ": " & objFolder.GetDetailsOf (strFileName, i)
    
20.                 End If
    
21.                 If i = 271 then
    
22.                         Wscript.echo arrHeaders(i) & ": " & objFolder.GetDetailsOf (strFileName, i)
    
23.                 End If
    
24.         Next
    
25. Next
    
26. 
    
27. WScript.Sleep 5000
    

复制代码

jfjl1982

非常感谢大大的指教.经过测试,发现这个方法好使.不过有一点注意的是,文件属性的顺序和系统有关.产品版本和文件版本的编号不一定是271和156

jfjl1982

有一个问题,因为木马原因,很多机器会禁用Shell.Application。那就无法采用一楼的方法了，还有其他方法能实现吗？

lxzzr

if arrHeaders(i) = 产品版本 ?

"有一个问题,因为木马原因,很多机器会禁用Shell.Application。那就无法采用一楼的方法了，还有其他方法能实现吗？
"
我暂时还没发现，如果你发现了好的方法，教我^_^