Active Directory - Get username using Email address

[TheOne23]

Hi Experts / Water,

I've been doing some work with AD. I am able to return specific info given a username. However, I want the input to accept a format of "Email", search AD for a match and return the username. Is this possible?

I am using the AD.au3 but unable to see a function that works for this scenario.

Any help will be greatly appreciated.

[seadoggie01]

I think you meant 'Experts (especially water). You're excluding him from the experts there ;D

[water]

Something like this?

#include <AD.au3>

; Open Connection to the Active Directory
_AD_Open()
If @error Then Exit MsgBox(16, "Active Directory Example Skript", "Function _AD_Open encountered a problem. @error = " & @error & ", @extended = " & @extended)

Global $aObjects = _AD_GetObjectsInOU("", "(ANR=john.Doe@company.com)", 2, "sAMAccountName,distinguishedName,displayname", "displayname")
If @error > 0 Then Exit MsgBox(64, "", "No records found")
_ArrayDisplay($aObjects)

 

[TheOne23]

Hi Seadoggie01,

Yeah Buddy. You're correct on that 😃

[water]

2 minutes ago, seadoggie01 said:

I think you meant 'Experts (especially water).

I understood it this way

[TheOne23]

Hi Water,

As usual and expected, you made my day! 😎

It works like a charm! 

Thank you very much for your great and quick help on this.

below is how I used it:

_AD_Open()

Global $aOL_Item = _OL_ItemFind($oOutlook, "RonaldJayson_paggao@comcast.com\Inbox\BP_Automation", $olMail, "[UnRead]=True", "", "", "EntryID","",2)

    $oItem = _OL_ItemGet($oOutlook, $aOL_Item[1][0], Default, "body")
    $oItem1 = _OL_ItemGet($oOutlook, $aOL_Item[1][0], Default, "receivedtime")
    $oItem2 = _OL_ItemGet($oOutlook, $aOL_Item[1][0], Default, "subject")
    Global $oItem3 = _OL_ItemGet($oOutlook, $aOL_Item[1][0], Default, "senderemailaddress")

Global $oOL_Item = $oOutlook.Session.GetItemFromID($aOL_Item[1][0], Default)
    Global $oOL_Sender = $oOL_Item.Sender
   If $oOL_Sender.AddressEntryUserType = $olExchangeUserAddressEntry Or $oOL_Sender.AddressEntryUserType = $olExchangeRemoteUserAddressEntry Then
        Global $oExchangeUser = $oOL_Sender.GetExchangeUser
        ;MsgBox(0, "Mail", $oExchangeUser.PrimarySmtpAddress)
        $EmailAddress_Sender = $oExchangeUser.PrimarySmtpAddress
        ;MsgBox(0, "Mail", $EmailAddress_Sender)
   Else
        Global $EmailAddress_Sender1 = _ArrayToString($oItem3,"",1,1,"",1,1)
      $EmailAddress_Sender = StringStripWS($EmailAddress_Sender1,7)
   EndIf

If @error Then Exit MsgBox(16, "Active Directory Example Skript", "Function _AD_Open encountered a problem. @error = " & @error & ", @extended = " & @extended)

Global $aObjects = _AD_GetObjectsInOU("", "(ANR="& $EmailAddress_Sender &")", 2, "sAMAccountName,distinguishedName,displayname", "displayname")
If @error > 0 Then Exit MsgBox(64, "", "No records found")

_ArrayDisplay($aObjects)

$cn1 = _ArrayToString($aObjects,"",1,1,"",1,1)

Msgbox(64,"UserName: ",$cn1)

_AD_Close()

 

[water]