How can I get the account type from a list of DNs?

Include the objectClass attribute in your query.

(dsquery * dc=domain,dc=com -attr userPrincipalName altRecipient objectClass > list.txt)

Select allOpen in new window

That seems to return the objectClass of the uerPrincipalName, not the altRecipient unfortunately :-(

Ah,  I misunderstood the intent of your question.

After fiddling with it a bit I came up with the batch script below.  It required some extra effort because dsquery apparently tacks several spaces onto the end of its attribute output.

This should output a tilde-delimited text file containing each DN and its objectClass attribute.  You should be able to import this into Excel, splitting columns on the tilde, and match up the contents with your first list.  It's not the most elegant method but it works.

@echo off
setlocal
 
set container="dc=domain,dc=com"
 
for /F "skip=1 tokens=*" %%G in ('dsquery * %container% -attr distinguishedName') do call :_process "%%G"
goto :eof
 
:_process
set string=%~1
:_trim
if "%string:~-1%"==" " (
 set string=%string:~0,-1%
 goto :_trim
)
for /F "skip=1 tokens=*" %%H in ('dsquery * "%string%" -attr objectClass') do echo "%string%"~%%H>>newlist.txt
goto :eof

Select allOpen in new window

First of all, thank you very, very much for taking your time with this!

OK, I ran the script and it generated a lot account attributes, but I'm not sure how to match these up with the data I generated with the first dsquery? Do I just paste it as a third column next to the original output?

Is there any way we can focus on taking the txt file I've generated already (which contains ONLY accounts that have altRecipients, and their altRecipients) and append either contact or user to a third column? Or, as I believe you've done, the entire objectClass field as a thrid column? :

userPrincipalName altRecipient
asmith@domain.com CN=Ashley Smith,OU=Users,OU=Headquarters,DC=domain,DC=com
ajones@domain.com CN=Ann Jones,OU=Users,OU=Headquarters,DC=domain,DC=com

and turn it into this? (note: the objectClass would be a third column, not a new line as shown below (because of the font size)
userPrincipalName altRecipient objectClass
asmith@domain.com CN=Ashley Smith,OU=Users,OU=Headquarters,DC=domain,DC=com
user
ajones@domain.com CN=Ann Jones,OU=Users,OU=Headquarters,DC=domain,DC=com
contact

once again, thank you!!!

The way that the data is formatted makes it difficult to deal with in batch.  I think it would be more efficient to re-write this entire task as a query in vbscript.

Would a vbscript solution be acceptable?  If so, what data would you ideally want returned and in what format?

Sure, that would be great. I would want the output to look like the following:
Account, AltRecipient, AltRecipient SMTP Address
JSmith@domain.com, Joe's External contact, jsmith@att.net
ajones@domain.com, ajones external contact, ajones@aol.com
... and so on.
 
thanks!
 

Paste the script below into a text file with a .vbs extension.  Customize the value of the strContainer variable with the distinguished name of the domain or OU to search under.  Running it should write the desired information to a comma-delimited text file.

I don't have a working Exchange instance to test this against, so let me know if I missed something.

Const ADS_SCOPE_SUBTREE = 2
Const ForWriting = 2
 
On Error Resume Next
 
strContainer = "dc=domain,dc=com"
strList = "list.csv"
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objList = objFSO.OpenTextFile(strList, ForWriting, True)
objList.WriteLine "Account,AltRecipient,AltRecipient SMTP Address,AltRecipient type"
 
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
 
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
 
objCommand.CommandText = _
    "SELECT AdsPath FROM 'LDAP://" & strContainer & "' WHERE objectClass='user'"  
Set objRecordSet = objCommand.Execute
 
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
    Set objUser = GetObject(objRecordSet.Fields("AdsPath").Value)
    
    strUPN = objUser.userPrincipalName
    strAlt = objUser.altRecipient
    
    If strAlt Then
        Set objAlt = GetObject(strAlt)
        strAltName = objAlt.CN
        arrSMTP = objAlt.GetEx("proxyAddresses")
        strSMTP = arrSMTP(0)
        arrClass = objAlt.objectClass
        strClass = arrClass(UBound(arrClass))
        
        objList.WriteLine strUPN & "," & strAltName & "," & strSMTP & "," & strClass
    End If
    
    objRecordSet.MoveNext
Loop
 
objList.Close

Select allOpen in new window

closed