Option Explicit

Dim strComputer ' As String
Dim strExeName ' As String

strComputer = "."
strExeName = "awasu.exe"

MsgBox GetProcessPath(strComputer, strExeName)

Function GetProcessPath(strComputer, strProcess)
  Dim objWMIService ' As SWbemServicesEx
  Dim colProcesses  ' As SWbemObjectSet
  Dim objProcess    ' As SWbemObjectEx
  Dim User          ' As String
  Dim Domain        ' As String
  Dim lngRetVal     ' As Long

  Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
  Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" &  strProcess & "'")

  For Each objProcess In colProcesses
    lngRetVal = objProcess.GetOwner(User, Domain)
    If lngRetVal = 0 Then
' Uncomment the next lines to display some details of the process during debugging.
'      Wscript.Echo "Process " & objProcess.Caption & _
'                   " belongs to " & Domain & _
'                   "\" & User & _
'                   " on " & objProcess.CSName & _
'                   " using " & objProcess.ExecutablePath & _
'                   " with the command line " & objProcess.CommandLine

      GetProcessPath = objProcess.ExecutablePath
      Exit Function
    Else

' Uncomment the next line if you need to debug this.
'      Wscript.Echo "Problem #" & lngRetVal & " getting the owner for process " & objProcess.Caption

      GetProcessPath = vbNullString
      Exit Function
    End If ' objProcess.GetOwner(User, Domain) = 0
  Next ' objProcess
End Function ' GetProcessPath(strComputer, strProcess)