C / C++ / MFC

Public Function getownerwmi(ByVal pid As Long, ByRef wmiowner As String) As Long<br />
    Dim colProcessList<br />
    Dim objprocess<br />
    Set colProcessList = GetObject("Winmgmts:").ExecQuery("Select * from Win32_Process where processid = " & pid)<br />
    If IsObject(colProcessList) Then<br />
        For Each objprocess In colProcessList<br />
    <br />
            ret = objprocess.getowner(struser, strdomain)<br />
            wmiowner = struser<br />
            getownerwmi = 1<br />
        Next<br />
    End If<br />
    Set colProcessList = Nothing<br />
    Set objprocess = Nothing<br />
End Function