Have you tried Win32:AdminMisc

#! /usr/bin/perl

use strict;
use warnings;

use Win32::AdminMisc;

my (@users, @groups);

print "List of USERS\n";
Win32::AdminMisc::GetUsers("","",\@users);

foreach my $usr(@users) {
    print "$usr\n";
}
[download]

I have tested on a local server, but I know you can add the PDC name and get the info from there.