Kaynak:

Guests cannot see links in the messages. Please register to forum by clicking href="member.php?action=register">here to see links.



#!/usr/bin/perl -w

use AcctInfo;

my $acct = new AcctInfo;

my @realusers = $acct->GetNonSystemUsers;

umask(066);
$pwfile = "/tmp/temppasswd";
open(PWFILE, ">$pwfile") || die "Unable to open $pwfile";

foreach $user (@realusers) {
$acct->SetUser($user);
$acct->cache;
$passwd = $acct->GetPassword;
$uid = $acct->GetUid;
$gid = $acct->GetGid;
$realname = $acct->GetRealName;
$homedir = $acct->GetHomeDir;
$shell = $acct->GetShell;
# Get rid of extraneous , used in Solaris gcos field.
($realname,$junk) = split(/,/, $realname);

# Output data in bsd password format.
print PWFILE $user . ":" . $passwd . ":" . $uid . ":" . $gid .
"::0:0:" . $realname . ":" . $homedir . ":" . $shell . "\n";

}

close(PWFILE);

exit;