Someone

alias netcheck {
  var %h = 1,%xc = 0,%xx = 0,%xt = 0
  while ($scon(%h)) {
    scon %h
    var %xx = 1
    inc %xc $chan(0)
    while (%xx <= $chan(0)) {
      inc %xt $nick($chan(%xx),0)
      inc %xx
    }
    inc %h
  }
  echo -ga %xt users over %xc channels and $scon(0) networks
}