use strict;
use warnings;

use Win32::NetAdmin;

my @servers = ();
Win32::NetAdmin::GetServers("", "NameDerDomain", FILTER_NORMAL_ACCOUNT, \@servers);

print "$_\n" foreach @servers;