code:

---

$ExchangeServer="YourServer"
$Domain="YourDomain"
$Account="YourAccount"

$Mailboxes = ADOQueryAssocNTAccount($ExchangeServer, LookupHexSid($Domain, $Account))

? "Mailboxes for " + $Domain + "\" + $Account
? "------------------------------------------------------------------"
for each $mailbox in $MailBoxes
	GetMailBoxProperties($Mailbox)
	? "------------------------------------------------------------------"
next



Function LookupHexSid($Domain, $Account)
	Dim $ADsPath, $ADsSid
	$ADsPath = "WinNT://" + $Domain + "/" + $Account
	$ADsSid = createobject("ADsSid")
	$ADsSid.setas(5,$ADsPath)
	$LookupHexSid = $ADsSid.getas(1)
EndFunction


Function ADOQueryAssocNTAccount($ExchangeServer, $HexSid)
	Dim $ADOconn, $ADOQueryString, $objRS, $A, $i
	$ADOconn = CreateObject("ADODB.Connection")
	$ADOConn.Provider = "ADSDSOObject"
	$ADOConn.Open()
	if @ERROR
		exit @ERROR
	endif
	$ADOQueryString = "<LDAP://$ExchangeServer>;(&(objectClass=person)(Assoc-NT-Account=$HEXsid));adspath;subtree";
	$objRS = $ADOconn.Execute($ADOQueryString)
	if VarType(	$objRS ) <> 0
		$i=0
		Do
			ReDim Preserve $A[$i]
			;? $objRS.Fields("adspath").value
			$A[$i] = $objRS.Fields("adspath").value
			$objRS.movenext
			$i=$i+1
		until $objRS.EOF
		$ADOQueryAssocNTAccount=$A
	else
		? "No MailBoxes found!"
	endif
	exit 0;
EndFunction


Function GetMailBoxProperties($AdsPath)
	Dim $objMailBox
	Dim $A[1]
	$objMailBox = GetObject($ADsPath)
	? "Display Name: "  $objMailBox.get("cn")
	? "  Given Name: "  $objMailBox.get("givenname")
	? "   Last Name: "  $objMailBox.get("sn")
	? "       Alias: "  $objMailBox.get("uid")
	? "Primary SMTP: "  $objMailBox.get("mail")
	? "         RDN: "  $objMailBox.get("rdn")
	? "    Home MTA: "  $objMailBox.get("home-mta")

	; Help Please
	; How does pass the required array to GetInfoEdx ???
	$objMailBox.GetInfoEx("home-mdb", 0);
	? "Using Text: @error @serror"
	$A = "home-mdb",""
	$objMailBox.GetInfoEx($A, 0);
	? "Using Array: @error @serror"
	? "    Home MDB: "  $objMailBox.get("home-mdb")

	?
	;? "Other Mailboxes:"
	;$array=$objMailBox.get("othermailbox")
	;for each $item in $array
	;	$type=substr($item,1,instr($item,"$$")-1)
	;	$address=substr($item,len($type)+2,len($item))
	;	? "	" $type ": "$address
	;next

EndFunction

---

code:

---

Dim $A[2]
$A[0] = "z"
$A[1] = "x"
$B = $A

---

code:

---

if $objMailBox.get("rdn") <> ""
	? "You have a mailbox"
else
	? "You don't have a mailbox"
endif

---

code:

---

Dim PropArray As Variant
Dim Prop As Variant
Dim DescList As Variant
Dim obj As IADs
 
Set obj = GetObject("LDAP://MyMachine")
 
' Initialize the array of properties to pass to GetInfoEx
PropArray = Array("description", "distinguishedName")
 
' Make the array a single variant for passing to GetInfoEx
Prop = PropArray
 
' Get just the description and DN properties
obj.GetInfoEx Prop, 0
 
DescList = obj.Get("description")
 
' Enumerate the descriptions
For Each Desc In DescList
    ' Print the descriptions
    Deubg.Print (Desc)
Next
  

---

code:

---

Dim x As IADs
Set x = GetObject("LDAP://CN=JSmith,CN=Users,DC=Fabrikam,DC=com")
 
'Retrieve givenName and sn from the underlying directory storage.
'Cache should have givenName and sn values.
x.GetInfoEx Array("givenName", "sn"), 0 
Debug.Print x.Get("givenName")  ' Property is in the cache
Debug.Print x.Get("sn")         ' Property is in the cache
 
'If the "homePhone" property is not in the cache (in the next line), 
'GetInfo will be called implicitly.
Debug.Print x.Get("homePhone") 
  

---

code:

---

Dim objMailbox As IADs
Dim objStore As IADs

Set objMailbox = _
        GetObject("LDAP://Server/cn=Mailbox,cn=Recipients,ou=Site,o=Org")

objMailbox.GetInfoEx Array("Home-MDB"), 0
Debug.Print objMailbox.Get("Home-MDB")

'This distinguished name can be parsed out to obtain the server name.
' Or you can bind to the Home-MDB Path and get the parent object
StorePath = objMailbox.Get("Home-MDB")
Set objStore = GetObject("LDAP://Server/" & StorePath)
Debug.Print objStore.Parent

Set objMailbox = Nothing
Set objStore = Nothing
  

---