#!/usr/bin/perl -w

use Win32::AdminMisc qw(GetDC GetGroups);

my $dc;
my @groups;

$dc = GetDC();

GetGroups($dc, GROUP_TYPE_ALL, \@groups);

my $item;

foreach $item(@groups) {
  print "$item\n";                                          
}

I get an error message:

bash-2.02$ perl dominfo.pl
"GetDC" is not exported by the Win32::AdminMisc module at dominfo.pl line 3
"GetGroups" is not exported by the Win32::AdminMisc module at dominfo.pl line 3
Can't continue after import errors at dominfo.pl line 3
BEGIN failed--compilation aborted at dominfo.pl line 3.
bash-2.02$

I'm not up on how perl modules and such work, so I don't know how to fix this :-(

First off: baku's given you a good fix

Here's the 'why' ... Perl modules that export symbols usually use the Exporter module internally. Such modules maintain lists of symbols (names of variables and subroutines) they automatically export (@EXPORT) and ones that they may export if asked to (@EXPORT_OK). (exported symbols can be accessed without fully qualifying their names).

The module you're using doesn't list either of the symbols you're asking it to export (with the qw() construct) in its list of exportable symbols, hence the error.

Philosophy can be made out of anything. Or less -- Jerry A. Fodor

I'm not up on how perl modules and such work,

This can also be said for many authors of Win32:: modules. ): You'd think Dave Roth would know better by now, but perhaps it is just "history" for this particular module.

A simple @EXPORT_OK= qw( list of subs ) would make this module easier to use (and fit the common expectations for a Perl module).

        - tye (but my friends call me "Tye")

Those messages indicate that the module uses Exporter but did not put those functions in @EXPORT_OK to indicate that they could be exported. I would first check the module's documentation to see whether you have the names correct (including documentation) and if you do I would just stop trying to import them and use them directly, or I would add the lines:

*GetDC = *Win32::AdminMisc::GetDC;
*GetGroups = *Win32::AdminMisc::GetGroups;
[download]

to manually import. (Well I would also go into the module, add a patch, and then send a bug report to the author, but that is just me...)

I'm literally amazed by the response. Mad props to all who took the time to reply.

And now the bad news. I can't test this stuff today - I'm now in the Linux half of my job and Win32 stuff doesn't seem to want to work :-).

You can be sure, however, that I will be testing out the ideas that have been so kindly offered here on Monday, and I will report back in the hope that my experiences will help someone else.

Thanks again, everyone.

I'm literally amazed by the response. Mad props to all who took the time to reply.

Unfortunately (?) I'm currently trapped in Linux (hehe) and so can't test the fixes that people have so very kindly suggested, but you can be sure that I will test them out and let you all know how it goes.

Once again, many thanks.

Try removing the qw[] block, and using the "qualified" names (like Win32::AdminMisc::GetGroups)... does that help any?