Same code works for me with this version :
ppm> query AdminMisc
Querying target 1 (ActivePerl 5.8.2.808)
  1. Win32-AdminMisc [0.2000.07.08] The Win32::AdminMisc extension for Win32 X86
ppm>
 
Yves

De : [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] De la part de Christopher Rosen
Envoy� : mardi 7 juin 2005 16:41
� : [email protected]; [email protected]
Objet : Win32::AdminMisc::GetGroups returns nothing


Trying to get all groups from a particular machine, but this returns nothing and will not even hit the 'else' portion.  Seems to abort the script.

if( Win32::AdminMisc::GetGroups( "server", GROUP_TYPE_ALL, [EMAIL PROTECTED] ) ) {
        print "The groups are:\n";
        map { print "\t$_\n";} @list;
} else {
        print "no\n";
}

Thanks.
_______________________________________________
Perl-Win32-Admin mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to