Script de temporisation

Version imprimable

Bonjour à tous,

J'aimerai modifier un script pour lancer des applications, que j'ai trouvé sur le net. J'aimerai ajouter une fonctionnalité que je pense être simple mais je n'y connais rien en VBscript :

- Vérifier si l'application que je souhaite démarrer n'est pas déjà lancée
- Si ce n'est pas le cas, lancer l'appli
- Si c'est le cas, fermer l'application, puis la relancer

Le but est de relancer une application avec des paramètres différents, puis de lancer d'autres applis, toujours avec un timing entre chaque.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 ' delay startup of applications, usefull for resident apps which start with windows ' this script is public domain ! Use it, modify it, do what you want with it ' list of applications (modify with your programs) myPrograms = Array( _ "%SystemRoot%\system32\notepad.exe", _ "%SystemRoot%\system32\calc.exe", _ "%SystemRoot%\system32\winmine.exe", _ "" ) ' main startup delay in seconds (set your own delay) iMainDelay = "120" ' delay between each program in seconds (set your own delay) iIntermediateDelay = "15" ' Set shell object Set WshShell = WScript.CreateObject("WScript.Shell" ) ' wait the main delay wScript.Sleep(iMainDelay * 1000) ' launch software For Each Program In myPrograms If Program <> "" Then WshShell.Run(Program) wScript.Sleep(iIntermediateDelay * 1000) End If Next
Merci !

Guillaume

Salut,

tu peux essayer ceci, je teste si notepad est démarré ou pas, si oui je ferme et je réouvre notepad, si non j'ouvre notepad :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'notepad.exe'")
 
For Each objItem in colItems
     objItem.Terminate()
Next
 
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "Notepad.exe", ,True
 
WScript.Quit

A++

Je te remercie, ton script correspond exactement à ce que je cherche. J'ai essayé de l'intégrer dans mon script, mais il ne fonctionne plus, les applis ne sont pas fermées si déjà existantes, mais elles se lancent. Je dois passer à côté d'un truc, mais quoi ??

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
' delay startup of applications, usefull for resident apps which start with windows
' this script is public domain ! Use it, modify it, do what you want with it
 
' list of applications (modify with your programs)
myPrograms = Array( _
             "%SystemRoot%\system32\notepad.exe", _
             "%SystemRoot%\system32\calc.exe", _
             "" )
 
' main startup delay in seconds (set your own delay)
iMainDelay = "3"
 
' delay between each program in seconds (set your own delay)
iIntermediateDelay = "2"
 
' Set shell object
Set WshShell = WScript.CreateObject("WScript.Shell" )
 
' wait the main delay
wScript.Sleep(iMainDelay * 1000)
 
' launch software
 
For Each Program In myPrograms
   If Program <> "" Then	
	strComputer = "."
	Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & 		
 
	strComputer & "\root\cimv2")
	Set colItems = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 	
 
	Program")
	For Each objItem in colItems
     	objItem.Terminate()
	Next
	WshShell.Run (Program)
	wScript.Sleep(iIntermediateDelay * 1000)
   End If
Next

Merci pour ton aide !

Guillaume

[QUOTE=yaumeguy;3359602]

Code:

1
2
3
4
5
6
7
 
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & 		
 
	strComputer & "\root\cimv2")
	Set colItems = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 	
 
	Program")

Attention aux saut de lignes, aux doubles et simples quotes, tu dois écrire ta requete comme ceci :

Code:

1
2
3
 
	Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
	Set colItems = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & Program & "'")

D'autre part j'ai remplacé :

Code:

1
2
3
4
5
 
myPrograms = Array( _
             "%SystemRoot%\system32\notepad.exe", _
             "%SystemRoot%\system32\calc.exe", _
             "" )

par :

Code:

1
2
3
4
5
 
myPrograms = Array( _
             "%notepad.exe", _
             "%calc.exe", _
             "" )

Apparemment WMI se moque du chemin du process...

A++

