TOTVSTEC

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 2 minutos

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 2 Próxima »

Função: GetUserFromSID

Recupera o nome do domínio e nome do usuário a partir de um código no padrão SID (Security Identifier) da Microsoft que os representa.

Sintaxe

GetUserFromSID ( < cSID >, < cDomainName >, < cUserName > ) --> lValid

Parâmetros/Elementos

 

NomeTipoDescriçãoObrigatórioReferência
cSIDCaracter

Código SID do usuário autenticado na estação. Pode ser obtido com a função GetCredential().

X 
cDomainNameCaracter

Será preenchido pela função após ser invocada. Conterá o nome do domínio extraído do código SID.

 X
cUserNameCaracterSerá preenchido pela função após ser invocada. Conterá o nome do usuário extraído do código SID. X

 

Retorno
lValid (lógico)
  • Retorna verdadeiro (.T.) se a obtenção dos nomes de domínio e usuário foi realizada com sucesso, caso contrário, falso (.F.).
Observações
  • 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.
  • O Security Identifier (SID), representado por uma string de caracteres, pode ser resgatado do usuário autenticado na estação através da função GetCredential().
  • Essa função está disponível em builds superiores à 7.00.120420A

 

Exemplos

#include "TOTVS.CH"
User Function GetUserFromSID()
DEFINE DIALOG oDlg TITLE "Exemplo GetUserFromSID" FROM 180,180 TO 450,600 PIXEL
cTGetDomain := space(40)
cTGetUser := 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,,,,)
oTButtonGetUser := TButton():New( 63, 01, "Obter Credenciais",oDlg,{|| GetUserFromSID(GetCredential(), @cTGetDomain, @cTGetUser) },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