Discussion :

[tdelacou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[tdelacou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[SfJ5Rpw8]

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

et effectue un test .. :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tdelacou]

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

Merci beaucoup, ça fonctionne à merveille