cQLDAP	;get LDAP information ;cQLDAP;
	;
	Set $ZT="ERR"
	Set obj=##class(%Activate.GenericObject).GetObject("LDAP://CN=USERS")
 	Write obj.Count()
 	Do obj.%Close()
 	;
YZ	Q
	;
ERR	W !,$ZE,!
	W !,"Error: ",$System.Status.DisplayError($G(obj))
ERRZ	ZQ
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9