IP Range Scanner

[sykes]

OK Ok I know there hundreds of these things around, but I hadta go ahead and create one myself ... Feel free to critique or improve if you want

expandcollapse popup

$IP = InputBox("Starting IP", "Please enter the IP you want to start at" & @CRLF & "(Use . to seperate the Octets)")
If @error = 1 Then
   MsgBox(0, "Error", "You Clicked Cancel ... Click OK To Exit")
   Exit
EndIf
If $IP = "" Then 
   MsgBox(0, "Error", "An Invalid Value Was Entered" & @CRLF & "Click OK To Exit")
   Exit
EndIf

$END = InputBox("Ending IP", "Please enter the ending value of the last octet you wish to scan")
If @error = 1 Then
   MsgBox(0, "Error", "You Clicked Cancel ... Click OK To Exit")
   Exit
EndIf
If $END > 255 Then 
   MsgBox(0, "Error", "You Have Entered An Invalid Value" & @CRLF & "Maximum Value is 255")
   Exit
EndIf
If $END = "" Then 
   MsgBox(0, "Error", "An Invalid Value Was Entered" & @CRLF & "Click OK To Exit")
   Exit
EndIf
If Not StringInStr($IP, ".") Then
   MsgBox(0, "", "You did not enter '.' Between Octets" & @CRLF & "Click OK To Exit")
   Exit
EndIf

$IP = StringSplit($IP, ".")
If StringIsAlpha($IP[1]) Or StringIsAlpha($IP[2]) Or StringIsAlpha($IP[3]) Or StringIsAlpha($IP[4]) Then
   MsgBox(0, "", "Only Numeric Values Are Accepted" & @CRLF & "Click OK To Exit")
   Exit
EndIf

$NEXTIP = $IP[4]
$IP = $IP[1] & "." & $IP[2] & "." & $IP[3] & "."

$FILE = FileOpen("IPCheck.log", 2)
While 1
   SplashTextOn("Connectivity Test", "Currently Checking: " & $IP & $NEXTIP, 200, 50)
   $ERRORCODE = RunWait(@ComSpec & " /c ping -n 1 -l 5 " & $IP & $NEXTIP, "", @SW_HIDE)
   If $ERRORCODE = 0 Then
      FileWriteLine($FILE, $IP & $NEXTIP & " Is Alive")
   Else
      FileWriteLine($FILE, $IP & $NEXTIP & " Is Not Responding")
   EndIf
   $NEXTIP = $NEXTIP + 1
   If $NEXTIP > $END Then
      SplashOff()
      ExitLoop
   EndIf
Wend
FileClose($FILE)
RunWait(@WindowsDir & "\Notepad.exe " & @ScriptDir & "\IPCheck.log")
Exit

Errr.... Be sure to watch out for word wrap

or

Download the source here: My Autoit Scripts

[ezzetabi]

Advice for the next time... Try to keep your lines at most 90 chars, so they'll fit well in the forum. Use _, if needed.

[pekster]

/me hugs nmap

/me also know he can't emote on these forums

[Coffee]

I sense an eve junkie

[pekster]

I sense an eve junkie

Nope. I just spend way too much time on IRC.