Connexion LDAP AD

Version imprimable

Connexion LDAP AD

Bonjour

Ci dessous un petit script que j'ai fait (jsuis débutant)qui permet à une équipe de supervision de vérifier si un compte utilisateur est vérouillé ou non et si oui de pouvoir le dévérouiller. Suite à des problèmes récurents de réplication Active Directory entre les serveurs (pb réseau) je voudrai pouvoir préciser le serveur que j'interroge et ou savoir quel serveur m'a répondu?
j'espère avoir été clair
merci d'avance

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
NomUser = InputBox("Taper le nom de l'utilisateur","Test de Verrouillage Compte ","CompteAD")
Set OBjUser = GetObject("LDAP://cn="&NomUser&",cn=users,DC=Domaine,DC=Test,DC=fr")
If OBjUser.IsAccountLocked = True Then
        Message = MsgBox ("Le Compte "&NomUser&" est vérouillé. Voulez vous le déverouiller?", 4, "InfosCompteAD")
        If Message = 6 Then
                OBjUser.IsAccountLocked = False
                OBjUser.SetInfo
                If OBjUser.IsAccountLocked = True Then
                        MSGbox "Il y a un problème le compte reste vérouillé."
                        Else
                        MSgBox "Le Compte "&NomUser&" est dévérouillé"
                End If
        End if
        If Message = 7 Then
                MSgBox "Vous n'avez pas dévérouillé le Compte "&NomUser
        End If
 
Else
MSgBox "Le Compte "&NomUser&" n'est pas vérouillé"
End If

Noahline

29/12/2008, 15h27
noahline

je progresse un peu
j'ai trouvé comment récupérer le serveur interrrogé
il me manque maintenant comment forcer l'interrogation sur un serveur précis
Code:

1 2 3 4 Set objDomain = GetObject("LDAP://rootDse") objDC = objDomain.Get("dnsHostName") MsBox "Controlleur de domaine d'authentification:" & objDC
si quelqu'un peu m'aider
29/12/2008, 17h20
noahline

je me suis trompé

Je continue mon monologue pas pour longtemps j'espere
en fait après différent test le post précédent est faux
je ne parviens pas à connaitre le serveur interrogé
donc si quelqu'un à une idée
j'ai trouvé que l'on peux interrogé un serveur précisément de cette facon

Code:

Set Odse = GetObject( "LDAP//servername/RootDse" )

mais je ne parviens pas à utiliser ce code pour récupérer la propriété ou l'attribut "IsAccountLocked" sans faire appel à une nouvelle requete LDAP et celle ci apparement n'utilise pas le code précédent
j'espere avoir été clair
merci de votre aide
29/12/2008, 17h38
noahline

J'ai trouvé enfin

merci pour ceux qui m'ont lu
parfois on cherche compliqué alors que la solution est toute simple
je l'ai trouvé la voici

Code:

LDAP://server/CN=user, DC=Domain,DC=fr

je suis content d'avoir trouvé mais un peu honteux quand même c'&tait tellement simple
@+
02/01/2009, 10h26
ghost2666

Sinon tu dl ALTOOLS de Microsoft, une interface graphique qui permet de déverouiller et de voir les statuts des comptes de ton choix avec tous les DC de ton parc:

http://www.microsoft.com/downloads/d...displaylang=en