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