Simplified my previous script a WHOLE lot, basically rewrote it entirely \:\)
Upper Case SMTP = Primary
Lower Case smtp = Secondary
 Code:
$=SetOption('Explicit','On')
$=SetOption('NoVarsInStrings','On')
$=SetOption('NoMacrosInStrings','On')

Dim $adsDomain, $adsUser, $cnusr, $usrnfo, $usrmail
$adsDomain = GetObject("WinNT://"+@LDOMAIN)
$adsDomain.filter = "User",""
For Each $adsUser In $adsDomain
  ? $adsUser.Name
  $cnusr = TranslateName($adsUser.Name)
  $usrnfo = GetObject("LDAP://"+$cnusr)
  For Each $usrmail in $usrnfo.proxyAddresses
    ? $usrmail    
  Next
  ?
Next

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