View Single Post
  #1 (permalink)  
Old April 25th, 2016, 10:01 AM
Vitorneto Vitorneto is offline
Registered User
Points: 5, Level: 1
Points: 5, Level: 1 Points: 5, Level: 1 Points: 5, Level: 1
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Apr 2016
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
Default Connecting to AD

Hello ladies and gentlemen

I have "gathered" code from different sources and managed to be able to connect to my AD.

what i need and i am asking on my knees, is that i get redirected to a welcome page.

Also if i have a logout link on the welcome.asp page how can i logout from the AD (Active directory)

Below is the code

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
-----------------------------filter user---------------------------
<%
fsCompletted = Request.QueryString("f")

If fsCompletted = 1 Then
ResultHTML = ProcessForm
else
ResultHTML = "<br>"
End If

Function ProcessForm
on error resume next
oUsername=Request.Form("username")
oPassword=Request.Form("password")
strUserName = Right(oUsername, Len(oUsername) - InStrRev(oUsername, "\"))
if InStr(strUserName, "@")>0 then
strUserName = Left(strUserName, InStr(strUserName, "@")-1)
end if
Set objDomain = GetObject("GC://rootDSE")
objADsPath = objDomain.Get("defaultNamingContext")
Set objDomain = Nothing
Set con = Server.CreateObject("ADODB.Connection")
con.provider ="ADsDSOObject"
con.Properties("User ID") = oUsername
con.Properties("Password") = oPassword
con.Properties("Encrypt Password") = False
con.open "Active Directory Provider"
Set Com = CreateObject("ADODB.Command")
Set Com.ActiveConnection = con
Com.CommandText ="select name,telephonenumber,mail FROM 'GC://"+objADsPath+"' where sAMAccountname='"+strUsername+"'"
Set rs = Com.Execute
VarInfo="<p>"+rs("name")+"<br>"+rs("telephonenumbe r")+"<br >"+rs("mail")+"</p>"
if err.number=0 then
HTML = "<p>"+rs("name")+"<br>"+rs("telephonenumber")+ "<br >"+rs("mail")+"</p>"
else
HTML = "<p>Not Authenticated</p>"
end if
Session("mail") = Rs("mail")
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
ProcessForm=HTML
Response.Redirect "x4_page.asp"

'ADUSER = rs("mail")
Session("userid") = VarInfo
End Function
PostURL = Request.ServerVariables("SCRIPT_NAME") & "?f=1" %>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%=ResultHTML%>
<%if request.querystring("f")="" then %>
<form method="post" Action="<%=PostURL%>">
<p>Username : <input type="text" Name="username" value="" Size="25">(yourDomain/username)</p>
<p>Password : <input type="password" Name="password" Size="25"></p>
<input Name=SubmitButton Value="Authenticate User" Type=submit>
</form>
<%end if%>

--<%Response.Write Session("mail")%>
</BODY>
</HTML>
Reply With Quote