RE: Making list of e-mail addresses
- From: "Michael B. Smith" <michael@xxxxxxxxxx>
- To: "[ExchangeList]" <exchangelist@xxxxxxxxxxxxx>
- Date: Thu, 24 Jun 2004 14:35:29 -0400
I think your LDAP string, specifically msExchHomeServerName, is probably
incorrect.
This is a whole lot simpler, if you don't need pretty formatting:
Download adfind from www.joeware.net, then:
adfind -b dc=brnets,dc=local -f "(proxyaddresses=smtp:*)" proxyAddresses
Obviously, replace the base with your base.
-----Original Message-----
From: John Tolmachoff (Lists) [mailto:johnlist@xxxxxxxxxxxxxxxxxxx]
Sent: Thursday, June 24, 2004 2:25 PM
To: [ExchangeList]
Subject: [exchangelist] Making list of e-mail addresses
http://www.MSExchange.org/
I am trying to make a list of users e-mail addresses.
I followed the article
http://www.msexchange.org/tutorials/Creating_a_list_of_Users_and_their_e
mail
_addresses_in_Exchange_2000_2.html
And I ended up with this file:
___________________________________________________________
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 = "<LDAP://"; & DomainContainer & ">;(&(&(& (mailnickname=*) (|
(&(objectCategory=person)(objectClass=user)(msExchHomeServerName=/o=Ques
tCom
p/ou=First Administrative Group/cn=Configuration/cn=Servers/cn=SRV3))
))))"
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
______________________________________________________
However, when I run it, it keep getting a Windows Scripting Host error:
Script: C:\users.vbs
Line: 13
Char: 1
Error: One or more errors occurred during processing of command
Code: 80040E14
Source: Provider
Can some one explain what the error is and how to fix?
John Tolmachoff
Engineer/Consultant/Owner
eServices For You
------------------------------------------------------
List Archives: http://www.webelists.com/cgi/lyris.pl?enter=exchangelist
Exchange Newsletters: http://www.msexchange.org/pages/newsletter.asp
Exchange FAQ: http://www.msexchange.org/pages/larticle.asp?type=FAQ
------------------------------------------------------
Other Internet Software Marketing Sites:
World of Windows Networking: http://www.windowsnetworking.com Leading
Network Software Directory: http://www.serverfiles.com
No.1 ISA Server Resource Site: http://www.isaserver.org Windows Security
Resource Site: http://www.windowsecurity.com/ Network Security Library:
http://www.secinf.net/ Windows 2000/NT Fax Solutions:
http://www.ntfaxfaq.com
------------------------------------------------------
You are currently subscribed to this MSEXchange.org Discussion List as:
michael@xxxxxxxxxx To unsubscribe visit
http://www.webelists.com/cgi/lyris.pl?enter=exchangelist
Other related posts:
