this alias
/host.scan {
if ($network == $null) { set %ntw $server }
else { set %ntw $network }
if ($1 == $null) { halt }
if ($1 == -c) {
if (# == $null) { halt }
if ($window(@HostScan) != $null) { .window -c @HostScan }
window -lk -t4,15 +s @HostScan 220 50 320 290 @HostScan Verdana 11
aline @HostScan $chr(160)
aline @HostScan $chr(160)
aline @HostScan $str($chr(160),1) 10 %script 15 %version Host Scanner
aline @HostScan $str($chr(160),2) 0Host User(s) On %ntw $+ :
aline @HostScan $chr(160)
aline @HostScan $chr(160)
set %Varh.Total 0 | .enable #Scan.host | .raw who *. $+ %hostmark
}
}
this remote
#Scan.host off
raw 352:*: {
if ($left($7,1) == G) { %temp.user.away = [Away] }
else { unset %temp.user.away }
inc %Varh.Total | aline @HostScan $str($chr(160),3) 10 %Varh.Total $+ . $+ $chr(9) $+ 0 $6 $+ $chr(9) $+ 15 $+($3@,$4) 0 %temp.user.away | halt
}
raw 315:*: {
if (%Varh.Total == 0) { aline @HostScan $str($chr(160),3) 10 No such host11 (. $+ %hostmark $+ ) 10or server has scan protection ! | goto end }
aline @HostScan $chr(160)
aline @HostScan $chr(160)
aline @HostScan $str($chr(160),3) 10Total:11 %Varh.Total 10User(s) with domain11 (. $+ %hostmark $+ ) 10found !
:end
unset %varh.total
.disable #Scan.host | halt
}
#Scan.host end
