Dim strProcName : strProcName = LCase(sProcName)
Dim isExec : isExec = "N"
Dim objProcList
Dim objProcess
Set objProcList = GetObject("winmgmts:").InstancesOf("win32_process")
For Each objProcess In objProcList
If LCase(objProcess.Name) = strProcName Then
isExec = "Y"
End If
Next
Set objProcList = Nothing