vbs搜索指定的文件

'纯vbs的话要递归遍历所有文件夹，比较麻烦，可以和cmd结合起来用

targetfile="test.jpg"'改成你要找的文件名

Set WshShell = WScript.CreateObject("Wscript.Shell")

Set fso = WScript.CreateObject("Scripting.Filesystemobject")

tempfile=WScript.ScriptName&"_temp.txt"

wshshell.Run "cmd /c dir d:\"&targetfile&"/b /s>"&tempfile,1,True

Set f=fso.GetFile(tempfile)

If f.Size>0 Then'dir找到目标文件时才会向tempfile中写入数据，没找到时只会生成一个空文件

Set ft=fso.OpenTextFile(tempfile,1)

Do Until ft.AtEndOfStream'可能会找到多个文件，故需要读每一行的数据

line=ft.ReadLine'读入一行

MsgBox line'仅供演示

Loop

ft.Close

End If

fso.DeleteFile(tempfile)'删除生成的临时文件

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" &strComputer &"\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

"SELECT * FROM Win32_Process where name='qq.exe' ",,48)

For Each objItem in colItems

Wscript.Echo "-----------------------------------"&vbCrLf&_

"Win32_Process instance" &vbCrLf&_

"-----------------------------------"&vbCrLf&_

"Caption: " &objItem.Caption&vbCrLf&_

"-----------------------------------"&vbCrLf&_

"CommandLine: " &objItem.CommandLine&vbCrLf&_

"-----------------------------------"&vbCrLf&_

"CreationClassName: " &objItem.CreationClassName&vbCrLf&_

"-----------------------------------"&vbCrLf&_

"CreationDate: " &objItem.CreationDate&vbCrLf&_

"-----------------------------------"&vbCrLf&_

"Description: " &objItem.Description&vbCrLf&_

"-----------------------------------"&vbCrLf&_

"ExecutablePath: " &objItem.ExecutablePath&vbCrLf&_

"-----------------------------------"&vbCrLf&_

"ExecutionState: " &objItem.ExecutionState&vbCrLf&_

"-----------------------------------"&vbCrLf&_

"Handle: " &objItem.Handle&vbCrLf&_

"-----------------------------------"&vbCrLf&_

"HandleCount: " &objItem.HandleCount&vbCrLf&_

"-----------------------------------"&vbCrLf&_

"Name: " &objItem.Name&vbCrLf&_

"-----------------------------------"&vbCrLf&_

"PageFileUsage: " &objItem.PageFileUsage&vbCrLf&_

"-----------------------------------"&vbCrLf&_

"ParentProcessId: " &objItem.ParentProcessId&vbCrLf&_

"-----------------------------------"&vbCrLf&_

"PeakWorkingSetSize: " &objItem.PeakWorkingSetSize&vbCrLf&_

"-----------------------------------"&vbCrLf&_

"Priority: " &objItem.Priority&vbCrLf&_

"-----------------------------------"&vbCrLf&_

"ProcessId: " &objItem.ProcessId&vbCrLf&_

"-----------------------------------"&vbCrLf&_

"Status: " &objItem.Status&vbCrLf&_

"-----------------------------------"&vbCrLf&_

"TerminationDate: " &objItem.TerminationDate&vbCrLf&_

"-----------------------------------"&vbCrLf&_

"WorkingSetSize: " &objItem.WorkingSetSize

Next

---