Here's an additional robust code and very simple..

Code:
on 1*:join:#Channelname: {
  if (*!*@hostmask iswm $address($nick,2)) {
    mode #Channelname +b $address($nick,2)
    kick #Channelname $nick ( whatever your reason is )
  }
}

Hope that helps =)