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
