[R] Vérification Ldap utilisateur & mot de passe

[Yogui]

Toujours pour mon problème de repertoire perso je me rend compte maintenant que j'ai vraiment besoin d'une vérification avec mon Ldap..

J'ai passé du temps sur le forum anglais (je ne comprend pas vraiment tout)

j'ai trouvé l'inculde :

http://www.autoitscript.com/forum/index ... 78&hl=Ldap

et la fonction qui devrait aller bien

ObjectExists : Returns 1 if the given object (SamAccountName) exists in the local AD Tree

mais je n'arrive pas à l'utiliser

j'abandonne pour la journée, si quelqu'un l'a déjà utilisé et a un exemple à me montrer

Merci

[Yogui]

► Afficher le texte

#include <GUIConstants.au3>
#include <Misc.au3>


Const $ADS_NAME_INITTYPE_GC = 3
Const $ADS_NAME_TYPE_NT4 = 3
Const $ADS_NAME_TYPE_1779 = 1
DIM $unlock
DIM $mgrvalue
DIM $mgrsplit
DIM $manager
DIM $mgr
DIM $title
DIM $pwdexpires
$oMyError = ObjEvent("AutoIt.Error", "ComError")
$objRootDSE = ObjGet("LDAP://RootDSE")
$username = InputBox("Nom d'utilisateur","Taper ici le login d'un utilisateur:")
If @error Then
MsgBox(0, "Nom d'utilisateur", "le nom d'utilisateur n'existe pas ou il n'est pas possible de joindre le domaine " & @LogonDomain)
exit
Else
; DNS domain name.
$objTrans = ObjCreate("NameTranslate")
$objTrans.Init ($ADS_NAME_INITTYPE_GC, "")
$objTrans.Set ($ADS_NAME_TYPE_1779, @LogonDomain)
$objTrans.Set ($ADS_NAME_TYPE_NT4, @LogonDomain & "\" & $username)
$strUserDN = $objTrans.Get ($ADS_NAME_TYPE_1779)
$UserObj = ObjGet("LDAP://" & $strUserDN)
If @error Then
MsgBox(0, "Nom d'utilisateur", "le nom d'utilisateur n'existe pas ou il n'est pas possible de joindre le domaine " & @LogonDomain)
exit
Else

MsgBox(0, "Nom d'utilisateur", "le nom d'utilisateur n'existe pas dans le domaine " & @LogonDomain)

EndIf
EndIf
$UserObj = ""
$oMyError = ObjEvent("AutoIt.Error", "")

Voilà c'est pas vraiment ce qui est demandé dans le titre mais au moins ça recherche un utilisateur dans mon active directory sans vérifier le mot de passe ...

si quelqu'un à une solution avec mot de passe je suis toujours prenneur Merci

[Yogui]

Bon je laisse tombé la vérification du mot de passe via Ldap :s je n'y arrive vraiment pas

j'ai trouvé une "parade" sur le forum anglais qui fonctionne je la dépose ici au cas ou quelqu'un recherche la même chose

► Afficher le texte

Code : Tout sélectionner

$User = InputBox('User', "Nom d'utilisateur")
$Domain = InputBox('Domain', 'domaine')
$Pass = InputBox('Password', 'Mot de passe', '', '*')

MsgBox(0, 'Test nom loggin et mot de passe', _CheckUserPass($User, $Pass, $Domain))

Func _CheckUserPass($sUsername, $sPassword, $sComputerName)
    Local $iCheck = True
    
    RunAs($sUsername, $sComputerName, $sPassword, 0,@ComSpec & " /c  echo vérification du mot de passe..", @TempDir, @SW_HIDE)

    If @error Then $iCheck = False
    Return $iCheck
EndFunc