The code to list Users and Groups on a W2k

#! perl.exe

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";
}

print "\nList of GROUPS\n";
Win32::AdminMisc::GetGroups("",GROUP_TYPE_ALL,\@groups);

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