Bug sur script VBS

Version imprimable

1 pièce(s) jointe(s)

Bug sur script VBS

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:

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:

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...
Pièce jointe 464336

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

Merci d'avance

Salut

Essais une de ces 2 syntaxes

Code:

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

09/04/2019, 22h03
Invité

Salut,

Ton problème me fait penser à un blocage de l'UAC (User account control)...
15/04/2019, 18h16
aculy

Code:

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...
15/04/2019, 23h49
l_autodidacte

Citation:

Envoyé par aculy

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

mon code n'a pas changé

pour la partie VBS j'ai

Code:

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:

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

17/04/2019, 00h13
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 ! :calim2:

Peut-être que tu veux dire qu'il te demande : "Appuyez sur une touche pour continuer" ? :koi:
17/04/2019, 15h23
aculy

1 pièce(s) jointe(s)

Pièce jointe 467731
pardon j'ai pas mis le screenshot....
je lance mon script et j'ai ce message quand il doit lancer le Batch
17/04/2019, 15h59
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
17/04/2019, 16h01
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.....
17/04/2019, 16h16
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 ?

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:

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

19/04/2019, 16h16
aculy

Citation:

Envoyé par l_autodidacte

Quel est le nombre d'appuis sur Tab ?

j'ai 2 tab
pour être sur le Executer

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:

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)

14/05/2019, 17h49
aculy

changement de langage
--> C#
ici
cela fonctionne
14/05/2019, 21h45
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] .