Comment arreter proprement un script ?

Version imprimable

Bonjour,

Dans le cas où l'environnement d'exécution est celui d'un programme spécifique (par ex. PowerAmc :?), et non pas Wscript,
L'instruction : WScript.Quit ne fonctionne pas.
elle renvoie l'erreur d'exécution : Variable non définie: 'Wscript' (0x800A01F4).

cf. ex de code ci-dessous

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
Option Explicit
 
dim titre_box, message, reponse
dim objArgs
 
   titre_box = " test d’arrêt proprement d'un script "
   message = 	"Veuillez choisir le type d'action à*exécuter :" & vbCrLf & _ 
				"       Oui : je continue" & vbCrLf & _
				"       Non : je vais ailleurs" & vbCrLf & _
				"   Annuler : j'arrête !)"      
   reponse =  msgbox (message, vbYesNoCancel, titre_box)
   if reponse = 6 then			'On a cliquè sur le bouton "OUI" 
	output " j'ai cliquer sur Oui !"
 
   elseif reponse = 7   then    	'On a cliqué sur le bouton "Non" 
	output " j'ai cliquer sur non !"
  else 						' On a cliqué sur le bouton "annuler"
	output "je vais arrêter le programme "
	Cscript.quit   ' => génère une erreur d'exécution Microsoft VBScript : Variable non définie: 'Cscript' (0x800A01F4)
	WScript.Quit   ' => génère une erreur d'exécution Microsoft VBScript : Variable non définie: 'WScript' (0x800A01F4)
	output "si ce message s'affiche, c'est que le programme ne s'est pas arrêter !!"
  end if 
  output "reponse : " & reponse & vbtab & "=> je suis sortie du choix !"
  output " le programme continue ...."

donc si quelqu'un avait des éléments de réponses, voir une solution,, ce serait super !

D'avance merci.

André

Bonjour;

Je ne sais pas ce que représente le nom output par rapport à ton programme tiers, mais je l'ai utilisé en tant variable(String) pour afficher un message.

Pour adapter à ton script et programme PowerAmc, il suffirait de supprimer le signe = après chaque terme output , la ligne MsgBox output et la déclaration de output :

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
Option Explicit
 
dim titre_box, message, reponse, output
dim objArgs
 
   titre_box = " test d’arrêt proprement d'un script "
   message =     "Veuillez choisir le type d'action à exécuter :" & vbCrLf & _ 
                "       Oui : je continue" & vbCrLf & _
                "       Non : je vais ailleurs" & vbCrLf & _
                "       Annuler : j'arrête !"      
   reponse =  msgbox (message, vbYesNoCancel, titre_box)
   if reponse = 6 then            'On a cliquè sur le bouton "OUI" 
    output =" J'ai cliqué sur Oui !"
 
   elseif reponse = 7   then        'On a cliqué sur le bouton "Non" 
    output = " J'ai cliqué sur non !"
  else                         ' On a cliqué sur le bouton "annuler"
    output ="Je vais arrêter le programme "
    'Cscript.quit   ' => génère une erreur d'exécution Microsoft VBScript : Variable non définie: 'Cscript' (0x800A01F4)
    'WScript.Quit   ' => génère une erreur d'exécution Microsoft VBScript : Variable non définie: 'WScript' (0x800A01F4)
    call StopMyScript
    output ="si ce message s'affiche, c'est que le programme ne s'est pas arrêter !!"
  end if 
  msgbox output
  output ="reponse : " & reponse & vbtab & "=> je suis sortie du choix !"
  output =" le programme continue ...."
  '=================================
Sub StopMyScript()  
    Const NomProg1 = "Wscript.exe" , NomProg2 = "Cscript.exe"
    Dim objWMIService, colProcessList, objProcess, strComputer
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2")
    Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process")
    For Each objProcess in colProcessList
       If LCase(objProcess.Name) = LCase(NomProg1) Or LCase(objProcess.Name) = LCase(NomProg2) Then
           MsgBox objProcess.Name & " est en cours d'arrêt"
           objProcess.Terminate()
           Exit For
       End If
    Next
End Sub

merci l_autodidacte pour le complément de script...
...mais malheureusement dans mon cas ça ne marche pas.
j'ai modifié un peu ta sous routine StopMyScript, pour afficher la liste des process ......et sans trop de surprise :(, il n'y a ni Wscript.exe ni Cscript.exe dans la liste des 80 process actifs.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub StopMyScript() Const NomProg1 = "Wscript.exe" , NomProg2 = "Cscript.exe" Dim objWMIService, colProcessList, objProcess, strComputer strComputer = "." Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2") output "je suis dans StopMyScript" Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process") output "nombre de process : " & colProcessList.count For Each objProcess in colProcessList output objProcess.Name If LCase(objProcess.Name) = LCase(NomProg1) Or LCase(objProcess.Name) = LCase(NomProg2) Then MsgBox objProcess.Name & " est en cours d'arrêt" objProcess.Terminate() Exit For End If Next End Sub
J'ai bien dans la liste quelques exécutables liée à PowerAmc, mis je ne sais pas vraiment ce qu'il font....donc j'évite de les arrêter "sauvagement".
L'idéal et si c'est possible, c'est ben d’arrêter l’exécution du script en cours, sans sortir de l’environnent d’exécution..par ex. pour pouvoir le relancer de suite avec d'autres paramêtres...

PS : dans mon environnement (PowerrAmc), l'instruction "Output" écrit dans la fenêtre de résultat, c'est un peu l'équivalent de l’instruction Echo. Mais la transformer en variable et utiliser la fonction msgbox pour l'afficher fonctionne très ben aussi, et est plus portable ;)

31/03/2017, 17h11
l_autodidacte

Citation:

....il n'y a ni Wscript.exe ni Cscript.exe dans la liste des 80 process actifs.

C'est tout à fait normal si on a cliqué sur l'un des boutons de la boite de message : Wscript sera arrêté.

Pour qu'il tourne en permanence, il faut utiliser une boucle Do ....Loop
31/03/2017, 17h28
Andre.lissarrague

Citation:

....il n'y a ni Wscript.exe ni Cscript.exe dans la liste des 80 process actifs.
C'est tout à fait normal si on a cliqué sur l'un des boutons de la boite de message : Wscript sera arrêté.

En fait, les items de la liste sont affichés avant la partie conditionnelle,
et d'ailleurs la boite de message n'apparait pas, car on n'entre jamais dans le "If LCase(objProcess.Name) = LCase(NomProg1) Or LCase(objProcess.Name) = LCase(NomProg2) Then".
31/03/2017, 23h14
l_autodidacte

Citation:

En fait, les items de la liste sont affichés avant la partie conditionnelle, .....car on n'entre jamais dans le "If LCase(objProcess.Name) = LCase(NomProg1) Or LCase(objProcess.Name) = LCase(NomProg2) Then".

En principe, le code est exécuté ligne par ligne. Donc si l'un des items est affiché, on passe dans la condition If ....End If.

Si on trouve ce qu'on cherche, le traitement approprié sera exécuté sinon, retour à l'affichage de l'item suivant.... jusqu'à la fin du script.

Par conséquent, s'il n'y a aucun item correspondant à la demande, aucun traitement ne sera fait ce qui ne veut pas dire qu'on n'entre jamais dans la structure conditionnelle.

Par ailleurs, si un item correspondant à la recherche est affiché et qu'il n'a pas pu être arrêté, il faut revoir la partie du code correspondante.