Function VerifProcess(objProcess)
For Each Process In GetObject("winmgmts:").InstancesOf("Win32_process")
If UCase(Process.Name) = UCase(objProcess) Then
VerifProcess = "Le process " & Process.Name & " est actif.....numéro ID: " & Process.ProcessID
Exit Function
End If
Next
VerifProcess = "Le process " & objProcess & " n ''est pas actif"
End Function
'---------------
MsgBox VerifProcess("explorer.exe")
MsgBox VerifProcess("expLOrer1234.exe")