Searching Object Properties

[faradhi]

I have this function code that I know will not work. What I hope to accomplish is that the function is passed the property name and it returns a propery value.

Function GetProp(StrPropName As String, StrLDAP As String)

    Dim Objuser As Object
    'Opens the LDAP object for the active directory user
    Set Objuser = GetObject(StrLDAP)
    
    GetProp = Objuser.StrPropName

End Function

 

[Mile-O]

You can't just use a variable as a substitute for a property or method of an Object.

Try something like this:

Function GetProp(strPropName As String, strLDAP As String) As String

    Dim Objuser As Object
    'Opens the LDAP object for the active directory user
    Set Objuser = GetObject(StrLDAP)
    
    GetProp = Objuser.Properties(StrPropName)

End Function

 

[faradhi]

Thanks SJ

I knew it was something stupidly simply. I just could not remember how.

 

[faradhi]

Well that didn't work either. States that the object doesn't support this property or method. Any other suggestions???