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

[l_autodidacte]

Dans le code, je ne vois pas où le mot "oui" peut être affiché.
Cela suppose qu'il y a un bouton "Oui" sur lequel on peut appuyer avec la souris !

Peut-être que tu veux dire qu'il te demande : "Appuyez sur une touche pour continuer" ?

[aculy]

pardon j'ai pas mis le screenshot....
je lance mon script et j'ai ce message quand il doit lancer le Batch

[l_autodidacte]

Essaie de désactiver(temporairement) les alertes de sécurité et lance le script pour voir le résultat.
Regarde ICI​ pour WIN 7 et LA​ pour Win 10

[aculy]

le soucis c'est un PC entreprise...
vu que c'est pour le boulot mon script
et que je n'ai pas la main sur mes paramètres de sécurités.....

[l_autodidacte]

D'après la capture écran, je vois que le bouton Annuler est sélectionné par défaut.
Lance le script tel qu'il est et vérifie cette remarque.

Appuie une fois sur la touche Tab ensuite regarde le contrôle qui a le focus, est-ce le bouton Exécuter ?

Répète l'opération le nombre de fois nécessaires pour amener le focus sur Exécuter.
Quel est le nombre d'appuis sur Tab ?

[Cachlab]

Bonjour,

Sinon, à quoi sert ton script ? Et pourquoi une partie en vbs et l'autre en batch ?
Est-ce que quelquechose comme cela te conviendrait ?

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
Const ForReading = 1, ForWriting = 8
Dim oFso
Dim Fichiercsv, Message, Date_Heure, Adresse
Set oFso = CreateObject("Scripting.FileSystemObject")
 
Adresse = "10.33.243.160"
Fichiercsv = "R:\06 - INFORMATIQUE\G - PROJETS\Ping\IP_test.csv"
 
If oFso.FileExists(Fichiercsv) = False then oFso.CreateTextFile(Fichiercsv)
 
Message = now
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery("select * from Win32_PingStatus where address = '" & Adresse & "'")
For Each objStatus in objPing
If objStatus.Statuscode = 0 Then
Message = Message & ";Ping  " & adresse & ";succes;Temps de réponse: " & objStatus.ResponseTime & "ms" & vbcrlf
Else
Message = Message & ";Ping  " & adresse & ";echec" & vbcrlf
End if
Next
 
Set myfile = oFso.OpenTextFile(Fichiercsv, ForWriting) : myfile.Write(Message) : myfile.Close

++

[aculy]

Quel est le nombre d'appuis sur Tab ?

j'ai 2 tab
pour être sur le Executer

[l_autodidacte]

A ta place, j'opterais pour la solution donnée par Cachlab (Salut) plus simple et propre. Tu peux y ajouter d'autres données si tu veux
Sinon, essaie d'utiliser la méthode SendKeys en espérant que le système l'accepte, car parfois il y a erreur.

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
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 1000
    WSHShell.SendKeys "{TAB}" 
    WSHShell.SendKeys "{TAB}"
    Wscript.Sleep 500
    WSHShell.SendKeys "{ENTER}"
    Wscript.sleep 30000
loop

Si la boîte de message apparaît tardivement, essaie d'augmenter la valeur d'attente( pour Sleep)

[aculy]

changement de langage
--> C#
ici
cela fonctionne

[l_autodidacte]

Le lien indiqué n'est pas correctement orthographié :
Il fallait mettre : https://www.developpez.net/forums/d1.../#post10923422
ou bien plus court : ICI en ajoutant les balises [post=numéro du post]Nom d'affichage[/post]​ .