Bonjour à tous
Je me retrouve face à un problème que je n'arrive pas à résoudre. En gros j'ai un formualrie qui va chercher des noms de personnes dans un AD. j'aimerai ajouter un autre AD en plus de celui déja renseigné est ce possible?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Set con = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") con.Provider = "ADsDSOObject" con.Open "Active Directory Provider" adsPath = "LDAP://x.x.com" requestsql = "select sn, givenName, mail, samaccountname, displayname, l "_ & "from '" & adsPath & "' where sn = '" & nom & "*' order by sn" set rs = con.execute (requestsql) count = rs.recordcount
Partager