begin process at 2012 05 28 04:46:29
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive ASP & ASP.NET

 > 

Archives ASP & ASP.NET

 > 

ASP.net

 > 

Probleme active directory asp.net


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Probleme active directory asp.net

vendredi 17 février 2006 à 11:02:23 | Probleme active directory asp.net

Goldeneye007

Sur la page http://www.vbfrance.com/code.aspx?id=31065 se trouve un programme en vb qui vérifie l'utilisateur (nom utilisateur et mot de passe) directement à partir de l'active directory et qui indique si l'utilisateur est bon ou non. C'est un programme en vb il marche impécable mais voilà je voulais le transférer en asp. Il y a des erreurs qui apparaissent :
SetFocus n'est pas un menbre de string
IADsOpenDSObject non défini
IADsContainer non défini

Quelqu'un peut m'aider?

Voilà le code que j'ai modifier directement en vb et qui marche avec vb6.0 :


'Début du code VB

Public ms_Valid As String

Public ms_UserName As String

Private Declare Function InitCommonControls Lib "Comctl32.dll" () As Long

Protected Sub Login1_Authenticate(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.AuthenticateEventArgs)

' Utilisateur autoris‚

Call Ctrl_Entree()

If ms_Valid = "N" Then Exit Sub ' Si les champs ne sont pas valide le programme sort

'Unload(Me)

End

Exit Sub

UpdateFailed:

MsgBox("chec … la lecture.L'application ne peut pas ˆtre lanc‚e")

On Error Resume Next

Exit Sub

End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)

ms_Valid = "N"

End Sub

Private Sub Ctrl_Entree()

Dim l_Ret As Long

Dim s_Espace As String

Dim n_I As Integer

Dim n_NbEsp As Integer

s_Espace = ""

n_NbEsp = 0

ms_UserName = ""

If Loginutilisateur.UserName <> "" And Loginutilisateur.Password <> "" Then

' Contr“le l'utilisateur et le mot de passe

l_Ret = 0

l_Ret = Verification_Utilisateur_AD(Loginutilisateur.UserName, "domaine", Loginutilisateur.Password)

If l_Ret = 0 Then

ms_Valid = "O"

If InStr(1, Loginutilisateur.UserName, "@", vbTextCompare) = 0 Then

ms_UserName = RTrim(UCase(Loginutilisateur.UserName))

Else

'oter tout derriere @

ms_UserName = UCase(Mid(RTrim(Loginutilisateur.UserName), 1, Len(RTrim(Loginutilisateur.UserName)) - 14))

End If

ElseIf l_Ret = 1 Then

ms_Valid = "N"

MsgBox("Mot de passe ou nom utilisateur incorrect")

ElseIf l_Ret = 2 Then

ms_Valid = "N"

MsgBox("ProblŠme de connexion")

Else

ms_Valid = "N"

MsgBox("Application indisponible")

End If

Else

If RTrim(Loginutilisateur.UserName) = "" Or RTrim(Loginutilisateur.Password) = "" Then

ms_Valid = "N"

MsgBox("La saisie de l'utilisateur et de son mot de passe est obligatoire")

Loginutilisateur.UserName.SetFocus()

End If

End If

End Sub

Public Function Verification_Utilisateur_AD(ByVal UserName As String, _

ByVal Domain As String, _

ByVal Password As String) As Long

Const ADS_SECURE_AUTHENTICATION = 1

Dim IADsOpenDSObject As String

Dim MyNamespace As IADsOpenDSObject

Dim X As IADsContainer

Dim oUserName As String

Dim oPassword As String

oUserName = UserName

oPassword = Password

'Conception du vrai login dans AD

On Error GoTo CleanUp

If InStr(1, UserName, ".", vbTextCompare) <> 0 And InStr(1, UserName, "@", vbTextCompare) = 0 Then

oUserName = UserName + "@machin.com"

End If

MyNamespace = GetObject("LDAP:")

