What can I get from the AD

[Colin S.]

The code at the bottom is able to pull information back from the AD
about the current user. I need more, but dont know what else I can
request. Is there a way I can list the properties available to me?
I've tried adding this:

For Each Item In objUser
Debug.Print objUser.Item
Next

But the macro skipped right over it. Any idea?

Thanks,

Colin



Sub GetADinfo()

Dim objSysinfo As Object
Dim objUser As Object

Dim strUser As String 'Distinguished Name

Set objSysinfo = CreateObject("ADSystemInfo")
strUser = objSysinfo.UserName
Set objUser = GetObject("LDAP://" & strUser)

debug.print objUser.get("Title")
debug.print objUser.get("department")
debug.print objUser.get("telephonenumber")
debug.print LCase(objUser.get("mail"))

End Sub

 

[Graham Mayor]

Maybe http://www.gmayor.com/BookmarkandVariableEditor.htm would help. It
lists, amongst other things, the document properties,

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Jay Freedman]

The list of "address book" attributes of the User object are listed here:
http://msdn.microsoft.com/en-us/library/ms674997(v=vs.85).aspx

You might also be able to get attributes described in the various links from these pages:
http://msdn.microsoft.com/en-us/library/ms677979(v=vs.85).aspx
http://msdn.microsoft.com/en-us/library/ms683980(v=vs.85).aspx

 

[Colin S.]

Maybehttp://www.gmayor.com/BookmarkandVariableEditor.htmwould help. It
lists, amongst other things, the document properties,

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor -  Word MVP

My web sitewww.gmayor.com
Word MVP web sitehttp://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

Thanks both, very useful.

 

[Graham Mayor]

If you liked that add-in, you will love its replacement. Probably available
tomorrow

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>