Hello everyone,
Attached, you'll find my orignal email that I sent. This is an update to that original problem.
After installing Roth's Win32::AdminMisc module, I updated my script (see code in the attached email) so that it enumerates not only the group names but the usernames as well. This updated script will run and enumerate the usernames on the W2K server, however, when the script attempts to enumerate the group names, it terminates in what appears to be the GETGROUPS function. Also, the TEST.PL included with the module works fine. So, I'm left to assume that this isn't a module installation/configuration issue, but rather a problem within the module itself.
Unless someone can provide evidence that the GETGROUPS function in this module works when hitting against a W2K server (and AD), I'm left to conclude that it's broken. That being the case, it starts to look like I should dump the AdminMisc module and start using the Win32::OLE module for maintaining the AD groups and usernames.
Also, what tends to make me believe it's broken is that there are requests on Roth's news server about this issue, none of which have been addressed. Also, several other people on this list have run into the same thing. If the module has issues, I wish that D. Roth would simply come out and say so, so that me and the others experiencing this issue can stop beating our heads on the wall.
--------------------------------------------------------
Greg Foster Technology Services Center Indiana University of Pennsylvania Indiana, PA 15705
"There are only 10 types of people in the world, those who understand binary, and those who don't..."
--- the forwarded message follows ---
--- Begin Message ---Hello everyone,
Hopefully, I'm not asking a question that has already been dealt with.
First, let me tell you what I am doing:
Currently, I have AS Perl v 5.005 installed on a WinNT box. The root directory of the Perl installation is configured as a share point. With this share point, I can set the path on a remote machine as:
path = %path%;\\server\perlshare\bin
and then set the PERLLIB environment variable as:
set perllib = \\server\perlshare\lib;\\server\perlshare\site\lib
After doing this, I can run Perl scripts on the remote machine using the Perl install on the WinNT server. One of the modules that is installed on this system is Roth's Win32::AdminMisc (ver 0.2000.07.08).
I am in the process of replacing the WinNT server with a server running W2K. I have loaded AS Perl 5.6.1, configured the root directory as a network share and have loaded the modules I need, one of which is Roth's Win32::Admin (ver 0.2003.07.14 - the most current).
After setting the PATH and the PERLLIB environment variables, I ran a little test script (code provided below) I created which does nothing more than enumerate the group names from our W2K domain controller - note that I am running the script on a member server of the same domain. When running the script, it appears that the script abends because the "Test done" message never gets displayed.
However, if I point my PATH and PERLLIB environment variables to my original Perl installed on the WinNT machine, and run the script from the same machine, the script runs as expected.
Does anyone know if this is a known issue with Roth's Win32::AdminMisc module? I've checked his news server and have seen rumblings of similar issues, but no one (including D. Roth) has confirmed this to be a real issue. Or, is this possible a module installation/configuration issue?
I also saw someone mention in a newsgroup that since AS Perl is written in VC 6.0 and Roth is using VC 7.0 that there are compatiblity issues. Depending on the runtime environments, I can see where this may or may not be an issue. I certianly don't profess to be an expert in the VC world, so my knowledge is limited, again leaving me to wonder what the real issue is.
Any help or knowledge anyone can pass on is greatly appreciated.
Perl code follows (server name has been changed to protect the innocent):
use Win32::AdminMisc; @List=();
if (Win32::AdminMisc::GetGroups('\\server',GROUP_TYPE_ALL,[EMAIL PROTECTED])) {
foreach $group (@List) {
print "$group\n";
}
}
print "Test done\n";
-------------------------------------------------------- Greg Foster Technology Services Center Indiana University of Pennsylvania Indiana, PA 15705
"There are only 10 types of people in the world, those who understand binary, and those who don't..."
_______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--- End Message ---
_______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
