$strX400Search          = "X400:"
$strOutputFile = "D:\proxyaddresses.csv"

$objRootDSE = GetObject("LDAP://rootDSE")
$strDNSDomain = $objRootDSE.Get("defaultNamingContext")

;Set the ADO connection query strings
$QueryPath ="" + $strDNSDomain
$strFilter = "(&(proxyAddresses=*))"
$strAttributes = "adspath"

;Start the ADO connection
$objCommand = CreateObject("ADODB.Command")
$objConnection = CreateObject("ADODB.Connection")
$objConnection.Provider = "ADsDSOObject"
$objConnection.Open("Active Directory Provider")
$objCommand.ActiveConnection = $objConnection

;Create the Query
$strQuery = "<LDAP://" + $QueryPath + ">;" + $strFilter + ";" + $strAttributes + ";subtree"

$objCommand.CommandText = $strQuery
$objCommand.Properties("Page Size").value = 1000
$objCommand.Properties("Timeout").value = 30
$objCommand.Properties("Cache Results").value = 0

$objRecordSet = $objCommand.Execute

$objCount = 0
;objCount = $objRecordSet.RecordCount '<--not possible when 'caching results' is false
$addrCount = 0

$objRecordSet.MoveFirst

;Get the emailaddresses of all Items with a proxyaddress in the domain
While Not $objRecordset.EOF
  $objCount = $objCount + 1
  $strItemPath = $objRecordSet.Fields("AdsPath").Value
  $objItem = GetObject($strItemPath)
  $strObjClass = $objItem.class
  $ProxyAddresses = $objItem.proxyAddresses
  For Each $Proxy in $ProxyAddresses
    If Not InStr(UCase($Proxy), $strX400Search)
      $emailaddres = "present"
      $addrCount = $addrCount + 1
      $x = SubStr($proxy,1,4)
      Select
        CASE $x == UCASE("smtp")
          $emailaddres = SubStr($proxy,6) + ",Primary"
        CASE $x == LCASE("smtp")
          $emailaddres = SubStr($proxy,6) + ",Secondary"
      EndSelect
      $strResult = $strResult + @Crlf + $strObjClass + "," + chr(34) + $objItem.distinguishedName + chr(34) + "," + $emailaddres
    EndIf
  Next
  $objRecordSet.MoveNext
Loop

;Output to a text file
$objFileSystem = CreateObject("Scripting.FileSystemObject")
$objOutputFile = $objFileSystem.CreateTextFile($strOutputFile)
$objOutputFile.Write("objectClass,DistinguishedName,Emailaddress,pri/sec address,'")
$objOutputFile.Write($strResult)
$objOutputFile.close

? "Counted: " + $objCount + " records and " + $addrCount + " emailaddresses"

$=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

  
Break On
$FQDN = 'OU=users,DC=somedomain,DC=com'
$objADsPath = GetObject('LDAP://'+$FQDN)
For Each $obj in $objADsPath
    if $obj.Class = 'user'
        $usrDN = $obj.distinguishedName
        $usrFQDN= GetObject('LDAP://'+$usrDn)
        For Each $usrProxyAddr in $usrFQDN.proxyAddresses
            ? $usrProxyAddr
        Next
    endif
Next

CheckMailAdr("smtp:UserMail@@Domain.com")
  
Function CheckMailAdr($EMail)
	Dim $domCN,$Conn,$sLDAP

	If Not InStr($EMail,":")
		$EMail = "smtp:" + $EMail
	EndIf
	$domCN =  GetObject("LDAP://rootDSE").Get("defaultNamingContext")
	$Conn = CreateObject("ADODB.Connection")
	$Conn.Provider = "ADSDSOObject"
	$Conn.Open("ADs Provider")
	$sLDAP = "<LDAP://" + $domCN +  ">;(&(objectCategory=person)(proxyAddresses=" + $Email + "));adspath;subtree"
	$RecSet = $Conn.Execute($sLDAP)
	If $RecSet.RecordCount = 1
		$CheckMailAdr = $RecSet.Fields(0).Value
	Else
		$CheckMailAdr = ""
	EndIf
EndFunction