Ouverture du même cmd avec la fonction Shell

Version imprimable

07/01/2016, 14h41
Ju 54

Ouverture du même cmd avec la fonction Shell

Bonjour à tous :D,

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:

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 :ccool:

SAlut,
tu peux essayer comme cela

Code:

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

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:

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 :)

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:

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

07/01/2016, 16h47
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 :ccool: