I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio 1 2
Andrea.Roma
Andrea.Roma
il 13 aprile 2006 alle 17:53
71 messaggi dal 01 settembre 2001
Ho provato ad utilizza la funzione postata sopra anche io ma nn funziona... Sto provando a connettermi ad un LDap di Domino, ma nn credo che sia questo il problema... Questo è il codice: 

<%
function AuthenticateUser(UserName, Password, Domain) 
  dim sDominio, sUser, sPassword , objLDAP, sLDAPstring, ObjLoggedOn 
  'assume failure 
  AuthenticateUser = false 
  sUser = UserName 
  sPassword = Password 
  sDominio = Domain 
  
  On Error Resume Next 

  Set objLDAP = GetObject("LDAP:") 

  sLDAPstring = "LDAP://172.25.200.118" & sDominio 

  Set ObjLoggedOn = objLDAP.OpenDSObject(sLDAPstring, sDominio & "\" & sUser , sPassword, 1) 

  if err = 0 then 
    AuthenticateUser = true 
    Session("Pwd") = sPassword 
  else 
    AuthenticateUser = false 
  end if 
  
  set objLDAP = nothing 
  set ObjLoggedOn = nothing 
end function

response.write AuthenticateUser("demo", "demo", "MyDomain")
%>


Non sono tanto convinto del Dominio cmq il problema sel levo Resume next on Error me lo da dove setto l'oggetto!!! HELP
RispondiQuoting
Andrea.Roma
Andrea.Roma
il 26 aprile 2006 alle 14:56
71 messaggi dal 01 settembre 2001
Potreste aiutarmi in merito al post precedente? GRAZIE
RispondiQuoting
1 2

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.