1. #1
    Nouveau membre du Club
    Homme Profil pro
    resp. cellule urbanisation
    Inscrit en
    juin 2012
    Messages
    24
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : resp. cellule urbanisation
    Secteur : Service public

    Informations forums :
    Inscription : juin 2012
    Messages : 24
    Points : 27
    Points
    27

    Par défaut Comment arreter proprement un script ?

    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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é

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    1 981
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 1 981
    Points : 4 513
    Points
    4 513

    Par défaut

    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA)
    Vous pouvez consulter mes contributions
    Consultez les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  3. #3
    Nouveau membre du Club
    Homme Profil pro
    resp. cellule urbanisation
    Inscrit en
    juin 2012
    Messages
    24
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : resp. cellule urbanisation
    Secteur : Service public

    Informations forums :
    Inscription : juin 2012
    Messages : 24
    Points : 27
    Points
    27

    Par défaut

    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  4. #4
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    1 981
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 1 981
    Points : 4 513
    Points
    4 513

    Par défaut

    ....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
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA)
    Vous pouvez consulter mes contributions
    Consultez les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  5. #5
    Nouveau membre du Club
    Homme Profil pro
    resp. cellule urbanisation
    Inscrit en
    juin 2012
    Messages
    24
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : resp. cellule urbanisation
    Secteur : Service public

    Informations forums :
    Inscription : juin 2012
    Messages : 24
    Points : 27
    Points
    27

    Par défaut

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

  6. #6
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    1 981
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 1 981
    Points : 4 513
    Points
    4 513

    Par défaut

    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.
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA)
    Vous pouvez consulter mes contributions
    Consultez les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

Discussions similaires

  1. Comment arreter un script sans message d'erreur?
    Par stich51 dans le forum Général Python
    Réponses: 3
    Dernier message: 14/05/2010, 10h31
  2. Réponses: 1
    Dernier message: 26/04/2007, 11h13
  3. [C] Comment arreter proprement une application ?
    Par Hikage dans le forum Windows
    Réponses: 6
    Dernier message: 05/07/2006, 10h29
  4. Réponses: 8
    Dernier message: 04/08/2004, 10h51
  5. Réponses: 5
    Dernier message: 10/06/2004, 21h00

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo