Ciao, io ho usato questo codice

' DETERMINA IL NOME DEL DOMINIO
Set objRootDSE = GetObject ("GC://rootDSE")
strDNSDomain = objRootDSE.Get("defaultNamingContext")
Set objRootDSE = Nothing

' Usa ADO per cercare in Active Directory.
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.provider ="ADsDSOObject"
objConnection.open "Active Directory Provider"
Set objCommand = CreateObject("ADODB.Command")
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText ="select * FROM 'GC://"& strDNSDomain & "' where sAMAccountname='" & NomeUtente & "'"
Set objRecordSet = objCommand.Execute

'UTENTE ABILITATO NEL DOMINIO
'VERIFICA LA PASSWORD INSERITA SE E' UGUALE A QUELLA DEL DOMINIO
On Error Resume Next
strADsPath = "LDAP://NOMESERVER"
strUserName = "NOMESERVER\" & NomeUtente
Set oADsObject = GetObject(strADsPath)

strADsNamespace = left(strADsPath, instr(strADsPath, ":"))
set oADsNamespace = GetObject(strADsNamespace)

Set oADsObject = oADsNamespace.OpenDSObject(strADsPath,strUserName, PasswordUtente, 1)
If err.number = 0 then
' AUTENTICATO
else
' NON AUTENTICATO
end if

L'unico problema è che il cliente lamenta una certa lentezza alla prima autenticazione ... qualcuno ha avuto questo tipo di problematica ?

Grazie.
MAX