Windows Server

steve · Guest

Hi All!

I am looking for some vbscript example of code that extracts e-mail accounts
(Exchange 2000 in a Windows 2000 environment) from Active Directory .

Where can I find some example?

Thank you!

Rudy Steyaert · Guest

Can you be more specific about you want to accomplish ?

"steve" <simpsonst3@comcast.net> wrote in message
news:%23kd$zFA9EHA.2600@TK2MSFTNGP09.phx.gbl...

steve · Guest

Sure!

The script should query the whole A.D. and for every User account in my A.D.
it would extract the user's e-mail address (if any) (the SMTP e-mail
address) and write it to a text file.

Thanks!!

john.whatever@myorg.com the list would show
"Rudy Steyaert" <Rudy_Steyaert@hotmail.com> wrote in message
news:esGLwbB9EHA.2572@tk2msftngp13.phx.gbl...

Rudy Steyaert · Guest

As a start, here is an example of some code I use on an ASP-page.

<%
Set Conn=Server.CreateObject("ADODB.Connection")
Set Com=Server.CreateObject("ADODB.Command")
Set Rs=Server.CreateObject("ADODB.Recordset")
Conn.Provider="ADsDSOObject"
Conn.Open "ADs Provider"
Com.ActiveConnection=Conn
Com.CommandText="<LDAP://DC=YOURDOMAIN,DC=YOURDOMAINSUFFIX>;(&(objectCategory=user));Displayname,Mail,Proxyaddresses;subtree"
Set Rs = Com.Execute
While (not Rs.EOF)
Response.Write (Rs.Fields("Displayname").value&"<BR>")
ProxyAddresses=Rs.Fields("ProxyAddresses").value
If not IsNull(ProxyAddresses) then
for each Address in ProxyAddresses
Response.Write (Address)&","
next
response.Write("<BR>")
end If
Rs.movenext
Wend
Rs.Close
Conn.Close
Set Rs=Nothing
Set Com=Nothing
Set Conn=Nothing
%>

"steve" <simpsonst3@comcast.net> wrote in message
news:uJoznTC9EHA.3596@TK2MSFTNGP12.phx.gbl...

	Windows Server Forum Index -> Programming	All times are GMT
Page 1 of 1