在网上找了一个VBS读取某个文件夹下的所有文件的代码，但读不出来，有谁用过这个功能吗，请指教一下。

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set colFiles = objWMIService. _
ExecQuery("Select * from CIM_DataFile where Path ='\\s cripts\\'")
For Each objFile in colFiles
Ws cript.Echo objFile.Name
Next