; PingScan
; --------
; Scan a range of IP addresses and report successful
; pings. Note low priority to minimise processing
;
priority low
setfont Tahoma,10,B
Banner Ping Scan
delay 15
banoff
setfont default
setvar A,192.168.1.1
setvar B,192.168.1.254

:enter
;report on
ipbox Ping Scan,Enter the first IP address to ping:,A,%A,,
ifmsg cancel,end

setvar B,%A
ipbox Ping Scan,Enter the last IP address:,B,%B,,
ifmsg cancel,end

;step on
parsip %A,1,2,3,4
parsip %B,G,H,I,J
iflvar J,255,go
setvar J,254

:go
console Ping Scan,Pinging from %A to %B||,,100|c
setvar D,Scan Again ?

:cont
ifnvar 4,%J,docheck
ifnvar 3,%I,docheck
ifnvar 2,%H,docheck
ifnvar 1,%G,docheck
goto exit

:docheck
banner Pinging %1.%2.%3.%4,,170|50
ping %1.%2.%3.%4,1
iferror nextip
console ,%1.%2.%3.%4|

:nextip
incvar 4
iflvar 4,255,cont
setvar 4,1
incvar 3
iflvar 3,255,cont
setvar 3,1
incvar 2
iflvar 2,255,cont
setvar 2,1
incvar 1
iflvar 1,224,cont

:exit
banoff
console ,|Scan completed.||
msgbox Ping Scan,%D,1
ifmsg ok,enter
:end