Pb d'exécution de batch

Question

Salut !!
Bon je sais je suis lourd mais la je ne comprend pas pourquoi ca marche pas. je veux &#233;x&#233;cuter mon batch a partir de mon VBS et ca ne marche pas. Mon code est :
'Set ObjShell = CreateObject("WScript.shell")
objShell.exec "C:\BATCH
antes.bat" '
Not&#233; que le script et le batch sont dans le meme dossier
Il y a des solutions sur ce site, je les ai test&#233; mais pas de r&#233;sultats. Si quelqu un a une id&#233;e, elle est la bienvenue.

cs_Willi · Answer

Salut,
Pour etre sur je viens de tester
Set ObjShell = CreateObject("WScript.shell")
objShell.exec "C:\BATCH
antes.bat"
L'execution se fait bien.

Tu as un message d'erreur &#224; l'execution du script vbs ?
Tu peux nous donner le contenu de nantes.bat le probl&#232;me peut venir &#233;galement de l&#224; !

cs_Stevous · Answer

En fait, il s'&#233;x&#233;cute bien mais rien ne s'effectue. Voila le contenu du batch (PS : ce ne st pas les vrais IP que je te met ) :
" route delete 65.125.0.0
  route delete 67.242.0.0
  route delete 69.225.0.0
  route delete 72.252.0.0
  route delete 73.27.0.0
  route delete 145.127.0.0

  route add 75.21.0.0 mask 255.0.0.0 85.0.0.1
  route add 98.222.0.0 mask 255.0.0.0 85.0.0.1
  route add 125.201.0.0 mask 255.0.0.0 85.0.0.1
  route add 79.54.0.0 mask 255.0.0.0 85.0.0.1 "

En fait, apr&#232;s l'&#233;x&#233;cution du batch, je fais un 'route print' sous DOS et rien n'apparait dans itin&#233;raires persistants alors que les nouvelles routes devraient apparaitre.

Si quelqu un a une solution, ce serait sympa.

crenaud76 · Answer

Ormis le faite qu'il semble y avoir un simple quote (commentaire) devant ta ligne "Set ObjShell ..." (pb lors du copier-coller du code ?) cela semble effectivement correct !
Et Willi a raison, donnes-nous le code erreur que tu obtiens !

CR

cs_Stevous · Answer

Il n'y a pas d'erreur. C'est juste que les routes ne sont pas pris en compte apres l execution du batch. Je vais essayer de trouver un autre moyen pour l execution de ce batch.
    Merci pour votre aide les gars.
A plus

crenaud76 · Answer

Et si tu lances le batch depuis une console DOS, les routes sont OK ?!?

cs_Stevous · Answer

Salut
Quand je lance le batch a partir d'une fenetre DOS, les routes sont bien ins&#233;r&#233;s. La je ne vois vraiment pas ou est la solution !!!

cs_Willi · Answer

Peux tu nous donner une partie du code de ton vbs ?

cs_Stevous · Answer

Nom_agence = InputBox("Veuillez saisir le nom de votre agence : ","Nom d'agence")

reponse = Msgbox("L'agence de " & Nom_agence & " est elle votre agence?",68,"Demande de confirmation")

If reponse = 7 then
    nom_agence = Inputbox("Veuillez resaisir votre nom d'agence s'il vous plait : ","Nom d'agence")
End If

If nom_agence="nantes" or nom_agence="Nantes" Then 
        route_nantes     
    ElseIf nom_agence="toulouse" or nom_agence="Toulouse" Then
        route_toulouse        
    ElseIf nom_agence="angers" or nom_agence="Angers" Then
        route_angers        
    ElseIf nom_agence="la roche sur yon" or nom_agence="La Roche sur Yon" or nom_agence="La roche sur yon" or nom_agence="La Roche" Then
        route_laroche        
    ElseIf nom_agence="laval" or nom_agence="Laval" Then
        route_laval        
    ElseIf nom_agence="brest" or nom_agence="Brest" Then
        route_brest        
    Else message = Msgbox("Veuillez relancer le programme s'il vous plait !",16,"ERREUR")
    WScript.quit
End If

Sub route_nantes
Set objShell = CreateObject("WScript.Shell")

objShell.Exec "C:\route_nantes.bat"

End Sub

cs_Willi · Answer

Re 
Utilise la m&#233;thode Run &#224; la place de Exec
objShell.Run "C:\route_nantes.bat"

Pb d'exécution de batch

9 réponses

Discussions similaires