Surveillance d'un réseau sous Excel

[Marco]

Bonjour a tous,

A chaque jour suffit ca peine.
Aujourd'hui, je voudrais essayer de surveiller un réseau à partir d'Excel. Je m'explique, je voudrais que de facon régulière (bon ca c'est ok, je sais faire), Excel ping des pc et me reponte le résultat.
Par exemple, une cellule dans laquelle il y a l'ip, dans celle d'à coté, il remonte le fond de la cellule vert quand c'est ok et rouge quand c'est ko.

Sous dos, ca ferait un truc du style :
ping 192.168.xx.xx -n 2 | FIND 'TTL'>NUL
if errorlevel 1 ......

Mais alors, pour remonter ca sous excel !!!!!!!

merci pour votre aide.

Marco

 

[Capelle]

bonjour José

j'ai vue ton fichier que je trouve Ok pour moi
m'est je voudrais rajouter le nom du connecté a l'adresse ping
croit t'u que cela et possible si oui comment faire

merci de ta réponse

A+Capello12

 

[aguaza]

Re : Surveillance d'un réseau sous Excel

Bonjour,

Je vous explique mon problème. Je souhaiterais vérifier la présence d'une station sur le réseau et j'ai trouvé ce petit exemple qui est exactement ce que je veux faire. Le seul problème est ; lorsque j'ouvre le fichier excel, que je génère le programme tout ce passe bien, mais lorsque que je veux le lancer le programme a partir du bouton, j'ai une erreur :

Erreur execution 5 (Argument ou appel de procedure incorrect)


Comment ça se fait : tous les chemins sont bon pourtant, je les ai vérifié !

Autre chose, comment choisir l'emplacement des boutons, leur taille et leur texte ???

Merci pour vos réponses

 

[JCGL]

Re : Surveillance d'un réseau sous Excel

Bonjour à tous,

Juste un passage pour saluer JMPS qui assure un SAV de deux ans. Bravo

A+

 

[fredo59182]

Re : Surveillance d'un réseau sous Excel

slt jmps,

j'essai de remplacer la réponse lors de PINGer par un code couleur
Red Ping Ko
Green Ping Ok
Yellow Ping moyen

Je n'arrive pas à intéger la fonction Interior.Color

Help me please

Fred

 

[JCGL]

Re : Surveillance d'un réseau sous Excel

Bonjour à tous,

Pas certain d'avoir bien compris.
Dans le doute j'ai laissé les couleurs et ajouté du Texte (' Ajout JCGL)

Private Sub CommandButton1_Click() 'JMPS sur XLD
    ' Génération du .bat
    Dim Prem As String, Der As String, IP As Range
    Prem = "A2"
    Der = Range("A65536").End(xlUp).Address(False, False)
    Open ThisWorkbook.Path & "\XLPing.bat" For Output As #1
    ' Première adresse, on écrase le précédent .bat
        Print #1, "ping " & Range("A1").Value & ">""" & ThisWorkbook.Path & "\XLPing.txt"""
    ' Ensuite on ajoute
        For Each IP In Range(Prem & ":" & Der)
            Print #1, "ping " & IP.Value & ">>""" & ThisWorkbook.Path & "\XLPing.txt"""
        Next IP
    Close
End Sub

Private Sub CommandButton2_Click()
    ' Lancement du .bat
    Dim Retour As Variant
    Retour = Shell(Chr(34) & ThisWorkbook.Path & "\XLPing.bat" & Chr(34), vbNormalFocus)
End Sub

Private Sub CommandButton3_Click()
    ' Traitement du fichier résultat
    Dim Prem As String, Der As String
    Dim Ligne As String, IP As String, Etat As Byte
    Prem = "A1"
    Der = Range("A65536").End(xlUp).Address(False, False)
    Open ThisWorkbook.Path & "\XLPing.txt" For Input As #1
        While Not EOF(1)
            Line Input #1, Ligne
            If InStr(1, Ligne, "Statistiques") <> 0 Then
                IP = Mid(Ligne, 24, Len(Ligne) - 24)
                Line Input #1, Ligne
                Line Input #1, Ligne
                Etat = Val(Mid(Ligne, 36, 1))
                For Each c In Range(Prem & ":" & Der)
                    If IP = c.Value Then
                        Select Case Etat
                            Case Is = 0
                                c.Offset(0, 1).Interior.Color = vbRed
                                 c.Offset(0, 1).Value = "Ping KO" 'Ajout JCGL
                            Case Is = 4
                                c.Offset(0, 1).Interior.Color = vbGreen
                                c.Offset(0, 1).Value = "Ping OK" 'Ajout JCGL
                            Case Else
                                c.Offset(0, 1).Interior.Color = vbYellow
                                c.Offset(0, 1).Value = "Ping Moyen" 'Ajout JCGL
                        End Select
                     End If
                Next c
            End If
        Wend
    Close
End Sub

A+

 

[fredo59182]

Re : Surveillance d'un réseau sous Excel

Super merci JCGL

Bizzard, l'analyse plante après la 5eme IP. Je n'ai pas resultat, et pas d'erreur non plus. pourtant j'ai bien un résultat dans le doc TXT.

J'ai trouvé ceci sur le forum
https://www.excel-downloads.com/threads/vba-ftp-telnet-ping.95522/
Je vais essayer de faire une comp des deux doc.

Merci encore
Fred

 

[JCGL]

Re : Surveillance d'un réseau sous Excel

Re,

Déjà que je suis permis de "toucher" un code de JMPS, tu comprendras que je ne vais pas en rajouter.

A+

PS : José , tu nous manques et je ne te raconte pas la frustration de Robert .... Arf, depuis que tu es "absent", il a "un certain temps retard" quand ça chauffe... Au plaisir de vous lire ou relire tous les deux...

Edition : J'ai testé :
192.168.1.1 127.0.0.1 192.168.0.66 192.168.1.11 192.168.1.12 192.168.1.13 192.168.1.14 192.168.1.15 192.168.1.16
Et je n'ai eu aucun problème, mis à part que ce sont des IP "Ping KO"... Normal