Share This Post

PowerShell script to query ADSI and get user object properties

Here is a PowerShell script to query ADSI and to get user account properties and report the results in excel. When I wrote this script, there are three huddles(trial and errors) I had to overcome which I added notes here to save you time.

$erroractionpreference = "SilentlyContinue"

$a = New-Object -comobject Excel.Application
$a.visible = $True

$b = $a.Workbooks.Add()
$c = $b.Worksheets.Item(1)

$c.Cells.Item(1,1) = "User"
$c.Cells.Item(1,2) = "UserName"
$c.Cells.Item(1,3) = "Home Directory"
$c.Cells.Item(1,4) = "Home Drive"
$c.Cells.Item(1,5) = "Membership"
$c.Cells.Item(1,6) = "Mail"
$c.Cells.Item(1,7) = "Account Disabled"
$c.Cells.Item(1,8) = "Report Time Stamp"

$d = $c.UsedRange
$d.Interior.ColorIndex = 19
$d.Font.ColorIndex = 11
$d.Font.Bold = $True

$intRow = 2

#You need to pay very close attention to the CN format(or syntax) and it has to be exact especially if you have a , in the cn, and if you are not sure, you could find them in ADSI veiwer (adsiedit.msc) or by doing this: $user=$ou.psbase.children | where {$_.givenname -like “bgates”}

($CNs = get-content C:\Myworkplace\CNs.txt

foreach ($cn in $CNs)
Function GetUserInfo
# Use DirectoryEntry object from .NET to bind to your AD, Replace with your exact Path here

$ou=new-object directoryservices.directoryentry("LDAP://ou=x,ou=y,dc=whatever1,dc=whatever2,dc=com")

# get the user object and since I am using PowerShell RC2 and I have to use psbase here – MOW has a blog # on this


# Notice here I have to add .Tostring – I believe this has something to do with how the object in ADSI handled

$c.Cells.Item($intRow,1) = $
$c.Cells.Item($intRow,2) = $user.sAMAccountname.Tostring()
$c.Cells.Item($intRow,3) = $user.homeDirectory.Tostring()
$c.Cells.Item($intRow,4) = $user.homedrive.Tostring()
$c.Cells.Item($intRow,5) = $user.memberof.Tostring()
$c.Cells.Item($intRow,6) = $user.mail.Tostring()

if($user.psbase.invokeget(‘AccountDisabled’) -eq $True)
$c.Cells.Item($intRow,7).Interior.ColorIndex = 3
$c.Cells.Item($intRow,7) = "Disabled"
$c.Cells.Item($intRow,7) = "Enabled"


$c.Cells.Item($intRow,8) = Get-date
$intRow = $intRow + 1

Share This Post

Ying Li obtained a Master degree of Medicine in China and worked in the medical field before he came to the states in 1996. He made the career switch from troubleshooting people to troubleshooting computers after he came to the states. Not entirely a surprise there, if you know that his second preference for college is Mathematics. Ying is two times Admin Framework MVP awardee (2007-2008).His previous employment experience in the US includes UUNET, MCI WorldCom. MMC (Marsh & McLennan Companies), Merrill Lynch. He is currently employed by Related Companies as a Senior Infrastructure Engineer. He is proficient in virtually all Microsoft products (Office/Back office). His craving for efficiency naturally leads him to scripting, automation and before you know it, PowerShell! He is currently a MCSE (NT4, 2000, 2003) and MCITP Server Administrator. Ying enjoys wines and love to travel. His non work related passion is to advocate Health Living!

Leave a Reply