Como saber si un .exe de 64 bits se esta ejecuantando

[pkj]

Esto parece funcionar bien, y no necesita nada mas:

Código vb:

Function getProcessInfo(ByVal EXEName As String) As Boolean
  Dim objProcess As Object, process As Object, strNameOfUser As String, ComputerName As String
  getProcessInfo = False
  ComputerName = "."
  Set objProcess = GetObject("winmgmts:{impersonationLevel=impersonate}\\" _
  & ComputerName & "\root\cimv2").ExecQuery("Select * From Win32_Process")
  For Each process In objProcess
    If UCase(process.Name) = UCase(EXEName) Then
      getProcessInfo = True
    End If
  Next
  Set objProcess = Nothing
End Function
 

Hasta le sobra alguna variable...

Saludos