Discussion :

[aculy]

Bonjour,
j'ai créé un script qui lance un batch
et lorsque je modifie le chemin d'accès cela ne fonctionne plus

ex 1 qui fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Option Explicit
 
Dim WSHShell, Commande
 
Set WSHShell = CreateObject("WScript.Shell")
Commande = "C:\Users\xxxxxxxx\Desktop\ping.bat"
Do While true
	WSHShell.Run Commande
	Wscript.sleep 30000
loop

ex 2 qui bug

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Option Explicit
 
Dim WSHShell, Commande
 
Set WSHShell = CreateObject("WScript.Shell")
Commande = "R:\06 - INFORMATIQUE\G - PROJETS\Ping\ping.bat"
Do While true
	WSHShell.Run Commande
	Wscript.sleep 30000
loop

Mise à part le fait que d'un coté je sois en local de l'autre via un lecteur réseau...
j'ai ce message...


est ce que en mode réseau cela ne fonctionne pas mon script ?

Merci d'avance

[ProgElecT]

Salut

Essais une de ces 2 syntaxes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Commande = chr(34) + "R:\06 - INFORMATIQUE\G - PROJETS\Ping\ping.bat" + chr(34)
'ou bien
Commande = """R:\06 - INFORMATIQUE\G - PROJETS\Ping\ping.bat"""

[Invité]

Salut,

Ton problème me fait penser à un blocage de l'UAC (User account control)...

[aculy]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Commande = chr(34) + "R:\06 - INFORMATIQUE\G - PROJETS\Ping\ping.bat" + chr(34)

cela fonctionne
MERCI

maintenant le soucis est que dans mon script j'ai mis une boucle
et que à chaque fois qu'il lance le Batch cela me demande d'appuyer sur oui.... pour lancer le batch...

[l_autodidacte]

maintenant le soucis est que dans mon script j'ai mis une boucle
et que à chaque fois qu'il lance le Batch cela me demande d'appuyer sur oui.... pour lancer le batch...

Montre la partie du code correspondant à la question

[aculy]

mon code n'a pas changé

pour la partie VBS j'ai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Dim WSHShell, Commande
 
Set WSHShell = CreateObject("WScript.Shell")
 
Commande = chr(34) + "R:\06 - INFORMATIQUE\G - PROJETS\Ping\ping.bat" + chr(34)
 
Do While true
	WSHShell.Run Commande
	Wscript.sleep 30000
loop
' Set WSHShell = Nothing

et pour le batch

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
  @echo off
echo ---------------------------------------------- >> "R:\06 - INFORMATIQUE\G - PROJETS\Ping\IP_test.csv"
echo. >> "R:\06 - INFORMATIQUE\G - PROJETS\Ping\IP_test.csv"
echo %date% >> "R:\06 - INFORMATIQUE\G - PROJETS\Ping\IP_test.csv"
echo %time% >> "R:\06 - INFORMATIQUE\G - PROJETS\Ping\IP_test.csv"
ping.exe 10.33.243.160 -n 1 >> "R:\06 - INFORMATIQUE\G - PROJETS\Ping\IP_test.csv"

environnement win 7 PRO