Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 3 Próxima »

Função: ADUserValid

Faz a autenticação de uma conta de usuário de um domínio baseado no Active Directory do Microsoft Windows.

ADUserValid ( < cDomainName >, < cUserName >, < cPassword > ) --> lValid

A chamada desta função atende a dois cenários distintos, conforme descrito a seguir: 

  1. Cenário 1 - Autenticação por credenciais:
    Neste cenário a credencial do usuário é informada. Entende-se por credencial: O nome do domínio, o nome do usuário e a senha do usuário.

  2. Cenário 2 - Autenticação por SID:
    Neste segundo cenário, o Security Identifier (SID) e a senha do usuário são informados. O SID, representado por uma string de caracteres, pode ser resgatado do usuário autenticado na estação através da função GetCredential()


Parâmetros/Elementos

 

NomeTipoDescriçãoObrigatórioReferência
cDomainNameCaracter

Cenário 1: Nome do domínio no qual encontra-se a estação.

Cenário 2: Código SID do usuário autenticado na estação.

X 
cUserNameCaracter

Cenário 1: Nome do usuário pertencente ao domínio informado.

Cenário 2: String vazia, obrigatoriamente.

X 
cPasswordCaracterAmbos os cenários: Senha do usuário informado.X 

 

lValid (lógico)
  • Retorna verdadeiro (.T.) se a autenticação no domínio foi realizada com sucesso, caso contrário, falso (.F.).
  • Função válida somente para estações rodando TOTVS Smart Client para Microsoft Windows. O retorno da função será sempre falso (.F.) caso seja invocada em estações com outros sistemas operacionais.
  • Essa função pode ser utilizada somente para autenticação em domínios baseados no Active Directory da Microsoft, não compreendendo contas de usuários locais da estação.
  • Somente contas de usuários do domínio no qual encontra-se a estação poderão ser validadas. Caso seja informada uma credencial de outro domínio, diferente do qual a estação pertence, o retorno será sempre falso (.F.).
  • Essa função está disponível em builds superiores à 7.00.120420A

 

Exemplos

#include "TOTVS.CH"
User Function ADUserValid()
DEFINE DIALOG oDlg TITLE "Exemplo ADUserValid" FROM 180,180 TO 450,600 PIXEL
cTGetDomain := space(40)
cTGetUser := space(40)
cTGetPassword := space(40)
oSayDomain:= TSay():New(13,01,{||'Domínio:'},oDlg,,,,,,.T.,CLR_RED,CLR_WHITE,200,7)
oTGetDomain := TGet():New( 20,01,{|x| If(Pcount()>0, cTGetDomain:= x, cTGetDomain)},oDlg,096,009,"",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGetDomain,,,,)
oSayUser:= TSay():New(35,01,{||'Usuário:'},oDlg,,,,,,.T.,CLR_RED,CLR_WHITE,200,7)
oTGetUser := TGet():New( 42,01,{|x| If(Pcount()>0, cTGetUser:= x, cTGetUser)},oDlg,096,009,"",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGetUser,,,,)
oSayPassword:= TSay():New(56,01,{||'Senha:'},oDlg,,,,,,.T.,CLR_RED,CLR_WHITE,200,7)
oTGetPassword := TGet():New( 63,01,{|x| If(Pcount()>0, cTGetPassword:= x, cTGetPassword)},oDlg,096,009,"",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.T.,,cTGetPassword,,,,)
oTButtonLogin1 := TButton():New( 82, 01, "Login",oDlg,{|| alert(ADUserValid(alltrim(cTGetDomain), alltrim(cTGetUser), alltrim(cTGetPassword))) },96,10,,,.F.,.T.,.F.,,.F.,,,.F. )
ACTIVATE DIALOG oDlg CENTERED
return

Abrangência

Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

 

 

 

  • Sem rótulos