Yet another Task.Exists() @ VBA

taskExists.bas

' Yet another Task.Exists()
' Task.Exists() Method does not always work well.
' processName : executeFileName eg. "notepad.exe"
Function TaskExists(processName As String)
    Dim Locator : Set Locator = CreateObject("WbemScripting.SWbemLocator")
    Dim Server : Set Server = Locator.ConnectServer
    Dim objSet : Set objSet = Server.ExecQuery("Select * From Win32_Process")
    Dim obj

    For Each obj In objSet
        If obj.Caption = processName Then
            TaskExists = True
            Exit Function
        End If
    Next
    
    TaskExists = False
End Function