搜索磁盘内mp3文件的vbs脚本

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

举例脚本（可直接复制至你的vbs文件）

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