Question

VBS 如何获取指定进程的路径？

代码越简单越好！

Answer 1

On Error Resume Next
Dim Wmi
D = "wscript.exe"
Set Wmi = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Do
Set A = Wmi.Execquery("Select * From Win32_Process")
For Each B In A
If Lcase(B.Name) = D Then
Wscript.echo CreateObject("Scripting.FileSystemObject").GetParentFolderName(B.ExecutablePath)
Wscript.echo B.ExecutablePath
Wscript.echo B.CommandLine
Exit Do '小脚本还带监视功能的哦，发现进程退出
End If
Next
Wscript.Sleep 200
Loop