code:

---

break on cls
$=execute(ListMailboxInfoByUser("$user"))

function ListMailboxInfoByUser($user)
	$mailbox=getobject("LDAP://oh01ex01/cn=$user,cn=Recipients,ou=World HQ,o=Relizon")
	? "Mailbox Information for $user:" ?
	? "User Information:"
	? "	Display Name: " $mailbox.get("cn")
	? "	Given Name: " $mailbox.get("givenname")
	? "	Last Name: " $mailbox.get("sn")
	? "	Alias: " $mailbox.get("uid")
	? "Mailbox Information:"
	? "	Primary SMTP: " $mailbox.get("mail")
	? "	X.400 Address: " $mailbox.get("textencodedoraddress")
	? "	Home MTA: " $mailbox.get("home-mta")
	? "	Home MDA: " $mailbox.get("home-mda")
	
	? "Other Mailboxes:"
	$array=$mailbox.get("othermailbox")
	for each $item in $array
		$oname=substr($item,1,instr($item,"$$")-1)
		$oaddress=substr($item,len($oname)+2,len($item))
		? "	" $oname ": "$oaddress
	next
endfunction

---

code:

---

Mailbox Information for ShiltCK:

User Information:
	Display Name: Shilt, Christopher K
	Given Name: Christopher
	Last Name: Shilt
	Alias: Christopher.Shilt
Mailbox Information:
	Primary SMTP: Christopher.Shilt@Relizon.com
	X.400 Address: c=US;a= ;p=Relizon;o=WorldHQ;s=Shilt;g=Christopher;i=K;
	Home MTA: cn=Microsoft MTA,cn=OH01EX03,cn=Servers,cn=Configuration,ou=World HQ,o=Relizon
	Home MDA: 
Other Mailboxes:
	X500: /o=Relizon/ou=World HQ/cn=Recipients/cn=ShiltCK
	NOTES: Christopher K Shilt/World HQ/Relizon@Relizon
	MS: RELIZON/WORLDHQ/CHRISTOPH3
	CCMAIL: Shilt, Christopher at World HQ

---