Sign in to follow this  
Followers 0
hemichallenger

get telephone number from AD

9 posts in this topic

Question:

Is there a way after you retrieve the enduser logged on. To also go thru AD and retrieve that enduser telephoneNumber aswell?

Func _GetConsoleUser()
    Local $strComputer = GUICtrlRead ($Input1)
        $ping = Ping($strComputer, 500)
    If $ping Then
        GUICtrlSetData($Progress2,"")
        For $i = 100 To 100 step 1
        GUICtrlSetData($Progress2, $i)
        Sleep(10)
    Next
    $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
        If Not @error Then
        $GCU = ObjGet("winmgmts:{impersonationLevel=Impersonate}!\\" & $strComputer & "\root\cimv2")
        $colUsers = $GCU.ExecQuery ("SELECT * FROM Win32_Computersystem")
    For $objUser In $colUsers
    $strAccount = $objUser.UserName
    If $strAccount <> "" Then
        msgbox(64, "Username", "Currently logged on user is: " & $objUser.UserName)
    EndIf
    Next
    EndIf
    Else
    MsgBox(16, "Error", "Could not locate computer.")
EndIf
EndFunc


_AD_Open()
$aProperties = _AD_GetObjectProperties(Row|Col 0|Col 1[@username, "telephoneNumber")
_ArrayDisplay($aProperties, "Active Directory Functions - Example 2 - Properties for user '" & @UserName & "'")
_AD_Close()

Share this post


Link to post
Share on other sites



Welcome to AutoIt and the forum!

To query AD use my AD UDF.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

Yes but is it possible after pulling information from WMI and getting domainusername $objUser.UserName. To use that information to somehow query AD for the end users telephone?

_AD_Open()
$aProperties = _AD_GetObjectProperties(Row|Col 0|Col 1[$objUser.UserName, "telephoneNumber")
_ArrayDisplay($aProperties, "Active Directory Functions - Example 2 - Properties for user '" & $objUser.UserName & "'")
_AD_Close()

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

_AD_Open()
$aProperties = _AD_GetObjectProperties($objUser.UserName, "telephoneNumber")
_ArrayDisplay($aProperties, "Active Directory Functions - Example 2 - Properties for user '" & $objUser.UserName & "'")
_AD_Close()

Edited by water

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

#include <AD.au3>
_AD_Open()
ConsoleWrite(_AD_GetObjectAttribute(@UserName, "telephoneNumber") & @CRLF)
_AD_Close()

Works for me.

Share this post


Link to post
Share on other sites

When you use $objUser.UserName it shows DomainFirstname.Lastname. How can I get it to just diplay Firstname.Lastname? And leave out the Domain part.

Share this post


Link to post
Share on other sites

Please check function StringSplit.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

Thank you for pointing me in the right direction. I figured it out. Thanks again.

Share this post


Link to post
Share on other sites

Glad you got it working :)


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0