getting user name from active directory

[Joanne]

Hello,
I'd like to be able to grab the user first name and last name from Active
Directory, to place in a form I've created. I'm not sure what kind of
connection to set up.

Thank you for any help you can provide.

[Jean-Guy Marcil]

Post by Joanne
Hello,
I'd like to be able to grab the user first name and last name from
Active Directory, to place in a form I've created. I'm not sure what
kind of connection to set up.
Thank you for any help you can provide.

See this thread for more info:
http://tinyurl.com/2owxbh

Here is something to get you going:

Dim objAdSys, objUser
Set objAdSys = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objAdSys.UserName)

MsgBox (objUser.Get("cn"))
MsgBox (objUser.Get("distinguishedName"))
MsgBox (objUser.Get("displayName"))
MsgBox (objUser.Get("initials"))
MsgBox (objUser.Get("mail"))
MsgBox (objUser.Get("department"))
MsgBox (objUser.Get("company"))
MsgBox (objUser.Get("title"))

[Joanne]

Merci!
Vous etes un ange!

Post by Jean-Guy Marcil

Post by Joanne
Hello,
I'd like to be able to grab the user first name and last name from
Active Directory, to place in a form I've created. I'm not sure what
kind of connection to set up.
Thank you for any help you can provide.

http://tinyurl.com/2owxbh
Dim objAdSys, objUser
Set objAdSys = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objAdSys.UserName)
MsgBox (objUser.Get("cn"))
MsgBox (objUser.Get("distinguishedName"))
MsgBox (objUser.Get("displayName"))
MsgBox (objUser.Get("initials"))
MsgBox (objUser.Get("mail"))
MsgBox (objUser.Get("department"))
MsgBox (objUser.Get("company"))
MsgBox (objUser.Get("title"))
--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
Word MVP site: http://www.word.mvps.org

[Jean-Guy Marcil]

Post by Joanne
Merci!
Vous etes un ange!

I know... If only I could convince my wife of the same!
;-)

Glad I could help.