Dim rootDSE, domainObject Set rootDSE=GetObject("LDAP://RootDSE") DomainContainer = rootDSE.Get("defaultNamingContext") Set fs = CreateObject ("Scripting.FileSystemObject") Set userFile = fs.CreateTextFile ("c:\users.csv") Set conn = CreateObject("ADODB.Connection") conn.Provider = "ADSDSOObject" conn.Open "ADs Provider" ldapStr = ";(& (mailnickname=*) (| (&(objectCategory=person)(objectClass=user)(!(homeMDB=*))(!(msExchHomeServerName=*)))(&(objectCategory=person)(objectClass=user)(|(homeMDB=*)(msExchHomeServerName=*))) ));adspath;subtree" Set rs = conn.Execute(ldapStr) While Not rs.EOF Set oUser = GetObject ((rs.Fields(0).Value)) userFile.Write oUser.displayName & "," & _ oUser.sAMAccountName & "," & oUser.userprincipalname & "," for each email in oUser.proxyAddresses userFile.Write email & "," next userFile.WriteLine "" rs.MoveNext Wend