use Win32::NetAdmin 
        qw/LocalGroupGetMembers UserGetAttributes UserSetAttributes/;
my @users;

LocalGroupGetMembers("",'Users', \@users) or 
        die "GroupGetMembers() failed: $^E\n";

for(@users) {
                my ($server, $userName, $password, 
                    $passwordAge, $privilege, $homeDir, 
                    $comment, $flags, $scriptPath) = ();
                UserGetAttributes("",$_,$password,$passwordAge,$privilege, 
                                $homeDir, $comment, $flags, $scriptPath
                                 ) or die "UserGetAttributes() failed $^E";
                        print "$username :: $password\n";
}