strServer = "servername" strPort = "389" strRoot = "root" strContainer = "OU=My OU" strName = "CN=A Known User" strPath = "LDAP://" + strServer + ":" + strPort + "/" strMember = strName + ; Iif(Empty(strContainer),"",",")+strContainer + ; Iif(Empty(strRoot),"",",") + strRoot * Get reference to a known member objMember = GetObject(strPath+strMember) Set Textmerge to memvar adsiprops noshow Set Textmerge on * Get class properties oClass = GetObject(objMember.Schema) \ "Class Name is: ", <<oClass.Name>> && User \ "Mandatory Properties: " \ "----------------------" For Each mp In oClass.MandatoryProperties \<<mp>> Endfor \ \ "Optional Properties: " \ "----------------------" For Each op In oClass.OptionalProperties \<<op>> Endfor Set Textmerge to Set Textmerge off _cliptext = adsiprops && Put in clipboardCetin