Group,
The following code appears to complete successfully, but no group
information is returned:
#################
use Win32;
use Win32::Lanman;
Win32::Lanman::NetUserGetGroups ( '\\target', DaveSeale, \@GlobalGroups);
$Win32_Error = Win32::GetLastError();
print "error: $Win32_Error\n";
print "Global Groups:\n";
foreach $group (@GlobalGroups){
print "${$group}{'name'}\n"
}
#############
Program Output:
W:\perl\dev> t.pl
error: 0
Global Groups:
W:\perl\dev
##############
I'm running ActivePerl v5.6.0 build 623 and lanman v1.0.9 .
Can anyone tell me what I'm doing wrong, or suggest ways of trouble shooting
this?
Thanks Alot,
David
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
