I am working on the a project where I should be able to get the full name and email address of Logged in User.
And after lot of modification below code works when I give User id and Password.How ever I should be able to get the first name and email address without passing Password.
Do you have any idea how this can be resolved ?I know I need to change something in the connection string.But not sure how I can achieve this.
Can you help me on this ?

<%
'Get AD User full name and Email address
Dim oConn
Sub connActiveDir(sLogonDomain, sLogon, sPassword)
Set oConn = CreateObject("ADODB.Connection")
Set oRS = CreateObject("ADODB.Recordset")
oConn.Open ("Data Source=Active Directory Provider;Provider=ADsDSOObject;" & _
"User ID=" & sLogonDomain & "\" & sLogon & ";password=" & sPassword & ";")
End Sub

Function getDomain()
Set objRootDSE = GetObject("LDAP://RootDSE")
sConfig = objRootDSE.Get("configurationNamingContext")
getDomain = objRootDSE.Get("defaultNamingContext")
End Function

Function getLogon()
getLogon = (Mid(Request.ServerVariables("LOGON_USER"), _
InStrRev(Request.ServerVariables("LOGON_USER"), "\") + 1))
End Function

Function GetUserDetails(sDomain, sLogon)
strNAME="SELECT displayName " & _
"FROM 'LDAP://" & sDomain & "' " & _
"WHERE samaccountname='" & sLogon & "'"
RESPONSE.Write(strName)
'Set oRS = oConn.Execute("SELECT displayName " & _
' "FROM 'LDAP://" & sDomain & "' " & _
' "WHERE samaccountname='" & sLogon & "'")

'If Not oRs.EOF Then
'GetUserDetails = oRs("displayName")
'Else
'GetUserDetails = "No Department Listed"
'End If
End Function


connActiveDir "AD", "SXMALLA;", "Qwest#@!"

' Call a function to simply display the department of a user that is Currently logged on
Response.Write "Your fullname - " & GetUserDetails(getDomain, getLogon)

%>

According to MSDN, if you do not pass username/password at all, you will connect as the current windows user, in this case the user the website is running as.

If you can give this user permission to search AD, which if it is an AD user already I believe it can, then you should be good to go.

If this isn't possible, and you cannot use impersonation, then you will have to pass the username and password, as you always need to "log in" to AD.

hi philip,

Now I am able to get the AD Full name and e-mail address with following code
<%

Dim objSysInfo, objUser
Set objSysInfo =server.CreateObject("ADSystemInfo")

' Currently logged in User
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
' or specific user:
'Set objUser = GetObject("LDAP://CN=johndoe,OU=Users,DC=ss64,DC=com")
response.Write(objUser.FirstName & " ")
response.Write(objUser.mail)
%>

However this works in my localhost,it is erroring when I try with my IP Address or if I run in any other machine.It gives me the following error.

Error Type:
Microsoft VBScript runtime (0x800A0046)
Permission denied
/CIA_PTT/Preview.asp, line 7

I have even tried with multiple other ways ,all works in localhost(http://localhost/ADData.asp) but not with my IP ((http://10.140.28.87/ADData.asp)

This is probably because it is being treated as an Internet/Untrusted site by your browser so it will not pass your windows NTLM credentials to it and so the site is running as the default anonymous user.

There are a few other suggestions at http://forums.iis.net/t/1153577.aspx/1 as to what else may be happening.