Set tRequest=##Class(EnsLib.LDAP.Message.Add).%New()
Set tRequest.DN = "m-oid=1.2.840.113556.1.8000.2448.2.1,ou=attributetypes, cn=intersystems, ou=schema"
Set tRequest.objectClass="metaAttributeType,metaTop,top"
Set tCount = 0
Set tCount = tCount+1
Do tRequest.Attributes.SetAt("m-oid=1.2.840.113556.1.8000.2448.2.1",tCount)
Set tCount = tCount+1
Do tRequest.Attributes.SetAt("m-name=intersystems-Namespace",tCount)
Set tCount = tCount+1
Do tRequest.Attributes.SetAt("m-description=Default namespace a user connects to",tCount)
Set tCount = tCount+1
Do tRequest.Attributes.SetAt("m-equality=caseIgnoreMatch",tCount)
Set tCount = tCount+1
Do tRequest.Attributes.SetAt("m-substr=caseIgnoreSubstringsMatch",tCount)
Set tCount = tCount+1
Do tRequest.Attributes.SetAt("m-syntax=1.3.6.1.4.1.1466.115.121.1.15",tCount)
Set tCount = tCount+1
Do tRequest.Attributes.SetAt("m-singleValue=TRUE",tCount)