Configuring a User Account So It Never Expires

Configures the MyerKen Active Directory user account so that it never expires. This is done by setting the expiration date to January 1, 1970.

Set objUser = GetObject _
    ("LDAP://cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com")
objUser.AccountExpirationDate = "01/01/1970"
objUser.SetInfo

This is a VB Script, this can be used by saving the file in .vbs file