How can I change AD user last name with water UDF ? [Solved]

[Nas]

I was stuck on changing some areas on my username for some reason please check the script below :

#include <AD.au3>
#RequireAdmin

_AD_Open()

; this portion works just fine
_AD_ModifyAttribute("User.a", "GivenName", "John")
_AD_ModifyAttribute("User.a", "displayName", "John, Smith") 

; this portion I can't get it to work
_AD_ModifyAttribute("User.a", "Surname", "Smith")           
_AD_ModifyAttribute("User.a", "City", "Orlando")
_AD_ModifyAttribute("User.a", "State", "FL")
_AD_ModifyAttribute("User.a", "country", "US")

_AD_Close()

Basically the top portion for the Givenname and display name works perfectly but the other portion I am unable to get it to work.

Edited November 26, 2019 by Nas

[water]

Try the following modification to get better error information:

Quote

#include <AD.au3>
#RequireAdmin

_AD_Open()

_AD_ErrorNotify(2)
; this portion works just fine
_AD_ModifyAttribute("User.a", "GivenName", "John")
_AD_ModifyAttribute("User.a", "displayName", "John, Smith") 

; this portion I can't get it to work
_AD_ModifyAttribute("User.a", "Surname", "Smith")           
_AD_ModifyAttribute("User.a", "City", "Orlando")
_AD_ModifyAttribute("User.a", "State", "FL")
_AD_ModifyAttribute("User.a", "country", "US")

_AD_Close()

 

 

[Nas]

I got this after I run the script, the same error message but 4 times .

[water]

This simply means that the corresponding property has not been set before.

What is the value of @error and @extended after calling _AD_ModifyAttribute?

[Nas]

Voila, the @error and @extended :

[Nas]

Global $aResult = _AD_GetObjectAttribute(@UserName, "Surname")
MsgBox(0,0,$aResult)

I tried this too and It didn't return anything the error is 2 and the extended is -2147352567.

Edited November 25, 2019 by Nas

[Nas]

On 11/24/2019 at 1:56 PM, Nas said:

Global $aResult = _AD_GetObjectAttribute(@UserName, "Surname")
MsgBox(0,0,$aResult)

I tried this too and It didn't return anything the error is 2 and the extended is -2147352567.

@water Any feedback will be greatly appreciated

[AdamUL]

Give this a try.  The AD schema at my work uses "sn" for the surname.  

Global $aResult = _AD_GetObjectAttribute(@UserName, "sn")
MsgBox(0,0,$aResult)

As an additional note.  Use ADExplorer to see what an AD object's attributes are available.  

 

Adam

Edited November 25, 2019 by AdamUL
Added ADExplorer link

[water]

Or run the example script for _AD_GetObjectProperties. Example 1 will list all properties of the current user.

[Nas]

Awesome, Thank you @AdamUL thanks @water you're the best.

here is how my script looks like now, wanted to share, maybe someone will need this in the future :

#include <AD.au3>

_AD_Open()

_AD_ModifyAttribute("User.a", "GivenName", "John")
_AD_ModifyAttribute("User.a", "displayName", "John, Smith")
_AD_ModifyAttribute("User.a", "Description", "Owner")
_AD_ModifyAttribute("User.a", "physicalDeliveryOfficeName", "Downtown")
_AD_ModifyAttribute("User.a", "Title", "Admin")
_AD_ModifyAttribute("User.a", "Department", "IT")
_AD_ModifyAttribute("User.a", "proxyAddresses", "SMTP:John.Smith@server.com")
_AD_AddEmailAddress("User.a", "John.Smith@server.local")
_AD_ModifyAttribute("User.a", "mail", "John.Smith@server.com")
_AD_ModifyAttribute("User.a", "StreetAddress", "100 N Highway")
_AD_ModifyAttribute("User.a", "Title", "SysAdmin")
_AD_ModifyAttribute("User.a", "Company", "Facebook")
_AD_ModifyAttribute("User.a", "PostalCode", "60000")
_AD_ModifyAttribute("User.a", "Manager", _AD_GetObjectAttribute("John.Smith", "distinguishedName")) ; here will assign john smith as manager for user.a
_AD_ModifyAttribute("User.a", "sn", "Smith")
_AD_ModifyAttribute("User.a", "l", "Orlando")
_AD_ModifyAttribute("User.a", "st", "FL")
_AD_ModifyAttribute("User.a", "c", "US")

_AD_Close()