[Resolvido] verificar a existência do usuáriocom Active Directory.

[xanburzum 169]

verificar a existência do usuáriocom Active Directory.

 

<%@ Language=VBScript %>
<%
if session("Logado")<>"ok" then 'Verifica se já está logado
	
	VerDominio="HOME" 'Nome do Domínio da rede
	UsuarioNT=trim(Request.ServerVariables("LOGON_USER")) 'Pegando o nome do usuário logado na estação
	
	'Verifica se a variável está vazia
	if len(UsuarioNT)=0 then
		Response.Write "Você precisa desativar o acesso anônimo ao site, para o Portal funcionar."
		Response.End
	End if
		
	'Quebrando variável de usuário
	tempPos=InStr(UsuarioNT,"\")
	DominioNT=Left(UsuarioNT,tempPos-1)	'Domínio
	NomeNT=Mid(UsuarioNT,tempPos+1)		'Nome do usuário
		
	Set objUser=GetObject("WinNT://"&DominioNT&"/"&NomeNT)	'Consultando AD
	
	if DominioNT<>VerDominio then 'Não está no domínio
		lRedirPag="login_form.asp"	'Redireciona para a página com o formulário de login via Banco
		session.abandon()
	else
		lRedirPag="pagina_principal.asp"

		session("Logado")="ok"
		session("userName")=NomeNT
	end if
	set objUser = nothing
else
	lRedirPag="sua_pagina.asp"
end if
response.redirect lRedirPag
%>