créer une macro pour scanner les IP du réseau

[Tech]

Bonjour le forum,

comme expliqué dans le titre, je voudrais créer un programme qui fasse la même chose qu'un scanner d'IP (du style angry...)

Je veux le faire en VBA car c'est pour être exécuté sur un PC sur lequel je n'ai pas les droits suffisants pour installer ne serait-ce que Java. Alors un autre programme, j'oublie.

Mais par contre Excel 2010 est installé

Après moult recherches, j'ai réussi à faire ce que je voulais.
Enfin en Partie

voici le code :

Sub RunPing()
Dim i As Integer, j As Integer, StrCommand As String, StrAddress  As String, StrResult As String
Dim AppelDOS, CmdDOS, StrExtract As String, PosPerte As Integer

For i = 0 To 3 '255
    StrAddress = "192.168.1." & i
    StrCommand = "C:\Windows\System32\Ping.exe " + StrAddress
    Set AppelDOS= CreateObject("WScript.Shell")
    Set CmdDOS = AppelDOS.exec(StrCommand)
    StrResult = CmdDOS.stdOut.readAll
    Cells(i + 1, 1) = StrResult
    PosPerte = InStr(StrResult, "perte")
    j = 4
    j = IIf(Mid(StrResult, InStr(StrResult, "perte") + 6, 1) = 0, 2, 3)
    StrExtract = Mid(StrResult, InStr(StrResult, "perte") + 6, j)
    With Cells(i + 1, 2)
            .Value = StrExtract
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
    End With
Next i

End Sub

Le ping fonctionne mais le résultat obtenu est plutôt inattendu ! :

Envoi d'une requˆte 'Ping' 192.168.1.0 avec 32 octets de donn‚esÿ:
R‚ponse de 192.168.0.254ÿ: Impossible de joindre l'h“te de destination.
R‚ponse de 192.168.0.254ÿ: Impossible de joindre l'h“te de destination.
R‚ponse de 192.168.0.254ÿ: Impossible de joindre l'h“te de destination.
R‚ponse de 192.168.0.254ÿ: Impossible de joindre l'h“te de destination.

Statistiques Ping pour 192.168.1.0:
Paquetsÿ: envoy‚s = 4, re‡us = 4, perdus = 0 (perte 0%),

1° il doit y avoir un problème de codage. ASCII ou autre, je ne maitrise absolument pas cette partie de l'informatique.
2° Je ne comprends pas ce qu'il peut se passer dans le logiciel ping.exe pour me renvoyer des valeurs aussi absurdes.
D'un côté il me dit qu'il ne peut pas joindre la destination et de l'autre, dans le résultat final, il me dit perte 0%
Je précise que ce test à été effectué sur un réseau ou ces adresses ne sont pas utilisées. Il devrait normalement me renvoyer 100% de perte.
de plus, les adresses affichées dans les résultats intermédiaires ne sont pas les mêmes que les adresses de début et de fin du résultat.
il écrit bien " Envoi d'une requête 'Ping' 192.168.1.0" au début et "Statistiques Ping pour 192.168.1.0" à la fin mais les adresses de réponses ne correspondent pas : "Réponse de 192.168.0.254: Impossible de joindre l'hôte de destination" ! Mais d’où y sort ce 0.254 !!!

Je n'y comprends plus rien. C'est justement pour ça que je suis la ^^

Quelqu'un aurait il une idée d’où peut provenir le problème ?

 

[pyfux]

Re : créer une macro pour scanner les IP du réseau

Bonjour,

C'est pas ton adresse IP?
Lance un IPCONFIG /ALL pour voir!

(note: tu n'est pas sur le bon forum.)