get telephone number from AD

[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()

[water]

Welcome to AutoIt and the forum!

To query AD use my AD UDF.

[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()

[water]

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

Edited June 2, 2014 by water

[blckpythn]

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

Works for me.

[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.

[water]

Please check function StringSplit.

[hemichallenger]

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

[water]

Glad you got it working