Problème avec script ping IP Range

Problème avec script ping IP Range - VB/VBA/VBS - Programmation

Marsh Posté le 03-10-2012 à 16:30:41    

Bonjour,
 
Je n'arrive pas à comprendre pourquoi mon script ne s'arrête pas lorsque "intEndIP" est atteint.
 
Les valeurs "strSubnet", "intStartIP" et "intEndIP" sont bien pris en compte par le script.
Celui-ci début bien sur la première adresse IP correspondante à "strSubnet" + "intStartIP" soit dans mon script : strComputer = strSubnet & strIP
Mais lorsqu'il arrive sur la dernière adresse IP demandé, le script continu en testant les adresses IP qui suivent sans prendre en compte : Do Until x > intEndIP
 
Quelqu'un peut-il me dire d'où vient le problème ?
Merci par avance.
 
Voici mon script :
 

Code :
  1. 'User Input of Network ip
  2. Message = "Please enter Network IP:" & chr(10) & chr(10) & _
  3.   "Example: For 55.7.159.0/24" & chr(10) & _
  4.   "Type '55.7.159.' whitout '0'"
  5. Title = "Network IP"
  6. Network = InputBox(Message, Title, "55.7.159." )
  7. strSubnet = Network
  9. 'User Input of Start ip
  10. Message = "Please enter Start IP Range:" & chr(10) & chr(10) & _
  11.   "Example: For 55.7.159.1" & chr(10) & _
  12.   "Type '1'"
  13. Title = "Start Range"
  14. StartIP = InputBox(Message, Title, "1" )
  15. intStartIP = StartIP
  17. 'User Input of End ip
  18. Message = "Please enter End IP Range:" & chr(10) & chr(10) & _
  19.   "Example: For 55.7.159.255" & chr(10) & _
  20.   "Type '255'"
  21. Title = "End Range"
  22. EndIP = InputBox(Message, Title, "255" )
  23. intEndIP = EndIP
  25. 'Problème : Le script ne s'arrête pas lorsque intEndIP est atteind !!
  26. x = intStartIP
  28. Do Until x > intEndIP
  29.    strIP = CStr(x)
  30.       strComputer = strSubnet & strIP
  32.    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2" )
  33.    Set colItems = objWMIService.ExecQuery _
  34.        ("Select * from Win32_PingStatus " & _
  35.            "Where Address = '" & strComputer & "'" )
  37.     For Each objItem in colItems
  38.       If objItem.StatusCode = 0 Then
  39. WScript.Echo (strComputer & " - Reply received." )
  40.       Else
  41. WScript.Echo (strComputer & " - No Reply received." )
  42.       End If
  43.    Next
  45. x = x + 1
  47. Loop

Reply

Marsh Posté le 03-10-2012 à 16:30:41   

Reply

Marsh Posté le 08-11-2012 à 09:57:15    

Réponse ici = http://www.tek-tips.com/viewthread.cfm?qid=886788
 
Cdlt,
Vincsilver

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed