AIX shadow password last changed

AIX-shadow-password-last-changed.ksh

#!/bin/ksh
function lastpwchg { [ "`whoami`" = "root" ] || { echo "Must be root"; return; };  printf "$1:  "; lastupdate=`lsuser -a lastupdate $1 2>/dev/null | awk -F= "{print \\$2}"`; [ -n "$lastupdate" ] && perl -e "print \"Last password change: \" . scalar (localtime($lastupdate)) . \"\n\" " || echo "User does not exist or has no lastupdate attribute"; }

#Test with root
lastpwchg root