$servports(<server name/refnum>)

This function returns the remote and local port assignments for the connection to the specified server.

the remote and local port assignments for the specified server connection, separated by a space

if the specified server is not connected, returns default remote port and 0 for the local port.

$servports(0)               /* could return "6667 1054", where 6667 is
                               the remote port and 1054 is the local */

$servports(6127)            /* assuming 6127 is an invalid refnum,
                               returns "6667 0" */