Conversion from type '_ComObject' to type 'String' is not valid

[dodol135]

Hi guys i got following error while i am running my program
here is the code scratch where i got an exception :

Try
Dim de As New DirectoryEntry("LDAP://xxx/dc=xxx,dc=com", "aaa", "secret")
Dim MyAttributes As PropertyCollection
Dim MyAttributeName As String
Dim myValue As String
Dim MyAttributeValues As PropertyValueCollection
MyAttributes = de.Properties


For Each MyAttributeName In MyAttributes.PropertyNames
MyAttributeValues = MyAttributes(MyAttributeName)
Console.WriteLine("------------------------------")
For Each myValue In MyAttributeValues
Console.WriteLine(CType(MyAttributeName, String) & " : " & CType(myValue, String))
Next
Next
Catch ex As Exception
Console.WriteLine("ex: " + ex.Message)
End Try

Where is the wrong section ?
please help me guys
any help would be totally appreciated ....

[r035198x]

@dodol135
Use e.StackTrace instead of e.Message to get the exact line number.

[dodol135]

OK i'm sorry
here is the line where i got exception :

For Each myValue In MyAttributeValues

[r035198x]

myValue is a String and the runtime has just told you that the values in MyAttributeValues are _ComObjects type(whatever that is).
Better declare Dim myValue As Object instead.

[dodol135]

OK, but the main problem is what should i do to manage this error
changing myValue with object is doesnt solve the problem either
because __Comtype is not convertible to string,
and i need to convert to string for listing all field that exist in particular active directory ....
any suggestion ?

[r035198x]

The object class has a ToString method. If those objects implemented it correctly then you should get what you want from the ToString.

[jg007]

If I recall correctly had a pretty similar error when accessing AD from VB and it was because I was accessing a collection of objects ( Memberof ) and I just had to ammend it to do a 'For each' on member of.