Have you cross posted at:
http://groups.yahoo.com/group/ADSIANDDirectoryServices
the great group my friend Carlos runs? It has a ton of LDAP geniueses.
On 5/6/05, mmikkelson <[EMAIL PROTECTED]> wrote:
> I have an ASP page that uses a VB class to execute a query against
> LDAP to capture the email address of the currently logged in domain
> user. I initially developed this script on a Windows XP Pro box with
> SP2 running IIS 5.1. As soon as I moved the script to one of my web
> servers, it failed with an error of the table returned by the LDAP
> query being empty (both servers behave identically regarding this
> script - one is Windows 2000 Advanced server w/SP4 and the other is
> Windows Server 2003 Enterprise w/SP1). It runs fine when I run it as
> a standalone vbscript file (making appropriate changes of course) on
> the two server machines, but as soon as I try to run it from a web
> app, it fails. The sites I am running it from on each web server are
> both configured to use Integrated Windows Authentication only, no
> anonymous. This is the same configuration I have on my local
> development box. Any input would be helpful.
>
> Here is my code...
> <%
> Class ldapQuery
>
> Private m_curUser, m_strPath, m_strFilter, m_strSuf,
> m_strAttribs, m_strScope, m_strADsPath, m_intPathLen
> Private m_intUsrLen, m_strProvider, m_strDom, m_intDomLen,
> m_objUsr, m_strUsrname, m_objCxn, m_objCmd
> Private m_strCmdTxt, m_rsTemp, m_strEmail
>
> Public strFrom
>
> Private Sub Class_Initialize
>
> m_curUser = Request.ServerVariables("AUTH_USER")
> strFrom = getEmail(m_curUser)
>
> End Sub
>
> Private Function getEmail(curUser)
>
> curUser = Replace(curUser,"\","/")
> Set m_objUsr = GetObject("WinNT://" & curUser)
> m_strUsrname = m_objUsr.FullName
> getEmail = sendQuery(m_strUsrname)
>
> End Function
>
> Private Function sendQuery(strUser)
>
> m_strPath = Chr(60) & "LDAP://DC=domain,DC=com"; & Chr(62)
> & ";"
> m_strFilter =
> "(&(&(objectCategory=person)(objectClass=user)(name="
> m_strSuf = ")))"
> m_strAttribs = "mail"
> m_strScope = "subtree"
>
> Set m_objCxn = Server.CreateObject("ADODB.Connection")
> Set m_objCmd = Server.CreateObject("ADODB.Command")
>
> m_objCxn.Provider = "ADsDSOObject"
> m_objCxn.Open "Active Directory Provider"
>
> Set m_objCmd.ActiveConnection = m_objCxn
>
> m_strCmdTxt = m_strPath & m_strFilter & strUser & m_strSuf
> & ";" & m_strAttribs & ";" & m_strScope
> m_objCmd.CommandText = m_strCmdTxt
>
> Set m_rsTemp = m_objCmd.Execute(m_strCmdTxt)
>
> If Not m_rsTemp.EOF Then
>
> sendQuery = m_rsTemp(0)
>
> Else
>
> sendQuery = "not found"
>
> End If
>
> End Function
>
> Private Sub Class_Terminate
>
> Set m_objCxn = Nothing
> Set m_objCmd = Nothing
> Set m_objUsr = Nothing
> Set m_rsTemp = Nothing
>
> End Sub
>
> End Class
>
> Dim tmp
> Set tmp = New ldapQuery
>
> Response.Write("<hr />Your username is " &
> Request.ServerVariables("AUTH_USER") & "<hr />" & VbCrLf)
> Response.Write("<hr />Your email address is " & tmp.strFrom &
> ".<hr />" & VbCrLf)
>
> Set tmp = Nothing
> %>
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
