Pulling Specfic AD Info

I have a new task that my boss just "gave me". Apparently he has an
Excel Spreadsheet that he then takes into Visio to create an ORG chart
that is on our Web site. Well its naturally a manual process so, hey
lets get Tim to automate it!

I need to get to the directReports field on the Organization tab to be
able to hopefully loop through the users and create this file. Any
pointers?

TIA.

Tim

Nevermind, I think I found a reference that I had stumbled across
once, lost and now found again!

http://www.wisesoft.co.uk/Scripts/ac...oryschema.aspx

This should hopefully get me going in the right direction.



On Jul 11, 8:40*am, TimParker <tim...@xxxxxx> wrote:

Somthing like this should work for you :

$as = [adsisearcher]''
gc users.csv |% {
$as.Filter = "CN=$($_.name)"
$ user = $as.FindOne()
$user.Properties.CN
$user.Properties.directReports
}

Enjoy,
Greetings /\/\o\/\/
http://thePowerShellGuy.com

"TimParker" wrote:

"TimParker" <timpar@xxxxxx> wrote in message
news:ae4e6a3e-f66d-4de2-b49b-46c68275e166@xxxxxx I have a VBScript program that documents the organizational structure
derived from the directReports and manager attributes in AD linked here:

http://www.rlmueller.net/OrganizationalStructure.htm

The output indicates by indenting who reports to whom. The output should be
redirected to a text file. The program can be modified to use semicolons
instead of spaces (indenting) to indicate the reporting structure. This
would allow you to read the text file into a spreadsheet (specifying the
semicolon as the field delimiter). Commas would not work as delimiters
because the directReports attribute is a DN attribute, a collection of
Distinguished Names, so the values contain embedded commas. The modification
would be to replace the following statement:

strOffset = strOffset & " "

with this:

strOffset = strOffset & ";"

and this statement:

Call Reports(strReport, strOffset & " ")

with this:

Call Reports(strReport, strOffset & ";")

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--

Thanks. I will also take a look at that, still waiting on the source
XLS file from my boss to see what he expects or wants.

Tim


On Jul 12, 1:05*pm, "Richard Mueller [MVP]" <rlmueller-
nos...@xxxxxx> wrote: