Example Code for Using GetEx

[Visual Basic]

Dim obj As IADs
Dim objList As Variant
 
Set obj = GetObject("LDAP://MyMachine/CN=Administrator,CN=Users,DC=Fabrikam,DC=com")
 
objList = obj.GetEx("description")
 
For Each Desc In objList
    ' Print the descriptions
    Debug.Print (Desc)
Next