Get user system name

UNIX only (At least it works under Linux and Mac OS X):

(user <- system("users", intern=T))

Paolo