Board logo

标题: VBS调用WMI获取文件制造商 [打印本页]

作者: somebody    时间: 2007-11-3 00:14     标题: VBS调用WMI获取文件制造商

  1. Dim FilePath,WMIPathMode
  2. FilePath=InputBox("请输入文件全路径(例如以下路径格式)","文件路径","C:\windows\system32\user32.dll")
  3. If FilePath <> "" Then
  4. WMIPathMode=Replace(FilePath,"\","\\")
  5. Set OBJWMI = GetObject("winmgmts:\\.\root\CIMV2")
  6. Set colManufacturer = OBJWMI.ExecQuery("SELECT * FROM CIM_DataFile Where Name='" & WMIPathMode & "'")
  7.     For Each OBJManufacturer In colManufacturer
  8.         If Trim(OBJManufacturer.Manufacturer) <> "" Then
  9.       MsgBox "文件全路径是: "&LCase(Trim(OBJManufacturer.Name))&chr(10)&"文件制造商是: "&Trim(OBJManufacturer.Manufacturer)
  10.         Else
  11.           MsgBox "文件全路径是: "&LCase(Trim(OBJManufacturer.Name))&chr(10)&"文件制造商是:空"
  12.         End If
  13.     Next
  14. End If
复制代码

作者: somebody    时间: 2007-11-3 00:16

沙发...........
作者: somebody    时间: 2007-11-9 21:59

多谢支持

[ 本帖最后由 somebody 于 2007-11-10 02:05 编辑 ]
作者: smilediao    时间: 2007-11-9 23:26

哈哈!
不用那么麻烦吧!看看下面的代码:
  1. wmic datafile where name='C:\\windows\\notepad.exe' get manufacturer
复制代码

作者: youxi01    时间: 2007-11-9 23:56

呵呵,TO 4F:
重要的是WMIC的效率太低啊
要是处理几十个 文件,那该要多长的时间啊?
作者: smilediao    时间: 2007-11-10 00:24     标题: 回复 5# 的帖子

难道wmi的效率就不底么?wmic不是wmi commandline么?
作者: somebody    时间: 2007-11-10 02:03

youxi01帮我回答了你的问题
somebody又不是白痴,wmic 比较好的话我早用了...
若是循环起来的话,wmic效率N低
作者: wc726842270    时间: 2011-2-11 00:19

最重要的是调用信息可以不用写脚本,只用WMIC即可,这可以对一部分人很有用啊(省去了学习的痛苦)




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2