2 messaggi dal 17 gennaio 2006
Ho necessità di verificare se chi si collega alle mie pagine asp fa parte del dominio aziendale active directory.
Il mio codice è

usr=request.form("user")
pwd=request.form("pwd")
On error resume next
Set objLDAP=GetObject("LDAP:")
objOU=objLDAP.OpenDSObject("LDAP://dc=dominioad",usr,pwd,1)
if err.number<>0 then
response.write "Errore " & err.number
else
response.write "Utente autorizzato"
end if


dove dominioad è il nome del dominio activedirectory
Inserendo nella form le mie credenziali ottengo

Errore -2147016661

Dove sbaglio?

Grazie Ciao
2 messaggi dal 17 gennaio 2006
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?
37 messaggi dal 20 settembre 2002
ciao!
ho il tuo stesso problema...
hai risolto tu?
grazie in anticipo
29 messaggi dal 11 novembre 2004
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
37 messaggi dal 20 settembre 2002
grazie per l'ultimo post
ho risolto un problemone
vi chiedo una cosa...
come faccio a ricavare l'userid d'accesso con cui l'utente si è autenticato nel dominio senza fare una login?
mi spiego meglio
io accedo alla macchina con la mia login e password che mi identifica nella intranet in active directory...in un aapplicazione web interna mi serve reperire l'userid per far accedere quell'utente già loggato al dominio, a determinate pagine...come faccio?
ho provato con le server variables ma non va...
avevo trovato uno script che usava ldap ma nn lo trovo più, mi dava dominio\username...
spero in un aiuto
grazie
77 messaggi dal 09 ottobre 2001
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
37 messaggi dal 20 settembre 2002
mi dispiace ma ti sbagli...
se metto un user name di fantasia mi da errore
ma a domanda però rimane...
come ricavo il nome utente loggato all'accesso??
grazie ciaooo
77 messaggi dal 09 ottobre 2001
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

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.