Cómo obtener el nombre de usuario del proceso en vb

pid = 1872 'Pid del proceso

Set wmi = GetObject("winmgmts:\\.\root\cimv2")

Set ps = wmi ExecQuery("select * from win32_process donde ProcessId=" & pid)

Para cada p en ps

p.GetOwner usuario, dominio

MsgBox "PID. es El nombre de usuario del proceso " & pid & " es " & usuario

Siguiente