Login Integrado com o AD

Discussão em 'Progress 4GL' iniciado por deproenca, Junho 9, 2010.

  1. deproenca

    deproenca Membro Participativo

    Bom dia galera,

    alguém sabe como é a lógica ou tem o fonte do login integrado com AD? nosso EMS é integrado com o AD, porém temos um módulo específico e preciso fazer com que esse módulo também tenha essa Login integrado com AD do Windows.

    Alguém pode me ajudar?

    Abraços,
    deproenca, Junho 9, 2010
    #1
  2. kirchner

    kirchner Membro Participativo Moderador

    André,

    O melhor login integrado é aquele que o usuário não vê.
    O sistema reconhece que o usuário já está autenticado e não pede login/senha novamente.

    É isto que você quer? Em outro tópico eu coloquei um exemplo de código p/ chamar 2 APIs do Windows e identificar o usuário autenticado.
    Usei por muito tempo e sempre funcionou perfeitamente.
    kirchner, Junho 9, 2010
    #2
  3. deproenca

    deproenca Membro Participativo

    Valeu Marcos,

    um amigo me passou uma forma também... bem simplificada.. se alguém precisar ta ai....

    Abraços

    Código:
    /**************/
DEF NEW GLOBAL SHARED VAR c-seg-usuario AS CHAR NO-UNDO.
DEFINE VARIABLE c-usuario AS CHARACTER   NO-UNDO.


    RUN btb/btb910zc.p (INPUT  c-seg-usuario,
                        INPUT  YES,
                        INPUT  "",
                        OUTPUT c-usuario).

    MESSAGE c-usuario
     VIEW-AS ALERT-BOX INFO BUTTONS OK.

    if  c-usuario = ? OR c-usuario = "" then do:
        
        return.
    end.

/**************/
    deproenca, Junho 9, 2010
    #3

Compartilhe esta Página