批处理之家 » VBS求助&讨论 » VBS调用WMI获取文件制造商

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 4

帖子: 69
积分: 383
技术: 0
捐助: 0
注册时间: 2007-10-25

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2007-11-3 00:14 | 只看该作者

VBS调用WMI获取文件制造商

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

2 评分人数

随风: vbs不懂,鼓励!PB + 3
smilediao: 代码里的处理过程不错！加分！PB + 1

Software is like sex: it's better when it's free..!

Rank: 4

帖子: 69
积分: 383
技术: 0
捐助: 0
注册时间: 2007-10-25

2楼

发表于 2007-11-3 00:16 | 只看该作者

沙发...........

Software is like sex: it's better when it's free..!

Rank: 4

帖子: 69
积分: 383
技术: 0
捐助: 0
注册时间: 2007-10-25

3楼

发表于 2007-11-9 21:59 | 只看该作者

多谢支持

[ 本帖最后由 somebody 于 2007-11-10 02:05 编辑 ]

Software is like sex: it's better when it's free..!

Rank: 4

帖子: 34
积分: 306
技术: 0
捐助: 0
注册时间: 2007-10-25

4楼

发表于 2007-11-9 23:26 | 只看该作者

哈哈！
不用那么麻烦吧！看看下面的代码：

 
wmic datafile where name='C:\\windows\\notepad.exe' get manufacturer
复制代码

Rank: 8 Rank: 8

帖子: 962
积分: 2449
技术: 40
捐助: 0
注册时间: 2007-10-25

5楼

发表于 2007-11-9 23:56 | 只看该作者

呵呵，TO 4F：
重要的是WMIC的效率太低啊
要是处理几十个文件，那该要多长的时间啊？

Rank: 4

帖子: 34
积分: 306
技术: 0
捐助: 0
注册时间: 2007-10-25

6楼

发表于 2007-11-10 00:24 | 只看该作者

回复 5# 的帖子

难道wmi的效率就不底么？wmic不是wmi commandline么？

Rank: 4

帖子: 69
积分: 383
技术: 0
捐助: 0
注册时间: 2007-10-25

7楼

发表于 2007-11-10 02:03 | 只看该作者

youxi01帮我回答了你的问题
somebody又不是白痴,wmic 比较好的话我早用了...
若是循环起来的话，wmic效率N低

Software is like sex: it's better when it's free..!

Rank: 7 Rank: 7 Rank: 7

帖子: 1107
积分: 4218
技术: 37
捐助: 0
注册时间: 2010-6-8

8楼

发表于 2011-2-11 00:19 | 只看该作者

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

枫中残雪：风停了，我的心却在动，让我心中的寒意走向远方