Skip to main content

Expire and Un-Expire User Accounts with PowerShell

In class we had a project that required us to read in a text file that started with a users email address and then was followed by dates on the same line.  The data file appeared as below

JDoe@contoso.com,1/12/2012,1/13/2012,1/14,2012

JaneD@contoso.com,2/3/2012,3/4/2012

The requirement was for this script to run every morning and expire any accounts who had a date that matched the current date.  Also, any accounts who’s expiration date was the previous day needed to be un-expired.  Below is the code to do it.

 

<#
Function: Test-File
Verifies that a file exists.

Returns True is the file is present.
#>

Function Test-File
{
param
(
$FilePath, $FileName
)

$TestPath = $FilePath + "\" + $FileName
$FileReady = Test-Path -path $TestPath
Write-output $FileReady

}
#End: Test File

<#
.
SYNOPSIS

Confirms if a module is available.



.
DESCRIPTION

Confirms if the provided parameter is available on
the local client.


.
PARAMETER ModuleName

The name of the module who?s presence is being checked.

.
EXAMPLE

Confirm-Module ActiveDirectory



Checks to see if the ActiveDirectory module is
present on the local machine

Returns True is present and False if not.



.
OUTPUTS

Boolean

.
Link
Get-Module

#>

Function Confirm-Module

{

Param
($ModuleName = $(Throw "You need to provide a module name."))

# Place the name of the module from Get-Module into
# the variable $Data
$Data = (Get-Module -ListAvailable -Name $ModuleName).name

# If the contents of $Data is equal to the variable
# $ModuleName, the module is present, return
# True. If not, return $False.
If ($Data -eq $ModuleName){Return $True}
Else {Return $False}
}



<#
.
SYNOPSIS

Exampines a list of users and date and expires a users account should the date match the present date.
Also will un-expire any user account that had an expiration date of the previous date.


.
DESCRIPTION

Exampines a list of users and date and expires a users account should the date match the present date.
Also will un-expire any user account that had an expiration date of the previous date.

The data file is in the format
UserEmailAddress,date

Any number of dates can be to the right of the email address as long as the dates are seperated by commas and the short date format (ie. 1/20/2012)

Designed to run as a scheduled task in the morning.


.
PARAMETER $FilePath

Forlder location of the data file.
ex: c:\data


.
PARAMETER $FileName

Name of the data file.
ex: VacationDates.txt

.
EXAMPLE

Expore-Users C:\Data VacationDates.txt


Parses a list of user email addresses and dates and determines which user accounts should be expired.




.
Link

Get-Module
Get-ADUser
Set-ADUser

#>


Function Expire-User
{
Param
($FilePath = "C:\Users\Administrator\Documents",
$FileName = "vacationData.txt"
)

# Verify that thefile exists.
# Return TRUE if it does.
# Break fro mthe script if FALSE.
$Result = Test-File $FilePath $FileName
If (-not $Result)
{
Write-host "Data File not found" -ForegroundColor White -BackgroundColor DarkRed
BREAK
}

# Verify that the Active Directory module is available.
If (-not (Confirm-Module ActiveDirectory))
{
Write-host "Active Directory Module not available"
-ForegroundColor White -BackgroundColor DarkRed
BREAK
}
Import-Module ActiveDirectory

# Read the data file.
$UserList = Get-Content ($FilePath + "\" + $FileName)

# Get Todays date - Use the .NET Frameforwork date format:
# d - Short date
$Date = Get-Date -Format d


# Loop Through each string in the data file and find
# user data that contains todays date.

ForEach ($UserData in $UserList)
{
If ($UserData -match $Date)
{
$UserObject = ($StringArr = ($UserData.Split(",")[0]))
#Get-ADUser -filter 'EmailAddress -eq $UserObject' |
#Set-ADUser -AccountExpirationDate $date
}



}
# End: ForEach ($User in $UserList)


# Check for accounts that need to reset the expiration.
$Yesterday = ((Get-Date).AddDays(-1)).ToShortDateString()


# Create the date object to store the AD un-expired time
# of January 1, 1970
$NewDate = Get-Date 1/1/1970

# Get any user object that was expired on the previous
# day and unexpire the account.
Get-ADUser -filter * -Properties AccountExpirationDate |
Where-Object {$_.AccountExpirationDate -eq $Yesterday} |
Set-ADUser -AccountExpirationDate $NewDate




Write-host "End"

}
# End: Function Expire-User

Expire-User

Comments

Popular posts from this blog

How to list all the AD LDS instances on a server

AD LDS allows you to provide directory services to applications that are free of the confines of Active Directory.  To list all the AD LDS instances on a server, follow this procedure: Log into the server in question Open a command prompt. Type dsdbutil and press Enter Type List Instances and press Enter . You will receive a list of the instance name, both the LDAP and SSL port numbers, the location of the database, and its status.

How to run GPResult on a remote client with PowerShell

In the past, to run the GPResult command, you would need to either physically visit this client, have the user do it, or use and RDP connection.  In all cases, this will disrupt the user.  First, you need PowerShell remoting enabled on the target machine.  You can do this via Group Policy . Open PowerShell and type this command. Invoke-Command –ScriptBlock {GPResult /r} –ComputerName <ComputerName> Replace <ComputerName> with the name of the target.  Remember, the target needs to be online and accessible to you.

Error icon when creating a GPO Preference drive map

You may not have an error at all.  Take a look at the drive mapping below. The red triangle is what threw us off.  It is not an error.  It is simply a color representation of the Replace option of the Action field in the properties of the drive mappings. Create action This give you a green triangle. The Create action creates a new mapped drive for users. Replace Action The Replace action gives you a red triangle.  This action will delete and recreate mapped drives for users. The net result of the Replace action is to overwrite all existing settings associated with the mapped drive. If the drive mapping does not exist, then the Replace action creates a new drive mapping. Update Action The Update action will have a yellow triangle. Update will modify settings of an existing mapped drive for users. This action differs from Replace in that it only updates settings defined within the preference item. All other settings remain as configured on the ma...