Как получить значение аргументов командной строки указанного процесса?

Dim objWMIService, objProcess, colProcess
 
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
 
Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process")
 
For Each objProcess In colProcess
    Debug.Print objProcess.Name & " | " & objProcess.CommandLine
Next

Private Function GetCmdLineFromPID(PID As Long) As String
Dim hProcess As Long
Dim pbi As PROCESS_BASIC_INFORMATION
Dim lpPP As Long                'Oeacaoaeu ia ia?aiao?u i?ioanna
Dim cmd As UNICODE_STRING       'No?oeoo?a aey o?aiaiey ?ieeiaiie no?iee
'*********************************************
'Iieo?aai oaiae
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, False, PID)
If hProcess Then
   'Iieo?aai oeacaoaeu ia PEB
   If NtQueryInformationProcess(hProcess, 0, pbi, Len(pbi), ByVal 0) Then Exit Function
   'Iieo?aai oeacaoaeu ia ia?aiao?u i?ioanna
   If ReadProcessMemory(hProcess, ByVal pbi.PebBaseAddress + &H10, lpPP, 4, 0) = 0 Then GoTo ExitFunction ' Выход из функции! А хэндл процесса закрывать разве не надо?
   'Iieo?aai no?oeoo?o UNICODE_STRING niaa??auo? eiiiaiaio? no?ieo
   If ReadProcessMemory(hProcess, ByVal lpPP + &H40, cmd, Len(cmd), 0) = 0 Then GoTo ExitFunction ' Выход из функции! А хэндл процесса закрывать разве не надо?
   '?eoaai no?ieo
   GetCmdLineFromPID = Space(cmd.Length \ 2) 'Auaaeyai aooa? ainoaoi?iie aeeiu
   If ReadProcessMemory(hProcess, ByVal cmd.lpBuffer, ByVal StrPtr(GetCmdLineFromPID), cmd.Length, 0) = 0 Then GoTo ExitFunction ' Выход из функции! А хэндл процесса закрывать разве не надо?
   CloseHandle hProcess ' И только здесь закрытие хэндла процесса!
End If
End Function