Consulta LDAP de usuarios y dominios

Hola
tengo un dominio nativo en w2000 y muchos subdominios
(tambien w2000)
Mi servidor exchange 2000 esta en el dominio padre y
necesito sacar mediante un script vbs todos los buzones
con su cuenta de ususario asociada.

P ej.

JohnDoe@mydomain.com - ROOTDOMAIN\user1

tengo esto

Dim adsRootDSE

Set adsRootDSE = GetObject("GC://RootDSE")
strADsPath = "GC://" & adsRootDSE.Get
("rootDomainNamingContext")
Set adsRootDSE = Nothing

Dim connADO As New ADODB.Connection
connADO.Provider = "ADsDSOObject"
connADO.Open
Dim strQuery

strQuery = "select cn,sAMAccountName,mail, ADsPath from '"
& strADsPath & "' where objectClass = 'user' "


Dim rsADO As New ADODB.Recordset
Dim recADO As New ADODB.Record

rsADO.Open strQuery, connADO

MsgBox rsADO.Fields("cn").Value & " - " & rsADO.Fields
("sAMAccountName").Value & " - " & rsADO.Fields
("Mail").Value & " - " & rsADO.Fields("ADsPath").Value





Como podeis ver, saco el ADsPath, pero no se como poder
sacar el nombre de usuario del tipo DOMAIN\user.

Alguien me puede echar una mano?
Gracias

Salva