Userform1 de connexion ldap
Bonjour,
je reviens vers vous pour avoir un peu d'aide, j'ai mon ldap :
objCommandLDAP3.CommandText = "<LDAP://127.0.0.1:1389/OU=provisioningparams,OU=security,DC=ilex-si,DC=eu>;(ixuid= *);displayname,ixuid;subtree"
Set objRecordSetLDAP3 = objCommandLDAP3.Execute
' Dim DX As Long
i = 2
If Not objRecordSetLDAP3.EOF Then
objRecordSetLDAP3.movefirst
While Not objRecordSetLDAP3.EOF
tablo6 = objRecordSetLDAP3.Fields("ixuid")
' tablo7 = objRecordSetLDAP3.Fields("ixuid")
tablo7 = objRecordSetLDAP3.Fields("displayname")
For k = 0 To UBound(tablo5)
ThisWorkbook.Sheets(2).Cells(i, 1).Value = tablo6
ThisWorkbook.Sheets(2).Cells(i, 2).Value = tablo7
Next
i = i + 1
objRecordSetLDAP3.MoveNext
Wend
Set objConnectionLDAP = CreateObject("ADODB.Connection")
Set objCommandLDAP = CreateObject("ADODB.Command")
objConnectionLDAP.Provider = "ADsDSOObject"
objConnectionLDAP.Properties("User ID") = "cn=admin4directory,dc=ilex-si,dc=eu"
objConnectionLDAP.Properties("Password") = "mdp" ===> mdp de mon mdap
là je mets mon localhost (127.0.0.1:1389) et mon mdp directementdur mon code pour me connecter alors que je voudrai le faire par un userform1
s'il vous plait si quelqu'un peut m'aider ...
Bonjour,
je reviens vers vous pour avoir un peu d'aide, j'ai mon ldap :
objCommandLDAP3.CommandText = "<LDAP://127.0.0.1:1389/OU=provisioningparams,OU=security,DC=ilex-si,DC=eu>;(ixuid= *);displayname,ixuid;subtree"
Set objRecordSetLDAP3 = objCommandLDAP3.Execute
' Dim DX As Long
i = 2
If Not objRecordSetLDAP3.EOF Then
objRecordSetLDAP3.movefirst
While Not objRecordSetLDAP3.EOF
tablo6 = objRecordSetLDAP3.Fields("ixuid")
' tablo7 = objRecordSetLDAP3.Fields("ixuid")
tablo7 = objRecordSetLDAP3.Fields("displayname")
For k = 0 To UBound(tablo5)
ThisWorkbook.Sheets(2).Cells(i, 1).Value = tablo6
ThisWorkbook.Sheets(2).Cells(i, 2).Value = tablo7
Next
i = i + 1
objRecordSetLDAP3.MoveNext
Wend
Set objConnectionLDAP = CreateObject("ADODB.Connection")
Set objCommandLDAP = CreateObject("ADODB.Command")
objConnectionLDAP.Provider = "ADsDSOObject"
objConnectionLDAP.Properties("User ID") = "cn=admin4directory,dc=ilex-si,dc=eu"
objConnectionLDAP.Properties("Password") = "mdp" ===> mdp de mon mdap
là je mets mon localhost (127.0.0.1:1389) et mon mdp directementdur mon code pour me connecter alors que je voudrai le faire par un userform1
s'il vous plait si quelqu'un peut m'aider ...
Quelqu'un est là pour m'aider s'il vous plaît ?
Salut diopkhad,
récupérer le mot de passe entré dans le userform dans une variable (ici PW)
PW = UserForm1.TextBox1.Text ' il faut adapter le nom du userform et textbox
objConnectionLDAP.Properties("Password") = PWBonne nuit