Fórum Contato
  
   O portal do desenvolvedor ASP Quinta-feira - 5 de Agosto de 2021  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
 Fóruns   Meu cadastro   Meu perfil   Ranking de usuários 

 FórumProgramaçãoErros Responder mensagem 

 Logon - Problemas Atualizado em 07/08/2007 ás 17:18:00

Postado em 07/08/2007 ás 11:18:00

Olá amigos,


Estou tendo problemas com meu script de logon para pegar o usuário da rede, de uma hora para outra tudo começou a dar errado...


Vou postar o código e negritar as partes que estão sendo afetadas... Quando tento debugar meu código, dou um responde o User, e não vem nada, a bronca está aí, acho que o GetObject não tá funcionando, tem como substituí-lo???? E por consequência, ele me quebra qdo tento usar a Session("nome")... Preciso fazer esse cara funcionar novamente, senão to ferrado!


Quem poder me ajudar agradeço...

'Inicio Pesquisa de Usuário Logado
usr = Request.ServerVariables ("REMOTE_USER")
usr = MID(usr,instr(usr,"\")+1,len(usr))


'Fim Pesquisa de Usuário Logado
Dim UserID, wUserName, wDominio, wUser, oUser
UserID = ""
If IsEmpty(UserID) Or IsNull(UserID) Or UserID = "" Then
UserID = Request.ServerVariables("LOGON_USER")


UserID = LCase(UserID)
 If IsEmpty(UserID) Or IsNull(UserID) Or UserID = "" Then
  Response.Status = "401 Acesso Negado"
  Response.Write ("Negado. Você não está autorizado a este site.")
  Response.End
 Else
  UserID = Replace(UserID, "\", "/")
  If InStr(UserID, "/") < 1 Then
   UserID = "defaultdomain/" & UserID
  End If
 End If
End If


GetName = ""
wUserName = "Usuário não cadastrado"
mudar = Split(UserID, "/")
wDominio = mudar(0)
wUser = mudar(1)


Set oUser = GetObject("WinNT://" & wDominio & "/" & wUser )
wUserName = oUser.FullName


Session("Nome") = wUserName
variavel1= Session("Nome") 
variavel= trim(mid(variavel1,1,inStr(variavel1," ")))
Session("Login") = UCase(wUser)
Session("Dominio") = UCase(wDominio)



Postado em 07/08/2007 ás 17:18:00

Solucionei o problema, agradeço a visita de todos!



Topo


Exibindo página 1 de 1 encontradas
SuperASP do Brasil Ltda - contato@superasp.com.br

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados