Può essere un errore nell'indicare il dominio?
Io ho ricopiato la stringa che identifica il dominio in "Pannello di controllo" -> Sistema -> "Nome Computer"
che è del tipo ad.nomeazienda.it
è giusto?

Ho avuto tempo fa il tuo stesso pèroblema ed ho risolto così :

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://" & 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

ciao,

siete al corrente che questi metodi di autenticazione sono validi solo per verificare la password di utenti noti??

cioè se provo a passare alla function uno username di fantasia questa mi risponde con err = 0 quindi si comporta come se fosse autenticato!!!

Andrea

Ti assicuro che a me restituisce 0!!

CMQ per ricavare il dominio e lo username il codice è questo:

dim WshShell
dim Dominio
dim Utente
Set WshShell = CreateObject("WScript.Network")
Dominio = WshShell.UserDomain
Utente = WshShell.UserName

Andrea