X = MyNamespace.OpenDSObject(LDAP://secret, oUserName, oPassword, ADS_SECURE_AUTHENTICATION)

Verification_Utilisateur_AD = 0

GoTo FinFonction

CleanUp:

Select Case Err.Number

Case -2147023570 ' mot de passe ou utilisateur incorrect

Verification_Utilisateur_AD = 1

Case -2147016646 'connexion au domaine impossible

Verification_Utilisateur_AD = 2

Case Else 'Erreur inconnue

Verification_Utilisateur_AD = 99

End Select

MyNamespace = Nothing

X = Nothing

FinFonction:

End Function

'Fin du code VB



 



 

vendredi 17 février 2006 à 16:15:26 | Re : Probleme active directory asp.net

azra

Membre Club Administrateur CodeS-SourceS
Bonjour,

Je vais répondre un peu a coté, mais si tu es en ASP.NET 2.0, tu as le membership provider (avec une méthode static membership.validateuser() de mémoire) qui te permet de faire ce genre d'actions.
Plus précisement, il te faut utiliser: "activedirectorymembershipprovider".


Azra (Florent) - MVS - MCAD.NET
vendredi 17 février 2006 à 16:22:11 | Re : Probleme active directory asp.net

Goldeneye007

tu peux expliquer ta méthode car je suis qu'un débutant en asp.net il faut remplacet SetFocus par activedirectorymembershipprovider?
vendredi 17 février 2006 à 16:33:50 | Re : Probleme active directory asp.net

Goldeneye007

Oui j'utilise  l'asp.net 2.0 avec Visual Web Déveloper 2005
vendredi 17 février 2006 à 16:37:49 | Re : Probleme active directory asp.net

azra

Membre Club Administrateur CodeS-SourceS
Bonjour,

Non c'est un peu plus compliqué que ça, c'est toute une logique de développement.

Pour le fonctionnement des membership provider en général, voici une webcast: [ Lien ]

Pour le ADMemberShipProbiver, toute la documentation: [ Lien ]

Bon courage!


Azra (Florent) - MVS - MCAD.NET
lundi 20 février 2006 à 09:08:26 | Re : Probleme active directory asp.net

Goldeneye007

merci pour la doc
Je vais la lire
lundi 20 février 2006 à 10:53:21 | Re : Probleme active directory asp.net

azra

Membre Club Administrateur CodeS-SourceS
Penses a click sur "Réponse acceptée" si ton problème est résolut :)


Azra (Florent) - MVS - MCAD.NET


Cette discussion est classée dans : ms, end, utilisateur, username, loginutilisateur


Répondre à ce message

Sujets en rapport avec ce message

POUR LES BONS ! [ par Seboss ] Bonjour,Je veux pouvoir identifier chaque utilisateur quiaccède a mon site. Plutot que de créer une bases de données qui contient username et password Connnexion Utilisateur [ par Steeve Le Provost ] Bonjour tout le monde !!!Je viens par ce mail vous faire part d'un petit problème...lol...je suis en angleterre et je commence l'ASP dans une boite de Active directory et Dll = problème d'obtention utilisateur [ par jostag ] Bonjour,je ne suis pas sur d'être a la bonne place pour le message puisque ma question concerne un application web et une non web (une dll), enfin vou erreur html [ par sinthu ] est ce quelq'un peut m'aider a resoudre cette erreur * Line 280, Column 7: entity end not allowed in processing instruction.  </html<strong Tableau de bytes VS WebControle Image [ par BobbyStavelot ] Bonjour,J'accède à un WebService depuis une page ASP .Net qui me renvoi un tableau de bytes.Je peux ensuite convertir ce Tableau de byte en Image en u Shared Ou New ? [ par jmtoulon ] Bonjour, voici ci-dessous un extrait d'un code que j'ai créer afin de vous exposer mon probleme.Depuis une page aspx, quand la page se charge, la fonc Problème de postback avec un usercontrol dans une masterpage [ par vincenzo_id ] Bonjour,Dans une page .aspx j'utilise un control qui permet à l'utilisateur de saisir du text enrichi (gras, souligné,...)Ce control dispose d'un icon upload avec droit d'accé [ par erassia ] bonjour ,je travail sur une application web asp.net vb.netdans une page asp je veux que l'utilisateur upload un fichier ver le serveur  de mon heberge fileupload dans un web user control [ par babyboo1107 ] Bonjour j'aimerai utiliser un fileupload mais je suis dans un user controle alors lorsque je clic sur le ok il repasse dans la fct page_load de ce con controle de saisie d'un formulaire [ par genienetcom ] Bonjour,j'ai crée une page php contenant deux champ de saisie:username et password et un mot de passe je veux controler la saisie de ces deux champ av


Nos sponsors


Sondage...

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

Photothèque

A découvrir



 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,686 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales