Discussion :

[philippe123]

bonjour @ tous,

mon souci est que le request suivant ne me renvoit rien.

<%
response.write(request.ServerVariables("REMOTE_USER"))
%>

kelkun a deja rencontré cette erreur?

kékifofaire????????

[NeHuS]

hummm slt , peux tu nous montrer le bout de code en rapport a

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ServerVariables("REMOTE_USER")

?

[Idle]

essai avec AUTH_USER au lieu de REMOTE_USER pour voir.... ca peut marcher :p
++

[thor22]

Au cas où tu ne le saurais pas, cette fonction renvoie un nom d'usagé seulement si l'utilisateur a entré un nom d'usager et mot de passe pour s'identifier au server Web de ta page.
Ça ne sert pas à lire le nom d'usager utilisé pour se connecter au réseau.

[philippe123]

voici mon code d'identification s'appuyant sur l'ad.


Function UserInCN(LogonUser, Chemin)

' VARIABLES DE CONNEXION A L'ACTIVE DIRECTORY
adUsername="validation-anfa"
adPassword="anfa"

Set dso = GetObject("LDAP:")

On Error Resume Next
' CONNEXION A L'ACTIVE DIRECTORY
Set obj = dso.OpenDSObject(Chemin, adUsername, adPassword, 1)
If (Err.number <> 0) Then
UserInCN = -1
Exit Function
End If

' POUR CHAQUE MEMBRE TROUVE DANS LE CONTAINER (CN=...)
For Each item In obj.members
' si le membre est un groupe
If (item.Class = "group") Then
' alors on exécute de nouveau la fonction avec le nouveau chemin du container groupe
resultat = UserInCN(LogonUser, item.Adspath)

' lorsque le résultat de la fonction est vrai,
If resultat = 1 Then
UserInCN = 1
session("nomutil") = item.sn
session("prenomutil") = item.givenName
session("auth") = true
if session("nomutil") = "" then session("nomutil") = LCase(LogonUser) end if
Exit Function
End If
End If

' si le membre correspond à UserNameLogon alors la fonction retourne 1
If LCase(item.sAMAccountName) = LCase(LogonUser) Then
UserInCN = 1
session("nomutil") = item.sn
session("prenomutil") = item.givenName
session("auth") = true
if session("nomutil") = "" then session("nomutil") = LCase(LogonUser) end if
Exit Function
End If
Next

Set obj = Nothing
Set dso = Nothing
UserInCN = 0
End Function


MonUser= request.servervariables("AUTH_USER")
intPOS = InStr(MonUser, "\")
UtilNTLogin = Mid(MonUser, intPOS+1, len(MonUser) )

response.write(MonUser)

blnF = false

if(UserInCN(UtilNTLogin, "LDAP://CN=IntraUsers,CN=Users,DC=LANCFAEDU,DC=local") = 1) Then
session("Statut") = "Apprenti"
blnF = true
end if
if (UserInCN(UtilNTLogin, "LDAP://CN=Enseignant,CN=Users,DC=LANCFAEDU,DC=local") = 1) Then
session("Statut") = "Formateur"
blnF = true
end if
if(UserInCN(UtilNTLogin, "LDAP://CN=tuteurs,CN=Users,DC=LANCFAEDU,DC=local") = 1) Then
session("Statut") = "Tuteur"
blnF = true
end if
if (UserInCN(UtilNTLogin, "LDAP://CN=anfa-admin,CN=Users,DC=LANCFAEDU,DC=local") = 1) Then
session("Statut") = "Administrateur"
blnF = true
end if

if ( blnF ) then
response.redirect("menu.asp")
else
response.redirect("acces_refuse.asp")
'end if

je ne comprend vraiment pas se qui se passe...

je suis au bord de la depression nerveuse!!!!!!

[Immobilis]

Au cas où tu ne le saurais pas, cette fonction renvoie un nom d'usagé seulement si l'utilisateur a entré un nom d'usager et mot de passe pour s'identifier au server Web de ta page.
Ça ne sert pas à lire le nom d'usager utilisé pour se connecter au réseau.

L'utilisateur doit-il s'identifier qd il entre sur ta page?


Si oui,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

request.servervariables("AUTH_USER")

fonctionne et te renvoi

xxxxx_yyyyyyy

A+

[philippe123]

probleme resolu

il faut faire une identification au serveur web sur la page asp contenant le code.


et non pas en identification anonyme

merci por tout @+