Macro not working for fetching data from Active Directory

[Negi1984]

P45cal probably has already resolved your difficulties but I thought I would suggest that you place Option Explicit at the top of your code as some variables are not declared (eg. "name"). Also, in light of P45cal's suggestions the following declaration...

Dim signum, name, ldapstr, relation As String

only declares "relation" as a string variable which seems relevant. HTH. Dave

Hi Dave,

I have tested same as well and getting the error as per attached snapshot.

" run time Error -2147023541 (8007054b)
Automation Error
The Specified domain either does not exist or could not be contacted."

and step where getting error now is "Set x = GetObject(ldapstr)"

And when I again check same file in my old machine then there is no error.
Could you please suggest further , how to solve this issue. I am basic VBA user so difficult to identify how to solve this.