I think this is just a placeholder variable in this function.  You cannot
retrieve actual passwords with this module (or anything else that I'm aware
of in Windows).  You can, however, set a password with the UserSetAttributes
function in the same module (provided you have perms).


============================================================================
==========
    use Win32::NetAdmin qw(GetUsers GroupIsMember
                           UserGetAttributes UserSetAttributes);
    my %hash;
    GetUsers("", FILTER_NORMAL_ACCOUNT , \%hash)
        or die "GetUsers() failed: $^E";
    foreach (keys %hash) {
        my ($password, $passwordAge, $privilege,
            $homeDir, $comment, $flags, $scriptPath);
        if (GroupIsMember("", "Domain Users", $_)) {
           UserGetAttributes("", $_, $password, $passwordAge,
$privilege,$homeDir,$comment,$flags, $scriptPath);
             print "$_ => $password,$homeDir\n";
        }
    }
============================================================================
============

I am getting user name and other attribute like homeDir but not password.

Can you please help me to figure out the problem?


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

Reply via email to