[RADIATOR] Authby LSA and groups not working (redux)

[Johnson, Neil M]

I whipped up a script based on what I could find in the source code to test group membership and it doesn't seem to matter if the group is local or global, it can't find it:

#!c:\perl64\bin\perl.exe

use strict;
use Win32::NetAdmin;

my $User = "nmjoo";
my $Group = "ITS-WIRELESS";
my $Domain = "IOWA";
my $Server = "";

print "Getting Domain Controller\n";
Win32::NetAdmin::GetDomainController ("", $Domain, $Server);
print "Domain Controller for Domain $Domain is $Server\n";

print "Checking to see if user: $User is member of Group: $Group\n";
if ( Win32::NetAdmin::GroupIsMember($Server, $Group, $User)
                || Win32::NetAdmin::LocalGroupIsMember($Server, $Group, $User)) {
                print "$User is Member of group $Group";
}
else {
                print "$User is not Member of group $Group";
}

Output:

C:\Program Files\Radiator>test2.pl
Getting Domain Controller
Domain Controller for Domain IOWA is \\IOWADC1
Checking to see if user: nmjoo is member of Group: ITS-WIRELESS
nmjoo is not Member of group ITS-WIRELESS
C:\Program Files\Radiator>
--
Neil Johnson
Network Engineer
Information Technology Services
The University of Iowa
Work: 319 384-0938
Mobile: 319 540-2081
Fax: 319 355-2618
E-mail: neil-johnson at uiowa.edu

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.open.com.au/pipermail/radiator/attachments/20100929/627825f3/attachment.html