Discussion :

[Ju 54]

Bonjour à tous ,

J'ai vu pas mal de post sur le sujet mais aucun ne me répond pleinement .. :/

Je ping des équipements et je copie le résultat du test dans un .txt en VBA avec la commande

Code :

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

Shell "cmd /k ping 1.1.1.2 -n 10 -w 250 > c:ping.txt", vbHide

jusque là tout va bien ..

Seulement j'aimerais que le MÊME cmd dont le résultat est négatif s'ouvre sans pour autant refaire le test. J'ai donc mis l'option /k à ma commande pour ne pas fermer le cmd mais je n'arrive pas à le reprendre sans relancer un autre cmd ..

Des idées ?

Merci d'avance

[Oliv-]

SAlut,
tu peux essayer comme cela

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
22
23
24
 
Public oShell
Sub test_equipement()
Set oShell = CreateObject("wscript.Shell")
MsgBox IsOnline("1.1.1.2")
End Sub
 
 
Function IsOnline(Address)
    Dim strText
    IsOnline = False
    Set oExecObj = oShell.Exec("%comspec% /c ping -a -n 1 -w 20 " & Address)
    Do While Not oExecObj.StdOut.AtEndOfStream
        strText = oExecObj.StdOut.ReadAll()
        If InStr(strText, "ponse de") > 0 Then
            IsOnline = True
            Exit Function
        Else
 
        Shell "cmd /k echo ping " & Address & " -n 10 -w 250 "
 
        End If
    Loop
End Function

[Ju 54]

Tout d'abord, merci à toi !
Mais je n'ai pas tout compris a ton script .. :/
J'ai déjà un début de code de mon coté je ne sais pas si je peux "fusionner" les deux :

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
22
23
24
Sub Bouton1_Cliquer()
 
Shell "cmd /k ping 1.1.1.2 -n 10 -w 250 > c:ping.txt", vbHide    ' Copie du contenu du cmd lors du ping dans ping.txt
 
Sleep 10000
 
Dim Temp As String
Open "c:ping.txt" For Input As #1
Temp = Input(LOF(1), 1)        ' Copie de ping.txt dans Temp
Close 1
 
If Temp Like "*reçus = 10*" Then
 
MsgBox "Ping avec Shell OK"
 
Else
 
'MsgBox Temp
 
Shell "cmd", vbNormalFocus
 
End If
 
End Sub

Là, ça va jusqu'a mon Else en faite après je ne sais pas donc je vais essayer ton code mais j'aimerais le comprendre d'abord avant de le copier

[Oliv-]

Mon script lance 1 ping puis vérifie par le retour de la variable si c'est un succès ou pas!

Ça dépend de ton besoin, est ce que 1 reçu est suffisant ? ou tous les envoyés= reçus ?

mais en gros çà fait pareil sans passer par un fichier txt

tu dois pouvoir modifier mon code comme cela pour qu'il fasse comme le tien

attention l'encodage est différent les accents et cie arrivent différemment ici reçus=re‡us

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
22
 Function IsOnline(Address)
    Dim strText
    IsOnline = False
    Set oExecObj = oShell.Exec("%comspec% /c ping -a -n 10 -w 250 " & Address)
    Do While Not oExecObj.StdOut.AtEndOfStream
        strText = oExecObj.StdOut.ReadAll()
' pour copier le retour dans le presse papier
'il faut decommenter les lignes et ajouter un USERFORM (à supprimer ensuite)
       ' With New DataObject
      '  .SetText strText
      '  .PutInClipboard
     '  End With
        If InStr(strText, "re‡us = 10") > 0 Then
            IsOnline = True
            Exit Function
        Else
 
        Shell "cmd /k echo ping " & Address & " -n 10 -w 250 "
 
        End If
    Loop
End Function

[Ju 54]

Ok super !!

Mais ton code ouvre un second cmd pour le deuxième test ?! Parce que j'ai justement besoin d'avoir 10 pings ok, c'est pour ça que je voudrais ne pas avoir à relancer le ping car ça prend 10sec en cas d'échec ..

Merci je remplace ma copie fichier par ton code