SCANNEUR DE HOST/ADDRESS

/scan {
  if ($1 != $null) {
    /set %scan $1
  }
  else {
    /set %scan $$?"Scanner quoi ?"
  }
  /set %scanad $ialchan(*@* $+ %scan $+ *,#,0)
  if (%scanad != 0) {
    /echo -a //4Scan// Nombre d'adresses contenant10 %scan :4 %scanad
    /set %scannumber 0
    while (%scannumber < %scanad) {
      /inc %scannumber
      /echo -a //4Scan// 10 %scannumber : $ialchan(*@* $+ %scan $+ *,#, $+ %scannumber $+ )
    }
  }
  /set %scanhost $ialchan(* $+ %scan $+ *,#,0)
  if (%scanhost != 0) {
    /echo -a //4Scan// Nombre de hosts contenant10 %scan :4 %scanhost
    /set %scannumber 0
    while (%scannumber < %scanhost) {
      /inc %scannumber
      /echo -a //4Scan// 10 %scannumber : $ialchan(* $+ %scan $+ *,#, $+ %scannumber $+ )
    }
  }
  if ((%scanad == 0) && (%scanhost == 0)) {
    /echo -a //4Scan// 10 0 : Aucune adresse ni aucun host ne correspond à10 %scan
  }
}