Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/6062824/tecnologia.css
|
Portuguese |
Pagetitle | ||||
---|---|---|---|---|
|
Faz a autenticação de uma conta de usuário de um domínio baseado no Active Directory do Microsoft Windows.
Sintaxe
Bloco de código | ||
---|---|---|
| ||
ADUserValid( < cDomainName >, < cUserName >, < cPassword > )
|
Parâmetros
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
cDomainName | caractere | 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 | |
cUserName | caractere | Cenário 1: Nome do usuário pertencente ao domínio informado. Cenário |
...
2: String vazia, obrigatoriamente. | X | |||
cPassword | caractere | Ambos os cenários: Senha do usuário informado. | X |
Retorno
Nome | Tipo | Descrição |
---|---|---|
lValid | bloco de código | Retorna verdadeiro (.T.) se a autenticação no domínio foi realizada com sucesso, caso contrário, falso (.F.). |
Informações | ||||
---|---|---|---|---|
| ||||
|
Exemplos
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
User Function Exemplo()
#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
|
Veja também
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas