# Checks for input parameters. If they are present, calls RunReport.
# If they aren’t present, prints syntax info.
Param([string]$Domain,[string]$Output)
if ($Domain -and $Output) {
write-host “Scanning $Domain for inactive computer accounts.”
write-host “Results will be saved to $Output.”
RunReport

# Checks for the E2010 and Quest AD Tools PowerShell
# snapins. If they are not already loaded, it loads them.
if ((get-pssnapin Microsoft.Exchange.Management.PowerShell.E2010 `
-erroraction silentlycontinue) -eq $null) {add-pssnapin `
Microsoft.Exchange.Management.PowerShell.E2010}
if ((get-pssnapin -name quest.activeroles.admanagement `
-erroraction silentlycontinue) -eq $null) {add-pssnapin `
quest.activeroles.admanagement}

# Get a list of computer accounts that have been inactive for at
# least 90 days. Sort the list by ParentContainer and
# lastLogonTimestamp. To get a list of *all* computer accounts
# delete the line that begins with “$NinetyDays =” and remove this
# text from the line that begins “$DataFile = “: “Where-Object
#{$_.lastLogonTimeStamp -lt $NinetyDays} |”
$NinetyDays = [DateTime]::Now.Subtract([TimeSpan]::FromDays(90))
$DataFile = Get-QADComputer -sizelimit 0 -IncludedProperties `
parentcontainer, name, computerrole, lastLogonTimestamp, CreationDate, `
AccountIsDisabled, osname, osversion, osservicepack, managedby, `
description, location, Sid, creatorsid | Where-Object `
{$_.lastLogonTimeStamp -lt $NinetyDays} | select parentcontainer, `
name, computerrole, lastLogonTimestamp, CreationDate, `
AccountIsDisabled,osname, osversion, osservicepack, managedby, `
description, location, Sid, creatorsid | sort-object parentcontainer, `
lastLogonTimestamp

# Create and configure the spreadsheet.
$Excel = New-Object -com Excel.Application
$Excel.visible = $false
$Excel.DisplayAlerts = $false
$Excel.AskToUpdateLinks = $false
$Excel.AlertBeforeOverwriting = $false

# Write the column headers to the spreadsheet.
$Workbook = $excel.workbooks.add()
$Worksheet = $Workbook.worksheets.item(1)
$Worksheet.name = “Inactive Computers Report”
$Worksheet.cells.item(1,1) = “Organizational Unit”
$Worksheet.cells.item(1,2) = “Computer Name”
$Worksheet.cells.item(1,3) = “Computer Role”
$Worksheet.cells.item(1,4) = “Last Logon”
$Worksheet.cells.item(1,5) = “Create Date”
$Worksheet.cells.item(1,6) = “Disabled”
$Worksheet.cells.item(1,7) = “Operating System”
$Worksheet.cells.item(1,8) = “OS Version”
$Worksheet.cells.item(1,9) = “Service Pack”
$Worksheet.cells.item(1,10) = “Managed By”
$Worksheet.cells.item(1,11) = “Description”
$Worksheet.cells.item(1,12) = “Location”
$Worksheet.cells.item(1,13) = “Computer SID”
$Worksheet.cells.item(1,14) = “Creator SID”

# Format header row.
$Range = $Worksheet.usedrange
$Range.font.bold = $true
$Range = $Worksheet.columns
$Range.borders.color = 0

$intRow = 2

# Write the data to the spreadsheet.
foreach ($row in $DataFile) {
# Gets the name of the manager.
$Manager = $row.Managedby
if ($Manager) {
$manager = $manager.trimstart(“CN=”)
$manager = $manager.split(“,”)[0]
}

# Converts the lastLogonTimestamp field to a string.
if ($row.lastLogonTimestamp) {
$LastLogon = $row.lastLogonTimestamp.tostring(“MM/dd/yyyy”)
}
else {$LastLogon = $null}

# Fills in each field of the spreadsheet.
[String]$Role = $row.ComputerRole
$Worksheet.cells.item($intRow,1) = `
$row.ParentContainer.trimstart($Domain + “/”)
$Worksheet.cells.item($intRow,2) = $row.Name
$Worksheet.cells.item($intRow,3) = $Role
$Worksheet.cells.item($intRow,4) = $LastLogon
$Worksheet.cells.item($intRow,5) = $row.CreationDate.tostring(“MM/dd/yyyy”)
$Worksheet.cells.item($intRow,6) = $row.AccountIsDisabled
$Worksheet.cells.item($intRow,7) = $row.OSName
$Worksheet.cells.item($intRow,8) = $row.OSVersion
$Worksheet.cells.item($intRow,9) = $row.OSServicePack
$Worksheet.cells.item($intRow,10) = $manager
$Worksheet.cells.item($intRow,11) = $row.Description
$Worksheet.cells.item($intRow,12) = $row.Location
$Worksheet.cells.item($intRow,13) = $row.SID.Value
$Worksheet.cells.item($intRow,14) = $row.CreatorSID.Value
$intRow = $intRow + 1
}

# Configure column widths and save spreadsheet.
$Range.entirecolumn.autofit()
$Workbook.saveas($Output)

# Close the workbook and the Excel window.
$Workbook.Close()
$Excel.Quit()

# Close the Excel process and the variables.
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Excel)
Get-Process excel | stop-process -Force
Remove-Variable intRow
Remove-Variable Range
Remove-Variable Workbook
Remove-Variable Worksheet
Remove-Variable DataFile
Remove-Variable row
Remove-Variable Excel
Remove-Variable NinetyDays
Remove-Variable Manager
Remove-Variable Domain
Remove-Variable Output
}

# Syntax info.
else {
write-host “Usage:”
write-host “test [DomainName] [FileName]”
write-host “”
write-host “DomainName = The name of your Active Directory domain.”
write-host “e.g. mydomain.ourdomain.com or ourdomain.com.This will be `
the same domain”
write-host “name shown at the root node of Active Directory Users and `
Computers.”
write-host “”
write-host “FileName = The path and name of the xlsx file you want to `
create.”
write-host “e.g. C:\temp\output.xlsx.”
}