Got something going to get all e-mail addresses some time ago.
Only thing missing is the code to change an alias into the default and the default into an alias.

 Code:
Break on

$rc = SetOption('Explicit','On')
$rc = SetOption('NoVarsInStrings','On')
$rc = SetOption('NoMacrosInStrings','On')

Dim $adsDomain, $adsUser, $cnusr, $usrnfo, $usrmail, $type
$adsDomain = GetObject("WinNT://"+@LDOMAIN)
$adsDomain.filter = "User",""
For Each $adsUser in $adsDomain
	$cnusr = TranslateName($adsUser.Name)
	$usrnfo = GetObject("LDAP://"+$cnusr)
	For Each $usrmail in $usrnfo.proxyAddresses
		If Left($usrmail, 5) <>  "X400:"
			If $adsUser.Name = @USERID
				$type = Left($usrmail, 3)
				If LCase($type) == $type
					$type = "Alias"
				Else
					$type = "Default"
				EndIf
				? $adsUser.Name " : " $usrmail " : " $type
			EndIf
		EndIf
	Next
Next
Sleep 5

Function TranslateName($NameToTranslate)
	Dim $NameTranslate
	$NameTranslate = CreateObject("NameTranslate")
	$NameTranslate.Init(3,"")
	$NameTranslate.Set(3, @LDOMAIN + "\" + $NameToTranslate)
	$TranslateName = $NameTranslate.Get(1)
EndFunction
_________________________
Mart

- Chuck Norris once sold ebay to ebay on ebay.