topic RE: System - Active Directory VBO Help in Product Forum

System - Active Directory VBO Help

faheemsd — Thu, 20 Jul 2023 12:26:00 GMT

Dear Team,

Currently we have the System - Active Directory VBO as in which we can perform the Operations

Create User
User Exists
User Exists (Display Name)
User Exists (user Principle Name)
Object Exist (Dynamic)
Add User to Group

Here I need help from you to create one page for getting the Active Directory (AD) user details like First Name, Last Name and Email Id of the user

Could you please help me on this?

------------------------------
SYED FAHEEM
RPA Developer
DAR-ME
Asia/Kolkata
------------------------------

RE: System - Active Directory VBO Help

Athiban_Mahamathi — Fri, 21 Jul 2023 05:05:00 GMT

Hi Syed,

Can you try the below code stage to get the First Name, Last Name and Mail ID. You can refer the LDAP attribute names from here.

Input :

Output :

Code:

firstName = ""
lastName = ""
mailID = ""
Dim ds As New DirectoryServices.DirectorySearcher("(userPrincipalName=" & SearchString & ")")
ds.PropertiesToLoad.Add("givenName") ' First Name
ds.PropertiesToLoad.Add("sn") ' Last Name
ds.PropertiesToLoad.Add("mail") ' Mail
Exists = ds.FindOne() IsNot Nothing
Dim result As SearchResult = ds.FindOne()
If Exists Then
Dim properties As ResultPropertyCollection = result.Properties
' Get the first name, last name, mail attributes
firstName = properties("givenName")(0)?.ToString()
lastName = properties("sn")(0)?.ToString()
mailID = properties("mail")(0)?.ToString()
End If

------------------------------
Athiban Mahamathi - https://www.linkedin.com/in/athiban-mahamathi-544a008b/
Technical Consultant,
SimplifyNext,
Singapore
------------------------------

RE: System - Active Directory VBO Help

faheemsd — Sun, 23 Jul 2023 12:52:00 GMT

@Athiban Mahamathi Mathialagan

Thank you for your response.

------------------------------
SYED FAHEEM
RPA Developer
DAR-ME
Asia/Kolkata
------------------------------

RE: System - Active Directory VBO Help

faheemsd — Thu, 14 Sep 2023 08:27:00 GMT

@Athiban Mahamathi Mathialagan

I'm not getting any results with the above code and it's sowing the Exist flag as false.

The user details already exist in the AD group.

------------------------------
SYED FAHEEM
RPA Developer
DAR-ME
Asia/Kolkata
------------------------------

RE: System - Active Directory VBO Help

faheemsd — Thu, 14 Sep 2023 14:19:00 GMT

@Athiban Mahamathi Mathialagan

I'm getting the AD details with the below code

firstName = ""

lastName = ""

mailID = ""

Dim ds As New DirectoryServices.DirectorySearcher("(samAccountName=" & SearchString & ")")

ds.PropertiesToLoad.Add("givenName") ' First Name

ds.PropertiesToLoad.Add("sn") ' Last Name

ds.PropertiesToLoad.Add("mail") ' Mail

Exists = ds.FindOne() IsNot Nothing

Dim result As SearchResult = ds.FindOne()

If Exists Then

Dim properties As ResultPropertyCollection = result.Properties

' Get the first name, last name, mail attributes

firstName = properties("givenName")(0)?.ToString()

lastName = properties("sn")(0)?.ToString()

mailID = properties("mail")(0)?.ToString()

End If

------------------------------
SYED FAHEEM
RPA Developer
DAR-ME
Asia/Kolkata
------------------------------

RE: System - Active Directory VBO Help

Athiban_Mahamathi — Thu, 14 Sep 2023 15:49:00 GMT

Glad that it worked out.

------------------------------
Athiban Mahamathi - https://www.linkedin.com/in/athiban-mahamathi-544a008b/
Technical Consultant,
SimplifyNext,
Singapore
------------------------------

Re: System - Active Directory VBO Help

Miyelani — Tue, 30 Jul 2024 17:14:12 GMT

i need help with the code stage to extend the Active Directory object to be able to delete users and to set the expiry date on user accounts