[Mazzi]

Попробуй вот это

Set oRoot = GetObject("LDAP://rootDSE")
Set oDomain = GetObject("LDAP://" & oRoot.Get("defaultNamingContext"))
DomainDistName = oDomain.distinguishedName
Set Conn = CreateObject("ADODB.Connection")
Set Comm = CreateObject("ADODB.Command")
Set rs = CreateObject("ADODB.Recordset")
Conn.Provider = "ADsDSOObject"
Conn.Open "Active Directory Provider"
Set Comm.ActiveConnection = Conn
Comm.CommandText = "SELECT CN,mail from 'LDAP://" & DomainDistName & "' " _
& "WHERE objectClass = 'user'"
Set rs = Comm.execute
rs.MoveFirst
Do Until rs.EOF
Mail = rs.Fields("mail").Value
CN = rs.Fields("CN").Value
Wscript.echo CN & "(" & Mail & ")"
rs.MoveNext
Loop
rs.Close
Set oRoot = Nothing
Set oDomain = Nothing
Set Conn = Nothing
Set Comm = Nothing
Set rs = Nothing
Set oCont = Nothing
Set NewUser = Nothing
Set oUser = Nothing