vincsilver | 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 :
- 'User Input of Network ip
- Message = "Please enter Network IP:" & chr(10) & chr(10) & _
- "Example: For 55.7.159.0/24" & chr(10) & _
- "Type '55.7.159.' whitout '0'"
- Title = "Network IP"
- Network = InputBox(Message, Title, "55.7.159." )
- strSubnet = Network
- 'User Input of Start ip
- Message = "Please enter Start IP Range:" & chr(10) & chr(10) & _
- "Example: For 55.7.159.1" & chr(10) & _
- "Type '1'"
- Title = "Start Range"
- StartIP = InputBox(Message, Title, "1" )
- intStartIP = StartIP
- 'User Input of End ip
- Message = "Please enter End IP Range:" & chr(10) & chr(10) & _
- "Example: For 55.7.159.255" & chr(10) & _
- "Type '255'"
- Title = "End Range"
- EndIP = InputBox(Message, Title, "255" )
- intEndIP = EndIP
- 'Problème : Le script ne s'arrête pas lorsque intEndIP est atteind !!
- x = intStartIP
- Do Until x > intEndIP
- strIP = CStr(x)
- strComputer = strSubnet & strIP
- Set objWMIService = GetObject("winmgmts:\\.\root\cimv2" )
- Set colItems = objWMIService.ExecQuery _
- ("Select * from Win32_PingStatus " & _
- "Where Address = '" & strComputer & "'" )
- For Each objItem in colItems
- If objItem.StatusCode = 0 Then
- WScript.Echo (strComputer & " - Reply received." )
- Else
- WScript.Echo (strComputer & " - No Reply received." )
- End If
- Next
- x = x + 1
- Loop
|
|
