Discussion :

[noahline]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[noahline]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[noahline]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[noahline]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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
@+

[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