For some reason I can't get Win32::NetAdmin::GroupCreate to work. I'm preparing code
to help move info off our current PDC (NT4) to our new one (Win2K). Right now, I'm
trying to create the groups on my personal workstation (Win2K). For some reason it
keeps failing. Not sure why. Here's some of the code:
<CODE>
# Going through each user and copying their info onto the new place
foreach $Group (@Groups)
{
# Telling user user were on
print "$Group... ";
# Seeing if the user already exists
if (InList($Group, @SimGroups))
{
# The user already exists, skipping
print "Group exists! Skipping!\n";
}
else
{
# Creating the new user
if (Win32::NetAdmin::GroupAddUsers($NewDomain, $Group, 'test'))
{
print "OK!\n";
}
else
{
print "Something went wrong!\n";
}
}
}
</CODE>
And I know I can get the groups from the PDC, I just can't create groups. And I
(virtually) used this same code for moving the users to my machine (switching in the
correct functions, of course. This explains the user comments in the comments).
Any advice? Thanks!
Jason Shaw
MSU Physical Plant
(517) 355-3375 ext 198
(517) 353-4777 (Hotline)
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
