I'm sure something like this has probably already been tried, but i'll post mine, just in case it hasn't ^_^

This script does NOT require TAD's Home Integration Script.

Usage: /sahop
or /sahop if your active window is the channel you want them to /sahop

You must be an IRCop for this to work properly.

-edit-

Added the commands that allow you to change someone's nick, sajoin them, sapart them, and sahop them at their request. Must be U:lined for this to work.

alias sahop {
  If (!$2-) {
    If (# isin $active) && ($1 ison $active) { sapart $1 $active | sajoin $1 $active }
    Elseif (# isin $active ) { echo -a 2* Error: $1 is not in channel $active }
    Else { echo -a 2* Error: /sahop <Nick> <Channel> }
  }
  Elseif ($1 ison $2) { sapart $1 $2 | sajoin $1 $2 }
  Elseif (# isin $2) { echo -a 2* Error: $1 is not in channel $2 }
  Else { echo -a 2* $2 $+ , no such nick/channel. }
}

on *:TEXT:`*:*: {
  If (nick isin $1) {
  If (!$2) { .notice $nick Please type `nick <new nick> }
  Else { svsnick $nick $2- 123 }
  }
  If (part isin $1) {
  If (!$2) { .notice $nick Please type `join <channel> }
  Elseif (# isin $2-) { sajoin $nick $2- }
  Else { .notice $nick Please type `join <channel> }
  }
  If hop isin $1) {
  If ($2 == $null) { .notice $nick Please type !hop <channel> }
  Elseif (# isin $2-) { sahop $nick $2 }
  }
}