Speicherort per PID herausfinden

for /f "delims=" %%i in ('"wmic process where ProcessId='%PID%' get ExecutablePath"') do set "ExePath=%%i"

for /f "tokens=2*" %%i in ('"wmic process where ProcessId='%PID%' get CommandLine"') do set "ExePath=%%~j"

@echo off &setlocal

set /a PID=2260

call :getBatPath %PID% strBatPath
echo(%strBatPath%
pause
goto :eof

:getBatPath iPID RefVar
  setlocal
  set /a iPID=%~1
  set "RefVar="  
  set "CmdLn="  
  for /f "tokens=1* delims==" %%i in (  
    'WMIC Process WHERE "ProcessId=%iPID%" GET CommandLine /value 2^>nul'  
  ) do for /f "delims=" %%k in ("%%j") do (  
    set "CmdLn=%%k"  
    setlocal EnableDelayedExpansion
      set "CmdLn=!CmdLn:cmd /c "=!"  
      for %%l in (!CmdLn!) do (
        if "!!"=="" endlocal  
        if not defined RefVar if /i "%%~xl"==".bat" set "RefVar=%%~l"  
      )
  )
  endlocal &set "%~2=%RefVar%"  
goto :eof

for /f "tokens=2*" %%i in ('"wmic process where ProcessId='%PID%' get CommandLine"') do set "ExePath=%%~j"  
for %%i in (%ExePath:"=%) do set "ExePath=%%i"  

for /f "delims=" %%i in ("%ExePath:"=%") do set "ExePath=%%i"

Const sSqlExec = "Select * from Win32_Process Where Name='cmd.exe'"  

Dim oWMIService, oProcess, sCaller, sPath, sResult

With WScript.Arguments
    If .Count <> 1 Then
        WScript.Echo "Aufruf ohne Argument!":  WScript.Quit 1  
    Else
        sCaller = .Item(0)
    End If
End With

Set oWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")  
    
For Each oProcess In oWMIService.ExecQuery(sSqlExec)
    If LCase(Left(oProcess.CommandLine, 3)) = "cmd" Then  
        sPath = Split(oProcess.CommandLine, Chr(34))(2)
        If sPath <> sCaller Then sResult = sResult & sPath & vbCrLf
    End If
Next
WScript.Echo sResult

cscript //nologo xy.vbs "%~f0"  
Pause

for /f "delims=" %%i in ('"wmic process where ProcessId='%PID%' get ExecutablePath /value"') do (  
  for /f "tokens=1* delims==" %%a in ("%%i") do set "ExePath=%%b"  
)