Jump to content
Sign in to follow this  
hemichallenger

get telephone number from AD

Recommended Posts

hemichallenger

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
water

Welcome to AutoIt and the forum!

To query AD use my AD UDF.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-01-27 - Version 1.3.3.1) - 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
hemichallenger

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
water

_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 2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-01-27 - Version 1.3.3.1) - 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
blckpythn

#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
hemichallenger

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
water

Please check function StringSplit.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-01-27 - Version 1.3.3.1) - 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
hemichallenger

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
water

Glad you got it working :)


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-01-27 - Version 1.3.3.1) - 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  

×