DirURL Property

Topic Last Modified: 2006-06-13

Contains the directory URL to the resolved user object in Active Directory. This property is read-only.

Applies To

IAddressee Interface

Type Library

Microsoft CDO for Exchange 2000 Library

DLL Implemented In

CDOEX.DLL

Syntax

Property DirURL As String
HRESULT get_DirURL(BSTR* pVal);

Parameters

• pVal
  Returns the value of the DirURL property as a reference to a BSTR.

Remarks

This property defaults to the empty string until the addressee is resolved using the CheckName Method. After the addressee is resolved, the DirURL property contains the directory URL to the corresponding directory object. If the search criteria were ambiguous and multiple matches occurred, the DirURL property remains empty.

Example

<Job id="resolveaddressee">

<reference object="cdo.message"/>
<reference object="adodb.connection"/>

<script language="VBScript">

Dim iPer
Set iPer = getCurrentPersonObject_ro

Wscript.Echo "User E-Mail Address:"
wscript.echo iPer.Email

WScript.Echo "User Mailbox folder URL: "
Wscript.Echo iPer.GetInterface("IMailbox").BaseFolder


Function getCurrentPersonObject_ro()

 Dim Info
 Set Info   = CreateObject("ADSystemInfo")
 Dim InfoNT
 Set InfoNT = CreateObject("WinNTSystemInfo")
 Dim iPer
 Set iPer   = CreateObject("CDO.Person")
 Dim iAddr
 Dim iAddr2
 Set iAddr  = CreateObject("CDO.Addressee")

 iAddr.EmailAddress = LCase(InfoNT.UserName) & "@" & Info.DomainDNSName

 ' Search by binding to an LDAP server in current domain.
 If Not iAddr.CheckName("LDAP://" & Info.DomainDNSName) Then
  ' Handle Ambiguous names here
   For Each iAddr2 in iAddr.AmbiguousNames
     wscript.echo iAddr2.DisplayName
     wscript.echo iAddr2.EmailAddress
 Else

  ' Note that this is for illustration purposes only as
  ' We already have the server-less LDAP URL to the current user:
  ' "LDAP://" & Info.UserName
  ' Or,
  ' "LDAP://" & Info.DomainDNSName & "/" & Info.UserName

  Wscript.Echo "LDAP://" & Info.DomainDNSName & "/" & Info.UserName
  Wscript.Echo iAddr.DirURL

  iPer.DataSource.Open iAddr.DirURL
 End If

 Set getCurrentPersonObject_ro = iPer

End Function
</script>
</Job>