This script will show which all IP address are in use for a range of IP and also check whihc all are online and whihc all are offline.
============================================================================================'Script Written by Sudheesh Narayanaswamy'This can be used to check the IP address which are in use currentely. It will tell you which all IP are online and which all are offline'SET teh Minnum Rnage and Maximum range'Name the service which you want to check in the Varable sService (Name of service in uppercase)'Usuage cscript <FILENAME.VBS> will output to dos and in case you want to save this cscript <FILENAME.VBS> output.log'==============================================================================================
'Set the values to testRangeMin = " 10.171.88.136"RangeMax = " 10.171.88.156"
Set WshShell = CreateObject("WScript.Shell")
MinAry = Split(RangeMin, ".", -1, 1)MaxAry = Split(RangeMax, ".", -1, 1)
times = MaxAry(3)- MinAry(3)
For i=1 To timesIPAry = Join(MinAry, ".")
PINGFlag = Not CBool(WshShell.run("ping -n 1" & IPAry ,0,True)) If PINGFlag = True Then WScript.Echo "Online" & IPAryElse WScript.Echo "Ofline" & IPAry End IfMinAry(3)=MinAry(3)+1Next
Hope this will be helpful
Sudheesh Narayanaswamy | Support Engineer