You are here:

Active Server Pages Programming (ASP)/errror to find username ldap adsi

Expert: Ashley Brazier - 2/14/2008

Question
QUESTION: Why ????

If i use sUserName = "OI24683" the script work fine
instead if i use

sUserName = Request.ServerVariables("LOGON_USER")

to retrive the username on NT AD the scrpit go in error in:
Set oUser = GetObject("WinNT://" & sDomain & "/" & sUserName & ",user")

<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Nuova pagina 1</title>
</head>

<body>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%

Dim sUserName
Dim sDomain

sUserName = Request.ServerVariables("LOGON_USER")
sDomain = "DIP"

'sUserName = "OI24683"

Set oUser = GetObject("WinNT://" & sDomain & "/" & sUserName & ",user")

For Each oGroup In oUser.Groups
Select Case(oGroup.Name)
   Case "InpdapNAXX"
   'Response.write("InpdapNAXX")
   Response.Redirect("./default.html")
   Case "Group B"
   'response.write("Yay")
   Response.Redirect("A.asp")
   Case "Group C"
   'response.Redirect("Z.asp")
   Case "Group D"
   'Response.redirect("Y.asp")
End Select
Next
%>

</body>

</html>
</form>

ANSWER: Hi,

If you do a response.write for Request.ServerVariables("LOGON_USER") you should find the username looks something like this:-

domainname\username

You will need to remove everything before the \

Try that and let me know if you need any more help.

---------- FOLLOW-UP ----------

QUESTION: Hi friend how to "You will need to remove everything before the \"...

ANSWER: Hi,

Try this
<%
if Request.ServerVariables("LOGON_USER") = "" then
        ntusername = ""
     else
        ntusername = Request.ServerVariables("LOGON_USER")
        if instr(ntusername,"\") <> 0 then
         intLen = len(ntusername) - (instr(ntusername,"\") + 1)
         ntusername = Right(ntusername, intLen + 1)
         ntusername = lcase(ntusername)
        end if
  end if
response.write ntusername
%>

Thanks

---------- FOLLOW-UP ----------

QUESTION: get blank value in response.write

Answer
are you familar with IIS (Internet Information Services)

You will need to do the following:-

right click on the file in IIS

File Security, click on edit under Anonymous access and authentication control.
UNCHECK Anonymous Access and CHECK the integrated Windows Authentication.

This should work