I have a working script that gets all groups from a windows nt 4 pdc:
Win32::AdminMisc::GetGroups($pdc, $grouptype, [EMAIL PROTECTED], $org) or die "GetGroups() frg failed: $^E";
foreach $group (@grp) {
$sid = Win32::Perms::ResolveSid($group);
($rid) = ($sid =~ /-(\d+)$/);
$grprid{$rid} = "$group";
$OPT{v} && print "$group";
}
as in the 20000708 version of the module:
GetGroups( $Server, $GroupType, < $List | [EMAIL PROTECTED] | \%List > [, $Prefix ] )
This will, if successful, populate the @List array with the names of the
user groups that match the group type $GroupType. If $Prefix is passed in
then only groups with names beginning with $Prefix (case insensitive) will
be stored into the array.
When i upgrade tot adminmisc 20030627 it doesn't work anymore, and i don't get a single warning
anybody with similar experiences
kind regards, Bart Groenendijk
_______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
