WMI查询和VB6错误

Question

我正在使用VB6开发例程，您必须每秒刷新一次屏幕，搜索在系统上运行的特定进程。 我正在使用WMI来查询进程。但有时我会收到“未找到”的回复，并且应用程序关闭。问题是，我可以使用连接或其他东西过滤WMI查询中的用户吗？

下面是我的源代码

Dim UserName As String
Dim UserDomain As String
Dim proc_query As String
Dim proc_results As Object
UserName  = Environ("USERNAME")
proc_query = "select * from Win32_Process where Name = 'Exe1234.EXE'"
Set proc_results = GetObject("Winmgmts:").ExecQuery(proc_query)
For Each info In proc_results
    colProperties = info.GetOwner(strNameOfUser, strUserDomain)  
    If strNameOfUser = UserName Then
        // Call a external .exe
        Unload Me:  Exit For
    End If
Next info