var %f = $+($scriptdir,Report_IPInfo.txt), %t = ipinfo
write -c %f Report runtime: $asctime(ddd mmm dd HH:nn:ss) $crlf $crlf
write %f No. of Items: $hget(%t, 0).item $crlf $crlf
if ($hfind(%t,*,0,w) > 0) {
var %i = 1
while ($hget(%t, %i).item != $null) {
tokenize 44 $hget(%t,$v1)
write %f Nickname: $1
write %f Address: $2
write %f IP: $3
write %f E-mail $4 $crlf $crlf
inc %i
}
}