Please help.
I have a new Win2000 member server on which I want to run Perl scripts
to check AD groups and memberships. I've run into a problem trying a
piece of Dave Roth's example code (see below) that makes use of the
Win32::NetAdmin calls. ActiveState is now including this module in
the core product so I thought I'd ask you guys, first.
# Example 3.10: Retrieving the members in a group.
# ----------------------------------------
# From "Win32 Perl Programming: The Standard Extensions Second Edition" by Dave Roth
# Published by Macmillan Technical Publishing.
# ISBN # 1-57870-216-X
print "From the book 'Win32 Perl Programming: The Standard Extensions, Second
Edition'\nby Dave Roth\n\n";
use Win32::NetAdmin;
use Win32::AdminMisc;
my $Group = "LKCTESTUSERS";
my $Domain = "TESTDOMAIN";
my $Server = "";
my @UserList;
Win32::NetAdmin::GetDomainController( '', $Domain, $Server );
# Get the list of group members
if( ! Win32::NetAdmin::GetGroupMembers( $Server, $Group, [EMAIL PROTECTED] ) )
{
Win32::NetAdmin::LocalGetGroupMembers( $Server, $Group, [EMAIL PROTECTED] ) ||
die "There is no group called '$Group'.\n";
}
# End code
-------------------------------------------------------------------------------------#
The line that gets group membership -
Win32::NetAdmin::GetGroupMembers( $Server, $Group, [EMAIL PROTECTED] )
crashes the interpreter with:
Can't locate auto/Win32/NetAdmin/GetGroupMem.al in @INC
(@INC contains: C:/Home/Perl/lib C:/Home/Perl/site/lib .) at group_members.pl line 16
What am I doing wrong?
Thanks,
Al Lewis
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
