Solved

Email Address Already in use

Posted on 2004-09-23
4
258 Views
Last Modified: 2012-06-27
Hi all,

Yet another Question, I would like to know how to find out who is actually using a particular email address in the organisation.

Is there a way to find this info quickly rather than going thru everyones email aliases??

Cheers

IT
0
Comment
Question by:SynsealIT
  • 2
4 Comments
 
LVL 17

Accepted Solution

by:
Microtech earned 20 total points
ID: 12133183
Hi SynsealIT,
copy this text into a nodepad file and save as .VBS

Const Writable      = 2

Set objFSO           = CreateObject("Scripting.FileSystemObject")
Set objLog          = objFSO.OpenTextFile("c:\proxydump.csv", Writable, True)
Set cn               = CreateObject("ADODB.Connection")
Set cm               = CreateObject("ADODB.Command")
Set rs               = CreateObject("ADODB.RecordSet")


With cn
     .Provider     = "ADsDSOObject"
     .Open "Active Directory Provider"
End With

Set cm.ActiveConnection = cn

strDomainDN          = InputBox("Please Enter the Servername and Domain DN. " & vbCrLf & " Example: Myserver/DC=test,DC=lab ")

cm.CommandText = "<LDAP://" & strDomainDN & ">;(&(objectCategory=user)(proxyAddresses=*));distinguishedName,mail,proxyAddresses;subtree"
cm.Properties("Page Size") = 1000

Set rs               = cm.Execute


While Not rs.EOF

     On Error Resume Next
     strUserDN     = rs.Fields("distinguishedName")
     strProxyAddress = rs.Fields("proxyAddresses")

     objLog.Write strUserDN
     objLog.Write ","
 
     For Each Item in strProxyAddress
          strTempAddr = Item
          objLog.Write Item & ";"
     Next

     objLog.Write vbCrLf

     rs.MoveNext
Wend
               

objLog.Close
msgbox "Export Complete to c:\proxydump.csv"


this will create a csv file on your c drive with all smtp addresses in your domain.

Hope This helps
0
 

Author Comment

by:SynsealIT
ID: 12134802
Thats mint matey!!! Bril :) only thing i it is a public folder i believe that has this alias. Is there any mods i can make to script that will allow this???

Thanks again

IT
0
 
LVL 104

Expert Comment

by:Sembee
ID: 12135710
I tend to just type the full email address in to Outlook's To: line and then wait to see what Outlook resolves it to.

Simon.
0
 
LVL 17

Expert Comment

by:Microtech
ID: 12199154
0

Featured Post

Best Practices: Disaster Recovery Testing

Besides backup, any IT division should have a disaster recovery plan. You will find a few tips below relating to the development of such a plan and to what issues one should pay special attention in the course of backup planning.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Disabling the Directory Sync Service Account in Office 365 will stop directory synchronization from working.
Following basic email etiquette rules will help you write a professional email and achieve a good, lasting impression with your contacts.
In this video we show how to create a Shared Mailbox in Exchange 2013. We show this process by using the Exchange Admin Center. Log into Exchange Admin Center.: First we need to log into the Exchange Admin Center. Navigate to the Recipients >> Sha…
To show how to generate a certificate request in Exchange 2013. We show this process by using the Exchange Admin Center. Log into Exchange Admin Center.:  First we need to log into the Exchange Admin Center. Navigate to the Servers >> Certificates…

813 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

8 Experts available now in Live!

Get 1:1 Help Now