What you need to do is access $Pref::Server::AutoAdmin and $Pref::Server::AutoSuperAdmin. With these two, assuming they're separated with a comma and space, is do this (NOTE: This will only list the IDs; names are not stored. In order to get the names, you either have to store them to a file or pull from RTB's ID lookup system.):
package ListAdmins
{
function serverCmdlistAdmins(%client)
{
if(%client.isHost)
{
%client.chatmessage("Admins:");
%tokens = $Pref::Server::AutoAdmin;
while(%tokens !$= "")
{
%tokens = nextToken(%tokens,"token",", ");
%client.chatmessage(%token);
}
%client.chatmessage("Super Admins:");
%tokens = $Pref::Server::AutoSuperAdmin;
while(%tokens !$= "")
{
%tokens = nextToken(%tokens,"token",", ");
%client.chatmessage(%token);
}
}
}
};
activatePackage(ListAdmins);
This is untested because I'm on my iPod.