减小字体
增大字体- ·上一篇文章：WMIC的学习教程
- ·下一篇文章：批处理端口扫描器模型
- ·百度中搜索更多的关于“vbs调用WMI获取文件制造商”相关内容
- ·谷歌中搜索更多的关于“vbs调用WMI获取文件制造商”相关内容
- ******申明******
- 本站文章内容有部分为收录网络中其他网友内容，DOS资源站不保证所有的代码都适合你使用。
- 由于编辑匆忙，有可能造成某些脚本文件出现丢失代码或代码无法运行的情况，请网友根据情况自行修改。
- 如果能将出错部分反馈给我，那就更好了。
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
