AIX

chsec -f /etc/security/lastlog -a "unsuccessful_login_count=0" -s username

#!/usr/bin/perl
#
# clrlogin
#
# description:  simple script to reset unsuccessful logins for a given user
#
#
###########################################################################

use strict;

# set some defaults
my $user;
my $ulogcnt;
my $ulogcntrst;

# check the command line
if(! @ARGV) {
        print "\nUsage: clrlogin 'username'\n\n";
        exit(1);
} elsif (($#ARGV+1) == 1) {
        # store the given username
        $user = shift @ARGV;
} else {
        print "\nIncorrect number of arguments!\n\n";
        exit(1);
}

# display the number of unsuccessful logins for the
# given user
$ulogcnt = `lssec -f /etc/security/lastlog -a "unsuccessful_login_count" -s $user`;
print "\n$ulogcnt\n\n";

# offer to reset unsuccessful logins to 0 or forgeddaboutit
print "Reset unsuccessful logins for $user? [y,n] ";
chomp(my $answer = <STDIN>);

if($answer =~ /^n$/i) {
        print "\nUnsuccessful logins not reset for $user.\n";
        exit(1);
} elsif ($answer =~ /^y$/i) {
        print "\nResetting unsuccessful logins for $user.\n";
        $ulogcntrst = `chsec -f /etc/security/lastlog -a "unsuccessful_login_count=0" -s $user"`;
        print "$ulogcntrst\n";
}

# done
exit(0);