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