Mit dieser funktion kann ich mich gegen ein MS-AD authetifizieren, aber leider hat so jeder User Zugriff auf die Anwendung, der im AD angelegt ist.
Hat jemand eine gute Idee, wie ich noch eine "Mitglied von..."-Abfrage einbaue?

CREATE OR REPLACE FUNCTION FK_AUTH_ADUSER(
	P_USERNAME		IN		VARCHAR2,
	P_PASSWORD		IN		VARCHAR2)
RETURN BOOLEAN
IS
	L_USER			VARCHAR2(256);
	L_LDAP_SERVER	VARCHAR2(256)	:= 'IP des Domain-Controllers';
	L_DOMAIN		VARCHAR2(256)	:= 'Domain';
	L_LDAP_PORT		NUMBER			:= 389;
	L_RETVAL		PLS_INTEGER;
	L_SESSION		DBMS_LDAP.SESSION;
	L_CNT			NUMBER;
BEGIN
	L_USER			:= P_USERNAME||'@'||L_DOMAIN;
	L_SESSION		:= DBMS_LDAP.INIT( L_LDAP_SERVER, L_LDAP_PORT ); -- START SESSION
	L_RETVAL		:= DBMS_LDAP.SIMPLE_BIND_S( L_SESSION, L_USER, P_PASSWORD ); -- AUTH AS USER
	L_RETVAL		:= DBMS_LDAP.UNBIND_S( L_SESSION ); -- UNBIND
	RETURN TRUE;
EXCEPTION WHEN OTHERS THEN
	L_RETVAL := DBMS_LDAP.UNBIND_S( L_SESSION );
	RETURN FALSE;
END;

MfG
Andreas