Something like this?
Code:
on @!*:JOIN:*: who $nick 
raw 352:*:{ 
  if ($read(ip.txt,$4)) {
    var %n = $comchan($3,0), %nick = $6, %ip = $v1
    while (%n) {
      var %chan = $comchan(%nick,%n)
      if ($comchan(%nick,%n).op) { mode %chan +b *!*@ $+ $gettok(%ip,1-3,46) $+ .* | kick %chan %nick 4Come with Original IP Dear }
      dec %n
    }
  }
}