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=" amp; pid)

Para cada p en ps

p.GetOwner usuario, dominio

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