J'ai appliqué tes modifications, il reste un souci, au niveau de WshShell.Run (Program) -> plantage. Je me doute que la syntaxe est mauvaise mais j'ai un peu tout essayé et rien ne marche :-/

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
' delay startup of applications, usefull for resident apps which start with windows
' this script is public domain ! Use it, modify it, do what you want with it
 
' list of applications (modify with your programs)
myPrograms = Array( _
             "%notepad.exe", _
             "%calc.exe", _
             "" )
 
' main startup delay in seconds (set your own delay)
iMainDelay = "1"
 
' delay between each program in seconds (set your own delay)
iIntermediateDelay = "1"
 
' Set shell object
Set WshShell = WScript.CreateObject("WScript.Shell" )
 
' wait the main delay
wScript.Sleep(iMainDelay * 1000)
 
' launch software
 
For Each Program In myPrograms
   If Program <> "" Then		
	strComputer = "."
	Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
	Set colItems = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & Program & "'")
 
	For Each objItem in colItems
     		objItem.Terminate()
	Next
 
	WshShell.Run (Program)
	wScript.Sleep(iIntermediateDelay * 1000)
   End If
Next

Merci !

09/06/2008, 14h45
ced600

tu peux même enlever le % devant les exécutables.
Dans ce cas WMI s'attend au nom du processus ciblé.

Attention WMI et WSH ne fonctionne pas pareil.
Pour La méthode Run de WSH, il te faut le chemin complet du processus. D'ailleurs en fait avec WMI il te faudrait le chemin complet si tu veux qu'il lance un process.

Si les programmes à lancer se trouve tous dans Windows\System32, et qu'ils sont donc appelable directement depuis une console dos sans utilisation du chemein complet, tu peux faire tout simplement :

Code:

WshShell.Run ("cmd /c " & Program) 'Attention : Bien laisser un espace entre c et " sinon le nom du programme sera collé au c
09/06/2008, 16h05
yaumeguy

Les programmes à lancer ne seront pas dans le system32, j'utilise ces exemples pour simplifier les choses :-)

Donc du coup, j'ai toujours mon problème, et j'ai beau bidouiller, rien à faire !

J'y suis presque ! Le script a le comportement souhaité, mais je n'arrive pas à généraliser la detection des programmes ouverts, puis la fermeture ! Pour le moment je check si notepad.exe est ouvert et si oui je le ferme avant de le relancer. Mais quand la boucle passe à calc.exe, le script check encore pour notepade.exe, ce n'est pas dynamique. En mettant "Program" à la place de "notepad.exe", ça plante quelque soit la syntaxe que je met autour...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
' delay startup of applications, usefull for resident apps which start with windows
' this script is public domain ! Use it, modify it, do what you want with it
 
' list of applications (modify with your programs)
myPrograms = Array( _
             "%SystemRoot%\system32\notepad.exe", _
             "%SystemRoot%\system32\calc.exe", _
             "" )
 
 
' main startup delay in seconds (set your own delay)
iMainDelay = "1"
 
' delay between each program in seconds (set your own delay)
iIntermediateDelay = "1"
 
' Set shell object
Set objShell = CreateObject("Wscript.Shell")
 
' wait the main delay
wScript.Sleep(iMainDelay * 1000)
 
' launch software
 
For Each Program In myPrograms
   If Program <> "" Then		
	strComputer = "."
	Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
	Set colItems = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'notepad.exe'")
 
	For Each objItem in colItems
     		objItem.Terminate()
	Next	
	objShell.Run Program
 
	wScript.Sleep(iIntermediateDelay * 1000)
   End If
Next

09/06/2008, 16h52
RadPAT
Citation:

Envoyé par yaumeguy

Mais quand la boucle passe à calc.exe, le script check encore pour notepade.exe, ce n'est pas dynamique.

Ce ne serait pas plutot ca ton soucis :
Code:

1 2 Set colItems = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'notepad.exe'")
A++
09/06/2008, 19h26
yaumeguy

