复制代码 代码如下:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
"{impersonationLevel=impersonate}!\\" _
strComputer "\root\cimv2")
Set colFiles = objWMIService. _
ExecQuery("Select * from CIM_DataFile where Extension = 'mp3'")
For Each objFile in colFiles
Wscript.Echo objFile.Name
Next
将上面
ExecQuery("Select * from CIM_DataFile where Extension = 'mp3'")
一行中的MP3替换为别的就可以搜索别的文件了。
参考链接：WMI Tasks: Files and Folders
原文：http://demon.tw/programming/vbs-wmi-search-file.html
您可能感兴趣的文章:- VB中使用WMI获取系统硬件和软件有关信息
- VBS调用WMI遍历搜索硬盘文件并计数的方法
- vbs通过WMI修改文件文件夹的NTFS权限
- WMI StdRegProv 通过wmi操作注册表的vbscript实现代码 (本地或远程)
- VBS通过WMI监视注册表变动的代码
- VBS通过WMI获取CPU使用率的代码
- 将WMI中的DateTime类型转换成VBS时间的函数代码
- Rcmd.vbs [Remote Cmd with wmi]远程脚本
- VBS调用WMI快速关闭IE的脚本
- VBS脚本使用WMI操作注册表的代码
- vbs wmi获取电脑硬件信息实例
- 初窥WMI_Vbs脚本编程简明教程补充读物
- 使用WMI得到计算机的信息
咨 询 客 服