Verifier si un process est lancé.

Bonjour,
Me voici face à un nouveau problème, je voudrais savoir si un processus est lancé, si il est lancé, je passe au code suivant si le processus n'est pas lancé, mon vbscript le lance, voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim oproc   Set objWMI = GetObject("winmgmts:root\cimv2") sQuery = "Select * from Win32_process Where Name = 'exceed.exe'" For Each oproc In objWMI.execquery(sQuery) if Isnull(oproc.name) then Set WshShell = WScript.CreateObject("WScript.Shell") Return = WshShell.Run("notepad.exe" , 1, true) end if Next   Set objWMI = Nothing

---

en fait je ne sais pas comment utiliser le IsNull ou IsEmpty ou si il faut mettre un Not IsNull...

Merci de votre aide...

Re-me-voila.....
en fait c'est pas résolu ! je viens de m'appercevoir que je tuais et relançais le process exceed (fonctionnement Ok au début) mais en fait je veux pouvoir garder mon process en vie, il faut que je puisse tester si il est bien présent ou s'il est absent en lancer un.
voici mon bout de code (entre balise cette fois;) ) :

Code:

---

1 2 3 4 5 6 7 8

Set objWMI = GetObject("winmgmts:root\cimv2") sQuery = "Select * from Win32_process Where Name = 'exceed.exe'" For Each oproc In objWMI.execquery(sQuery) oproc.Terminate() Next set objshell = CreateObject("Wscript.Shell") objShell.Run """C:\Program Files\Hummingbird Connectivity\Exceed\exceed.exe"", ,True" Set objWMI = Nothing

---

dans ma boucle for je doit y mettre une condition if mais avec quel argument ?

Je vous remercie.

supprime ta boucle For ... terminate... next

et effectue un test .. :

Code:

---

1 2 3

if objWMI.execquery(sQuery).Count = 0 then '... le run... end if

---

C'est fou comme pour certain cela à l'air si simple......

Merci beaucoup, ça fonctionne à merveille :king: