The code to list Users and Groups on a W2k

#! perl.exe

use strict;
use warnings;

use Win32::AdminMisc;

my (@users, @groups);

print "List of USERS\n";
Win32::AdminMisc::GetUsers("","",\@users);

foreach my $usr(@users) {
    print "$usr\n";
}

print "\nList of GROUPS\n";
Win32::AdminMisc::GetGroups("",GROUP_TYPE_ALL,\@groups);

foreach my $grp(@groups) {
    print "$grp\n";
}
[download]

Hello AcidHawk, The code is really helpful. but again i have a problem in getting the latest Adminmisc package (2000... ver). can u help . mau be u can mail me this package at anandtirtha@samyog.com it would be very helpful. Thanks and Regards, Ananda

You can try AdminMisc found at Roth.net it has the following funtions

 GetGroups( $Server, $GroupType, < $List | \@List | \%List > [, $Prefi
+x ] )
    This will, if successful, populate the @List array with the names 
+of the 
    user groups that match the group type $GroupType.  If $Prefix is p
+assed in
    then only groups with names beginning with $Prefix (case insensiti
+ve) will
    be stored into the array.
    $Server is either:
      - The name of the machine the accounts reside on in either "\\\s
+erver" or "//server" format.
      - The name of a domain as in "Accounting" where the user account
+s reside.
      - An empty string ("") which returns the user accounts for the l
+ocal machine.
[download]

GetUsers( $Server, $UserPrefix, < $List | \@List | \%List > )
    This will, if successful, populate the @List array with the names 
+of the 
    user accounts which begin with $UserPrefix.
    $UserPrefix can be an empty string in which all user accounts will
+ be returned.  This parameter is
    case insensitive.
    $Server is either:
      - The name of the machine the accounts reside on in either "\\\s
+erver" or "//server" format.
      - The name of a domain as in "Accounting" where the user account
+s reside.
      - An empty string ("") which returns the user accounts for the l
+ocal machine.

    The third parameter can either be a scalar, an array reference or 
+a hash reference. If it
    is an array then upon success the group names populate the array. 
+ If it is a scalar then 
    it is converted into a hash reference.  Hash references are popula
+ted with the user id, full
    name, comment, and account flags.

    Returns:
        The number of group names stored in the array or hash.
[download]

I havent finished putting any code together for this yet but am busy with it and will post it as I have it.

#!/usr/bin/perl #coughcough
use strict;
use warnings;

Win32::AdminMisc::GetGroups($Domain,GROUP_TYPE_ALL,\@Groups)

Win32::AdminMisc::GetGroups($Domain,GROUP_TYPE_LOCAL,\@Groups)

Win32::AdminMisc::GetGroups($Domain,GROUP_TYPE_GLOBAL,\@Groups)
[download]

Admin::Misc won't pull correct info on a 2000 domain even in mixed mode. It will pull data from the PDC emmulator, but if you have users that were created in AD, you won't get them. You have to access ADSI directly.

I did this in a script found here. Pull out the first 2 subs. One will do NT4, and the other will do win2k via ADSI. The ADSI stuff was kind of hard to figure out, as there isn't a lot of info out there on Perl vs. ADSI.

-OzzyOsbourne

#!/usr/bin/perl -w
 
use strict;
use warnings;

use Win32;
use Win32::OLE 'in';



my @users = &getUsers();

print "Users: \n";
print "\t", join("\n\t", @users) , "\n";

my @groups = &getGroups();

print "Groups: \n";
print "\t", join("\n\t", @groups) , "\n";


sub getGroups
{
    my $domainurl = "WinNT://" . ( shift || Win32::NodeName  );

    my $domain = Win32::OLE->GetObject($domainurl)
        || die( Win32::OLE->LastError . "\n");

    $domain->{Filter} = ["group"];

    my @groups;
    
    for my $group ( in $domain ) 
    {
        $groups[@groups] = $group->name;
    }
    return @groups;
}

sub getUsers
{
    my $domainurl = "WinNT://" . ( shift || Win32::NodeName );

    my $domain = Win32::OLE->GetObject($domainurl) 
        || die( Win32::OLE->LastError . "\n" );

    $domain->{Filter} = ["user"];

    my @users;
    
    for my $user ( in $domain ) 
    {
        $users[@users] = $user->name;
    }
    return @users;
}
[download]