Comment quitter un VBS ??? Mon "Wscript.quit" ne fonctionne pas...Résolu

Question

Bonjour tout le monde !





Petit problème mais tenace le bougre !!!
J'ai besoin de quitter le déroulement de mon vbs en fonction d'un résultat mais je n'y arrive pas...
J'utilise Wscript.quit mais arrivé à cette instruction, j'obtiens "Objet requis Wscript"

Si quelqu'un y voit plus clair que moi sur se grain de sable....
Merci d'avance !

sturtrid · Accepted Answer

Salut Renfield, merci d'avoir jeté un p'tit coup d'oeil  à mon post...
Euh... j'ai testé comme toi :

do

   a = inputbox("tape 1 pour sortir")

   if a = 1 then

       Wscript.quit

   end if

loop

Et ça fonctionne effectivement. Mais dans mon vbs, impossible ("Objet requis Wscript", erreur 424) ! Chose on ne peut plus étrange n'est-ce pas?
Pourtant c'est la même chose en gros dans mon code... Bref, comme j'ai pas réussi, jme suis débrouillé avec des Exit Sub... Plus embêtant à mettre en place et un code un peu moins clair au final mais ça "tourne" en restant tout de même assez propre...

Merci encore... ++

Renfield · Answer

étrange, j'ai mis :

do
   a = inputbox("tape 1 pour sortir")
   if a = 1 then
       Wscript.quit
   end if
loop


dans un fichier vbs, j'ai double-cliqué dessus, ca fonctionne parfaitement

cs_JMO · Answer

Bonjour,

Reponse = MsgBox (Date,vbInformation+vbYesNo)

If Reponse = vbNo Then 
   MsgBox ("Vous avez répondu NON - Arrêt du script !!!")
   WScript.Quit
End  If

MsgBox ("Vous avez répondu OUI - Suite du script !!!")  

'Méthode Quit
'Wscript, objet
'Force l'arrêt de l'exécution du script à tout moment.
'
'object.Quit([intErrorCode])
'
'object => Objet WScript. 
'intErrorCode => Facultatif. Nombre entier renvoyé comme code de sortie du processus. 
'Si vous n'incluez pas le paramètre intErrorCode, aucune valeur n'est renvoyée.

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Reponse = MsgBox ("test2",vbInformation+vbYesNo)
If Reponse = vbYes Then 
   MsgBox ("TEST2 -> Vous avez répondu Yes - Arrêt du script !!!")
   WScript.Quit
End  If
MsgBox "suite"

jean-marc

cs_JMO · Answer

Bonjour Renfield,
Je suppose que [auteur/STURTRID/1066146.aspx sturtrid]  ne passe pas par un .vbs mais utilise WSH.
Il faut donc référencer l'objet Shell.

jean-marc

sturtrid · Answer

Oups.. Salut JMO !

Alors je suis pas sure de te suivre. J'utilise bien un .vbs... Qui est interprété nativement par WSH ?? Non ?

neolego · Answer

bonjour,

tu peux tester "quit" au lieu de « wscript.quit »
en effet j'ai déjà eu le problème avec d'autre fonction du genre "ScriptFullName" au lieu de wscript.ScriptFullName
cependant j'ai rencontré se genre de problème avec un script vbs dans un doc hta 

tu peu tester sa ne coute rien

jmvd2 · Answer

Bonjour,
Je viens de tomber sur ce forum, au vu de la date je pense que vous avez trouvé ... lol
Sinon la solution est WScript.Quit()
Ne pas oublier les '()'


J.Michel

Comment quitter un VBS ??? Mon "Wscript.quit" ne fonctionne pas...

7 réponses

Votre réponse