I have now...I wasn't aware of that group previously as I originally found this group from your website Charles. Thanks for the pointer.
Mark --- In [email protected], Charles Carroll <[EMAIL PROTECTED]> wrote: > 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/
