Connection à Active Directory

[PrinceMaster77]

Je ne parviens pas a me connecter a mon active Directory, j'ai effectué des recherches sur internet à se sujet mais je n'y parviens pas, voici ma chaine de connection :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
  'variables de connexion
  adServer = "192.168.0.155:389" 'Nom du serveur
  adOu = "OU=ADM" 'Unité Organisationnelle
  adDc = "DC=testldap,DC=priv" 'Contrôleur de domaine
 
  ' Pour se connecter en anonyme ; pas accès à tout mais lecture oui en general
  adUser = "nicolas" 'Login de connexion au serveur
  adPassword = "2006NG2006" 'Mot de passe du login connecté
 
  'construction de la chaine de connexion
  strLdap = "LDAP://" & adServer & "/" & adOu & "," & adDc
  strConnection = "cn=" & adUser & "," & adDC
 
  On Error Resume Next
 
  If (not strLdap= "") then
   ' bind to the ADSI object and authenticate Username and password
   set oADsNamespace = GetObject("LDAP:")
   Set oADsObject = oADsNamespace.OpenDSObject(strLdap, strConnection,adPassword,ADS_SECURE_AUTHENTICATION)

Mon utilisateur nicolas se trouve bien dans mon OU ADM.

[Immobilis]

Salut,

Enlève le

Code :

On Error Resume Next

et donne nous le message d'erreur.

A+