在没有WMI的VBScript中检索进程的完整路径

Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("tasklist /FI ""IMAGENAME eq notepad.exe"" /FO LIST")
strOutput = objExec.StdOut.ReadAll

WScript.Echo "进程路径：" & GetProcessPath(strOutput)

Function GetProcessPath(strOutput)
    arrLines = Split(strOutput, vbCrLf)
    For Each strLine in arrLines
        If InStr(strLine, "Image Path") > 0 Then
            GetProcessPath = Trim(Split(strLine, ":")(1))
            Exit Function
        End If
    Next
    GetProcessPath = "未找到进程路径"
End Function