Tech
XLDnaute Junior
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 :
Le ping fonctionne mais le résultat obtenu est plutôt inattendu ! :
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 ?
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 :
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 ?