Vista - Returning a DN in VBA

Hi

How can I return a Users DN (distinghised Name) that is stored in Active
Directory using VBA in Microsoft Office Word 2003.

Regards

D

In what form is it stored?

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

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>


DMc2007 wrote:

basically it is part of Active Directory, when you log on to a windows
domain, it is used to identify who the user is and what OU or Organizational
Unit that person belongs to.

"Graham Mayor" <gmayor@xxxxxx> wrote in message
news:ud$oYfghJHA.4868@xxxxxx

"DMc2007" <davidmcnaughton_1999@xxxxxx> wrote in message
news:B095CD47-EDCB-4C31-8064-64AFD3A427D7@xxxxxxThe standard method is to use the ADSystemInfo object. The UserName
attribute of the object is the DN of the current user:
=====
Set objSysInfo = CreateObject("ADSystemInfo")
strUserDN = objSysInfo.UserName
========
An error is raised if the user is not authenticated to a domain. In VB you
must add a reference to "Active DS Type Library" (which is activeds.tlb).
I've never done this in VBA.

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

Richard Mueller [MVP] wrote:It does work in VBA. Also, once you've added the reference to the ADS
library, you can use early binding, which gives you IntelliSense support.

Sub x()
Dim objSysInfo As ADSystemInfo
Dim strUserDN As String
Set objSysInfo = New ADSystemInfo
strUserDN = objSysInfo.UserName
MsgBox strUserDN
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.