# This Perl code sets the account expiration date for a user.

# ---------------------------------------------------------------
# Adapted from VBScript code contained in the book:
#      "Active Directory Cookbook" by Robbie Allen
# ISBN: 0-596-00466-4
# ---------------------------------------------------------------

# ------ SCRIPT CONFIGURATION ------
my $strExpireDate = "<Date>";   # e.g. "07/10/2004"
my $strUserDN = "<UserDN>";     # e.g. cn=rallen,ou=Sales,dc=rallencorp,dc=com
# ------ END CONFIGURATION ---------
use Win32::OLE;
$Win32::OLE::Warn = 3;
my $objUser = Win32::OLE->GetObject("LDAP://" . $strUserDN);
$objUser->{AccountExpirationDate} = $strExpireDate;
$objUser->SetInfo;
print "User $strUserDN to expire on $strExpireDate\n";

# These two lines would disable account expiration for the user
# $objUser->Put "accountExpires",0
# $objUser->SetInfo