Как узнать IP бота?

set ip [myip]
    foreach v {d c b a} {
     set $v [expr $ip & 255]
     set ip [expr $ip >> 8]
    }
    set botip "$a.$b.$c.$d"