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)
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