Hi Guys,
My brain is numb today.... boy I hate Windows!!!
The next trick im trying to get done under win2k is retreiving users/groups in perl with win32::NetAdmin.
My test scripts seem to print out rubbish. They return the right number of users, but the user names are garbarge. Ive been using LocalGroupGetMembers (which I hope operates the same as GroupGetMembers as they will be domain users when we go live).
The server & group details are correct and when I change the group name it returns the right number of users, its just the user names are garbage.
Someone wake me up from this windows nightmare.
Heres the code Ive been hacking....
use Win32::NetAdmin qw(LocalGroupGetMembers);
use Data:
umper;
use strict;
my $server = "ECCMSPROJ";
my $group = "Test_Group";
my
@users;
&LocalGroupGetMembers($server, $group, \
@users);
print &Dumper(
@users);
and here's the output....
$VAR1 = 'x©ú¢Õ';
$VAR2 = 'x©ú¢Õ';
$VAR3 = 'x©ú¢Õ';
$VAR4 = 'x©ú¢Õ';
$VAR5 = 'x©ú¢Õ';
$VAR6 = 'x©ú¢Õ';
$VAR7 = 'x©ú¢Õ';
$VAR8 = 'x©ú¢Õ';
$VAR9 = 'x©ú¢Õ';
$VAR10 = 'x©ú¢Õ';
John Cuiuli
Consultant
Sydney, Australia
