L'appel LDAP dans la page ASP ne fonctionne plus

Question

J'ai une page ASP classique qui a fait un appel LDAP à nos contrôleurs de domaine pour connaître l'appartenance au groupe de l'utilisateur connecté. Depuis que notre administrateur réseau a rétrogradé les deux anciens contrôleurs de domaine Windows Server 2003 et promu deux serveurs Windows Server 2008 R2, la page échoue maintenant à Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName) (voir code) avec l'erreur 800704bc.

Dim Strgroups 

Const STAFF_GROUP = "cn=staff" 
Const STUDENT_GROUP = "cn=student" 

Set ADSysInfo = CreateObject("ADSystemInfo") 
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName) 

If IsArray(CurrentUser.MemberOf) Then 
     strGroups = LCase(Join(CurrentUser.MemberOf)) 
Else 
     strGroups = LCase(CurrentUser.MemberOf) 
End If 

Toute aide est appréciée. Merci d'avance.

Answer 1

Je ne sais pas pourquoi, mais j'avais besoin d'ouvrir les ports élevés (1024+) sur le pare-feu entre le serveur et les contrôleurs de domaine. Doit être une chose RPC.

Answer 2

Je suppose que ce n'est pas le code qui pose problème, mais plutôt quelque chose à voir avec les nouveaux serveurs (évidemment).

Je ne sais pas quelle erreur 800704bc est, mais vérifiez et voyez que ADSysInfo est réellement instancié. Sinon, alors peut-être qu'il manque un module sur le serveur ou quelque chose comme ça.

Answer 3

Les nouveaux serveurs bloquent-ils les liaisons non cryptées? Si c'est le cas, cela aurait du sens si vous vous liez comme LDAP non LDAPS ni StartTLS.