/ Published in: ASP
Expand |
Embed | Plain Text
sLdapReaderUsername = "RemoteDomain\user" sLdapReaderPassword = "password" ' Retrieve authenticated user strUsername = split(Request.ServerVariables("LOGON_USER"),"\")(1) Debug Request.ServerVariables("LOGON_USER") & " - should be of the form DOMAIN\username - if blank, your IIS probably allows anonymous access to this file." Set rootDSE = GetObject("LDAP://RemoteDC/RootDSE") Set oConn = CreateObject("ADODB.Connection") sDomainContainer = rootDSE.Get("defaultNamingContext") Debug "DomainContainer: " & sDomainContainer oConn.Provider = "ADSDSOObject" oConn.properties("user id") = sLdapReaderUsername oConn.properties("password") = sLdapReaderPassword oConn.Open "ADs Provider"
Comments
Subscribe to comments
You need to login to post a comment.

DEBUG: RemoteDomain\user - should be of the form DOMAIN\username - if blank, your IIS probably allows anonymous access to this file. DEBUG: DomainContainer: DC=remoteDomain,DC=net DEBUG: Full name: DEBUG: Email: DEBUG: Error: No email Couldn't login to Zendesk. Please contact your administrator