oui, c'est exactement ça :mrgreen: C'est ce que j'ai tenté d'expliquer au dessus, j'ai mis ça en attendant pour tester le script, mais dès que je met la variable "program" à la place, ça plante, et ce quelque soit la syntaxe :-/
09/06/2008, 22h35
SfJ5Rpw8

Citation:

Envoyé par yaumeguy

oui, c'est exactement ça :mrgreen: C'est ce que j'ai tenté d'expliquer au dessus, j'ai mis ça en attendant pour tester le script, mais dès que je met la variable "program" à la place, ça plante, et ce quelque soit la syntaxe :-/

on peu voir cette syntaxe ... ? dans ton code plus haut tu rajoute le chemin du programme ... donc il est bien évident que tu ne peu pas arriver à l'égalité voulu ... Where Name= ....;)
10/06/2008, 10h34
ced600

Je te conseille d'aller sur la FAQ pour voir les bases du traitement des chaines de caractères, et la concaénation d'une chaine de caractère avec la valeur d'une variable.

Là dans ton script, dans ta boucle, il te reste juste à splitter (fonction Split) avec comme séparateur \ et d'utiliser le dernier élément pour le mettre à la place de notepad.exe en utilisant cette fameuse concaténation.

Merci à tous, j'ai ajouté la fonction split et tout fonctionne correctement, c'est quand même mieux de donner les bons paramètres à la fonction Select :-)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
' delay startup of applications, usefull for resident apps which start with windows
' this script is public domain ! Use it, modify it, do what you want with it
 
' list of applications (modify with your programs)
myPrograms = Array( _
             "%SystemRoot%\system32\notepad.exe", _
             "%SystemRoot%\system32\calc.exe", _
             "" )
 
' main startup delay in seconds (set your own delay)
iMainDelay = "1"
 
' delay between each program in seconds (set your own delay)
iIntermediateDelay = "1"
 
' Set shell object
Set objShell = CreateObject("Wscript.Shell")
 
' wait the main delay
wScript.Sleep(iMainDelay * 1000)
 
' launch software
 
For Each Program In myPrograms
   If Program <> "" Then		
	Dim i,tb,ProgShort
	tb = split(Program,"\")
	For i = lbound(tb) to ubound(tb)
 	    ProgShort = tb(i)
	next
	strComputer = "."
	Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
	Set colItems = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '"&ProgShort&"'")
 
	For Each objItem in colItems
     		objItem.Terminate()
	Next	
	objShell.Run Program
 
	wScript.Sleep(iIntermediateDelay * 1000)
   End If
Next

tu dois pouvoir remplacer :

Code:

1
2
3
	For i = lbound(tb) to ubound(tb)
 	    ProgShort = tb(i)
	next

par

Code:

1
2
 
 	    ProgShort = tb(ubound(tb))

;)

17/06/2008, 10h19
yaumeguy

Je suis à nouveau face à un problème ! Je souhaite ouvrir un programme situé dans mon dossier program files.
Problème, le chemin est sous la forme C:\Program Files\blabla ; et l'espace entre Program et Files génère
une erreur. J'ai tenté les solutions suivantes, échec à chaque fois :

- ""C:\Program Files\blabla\truc.exe"", _
- "C:\Program%20Files\blabla\truc.exe", _

Je ne vois plus trop ce que je peux essayer... Vous avez une idée ? Merci !!
17/06/2008, 13h39
ced600

1 " pour commencer une chaine de caractère
1 " pour la terminer.

" est aussi utilisé comme caractère d'échapement.
Donc pour écrire une " dans une chaine de caractère il faut faire "".

Donc si l'on veut afficher dans une msgbox "toto" il faut faire :

Code:

msgbox """toto"""

Et s'i l'on veut : c'est "toto" :

Code:

msgbox "c'est ""toto"""
17/06/2008, 15h56
yaumeguy

Merci !! J'ai déjà vu plus intuitif comme syntaxe :-)